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INTRODUCCION 


En este bloque también debe 
cargarse el registro O (o 1) de 
ARC, realizando los oportunos 
controles sobre la ocupación del 
fichero 


Vuelve al 
menú principal 


B$(5) contiene el valor del 
campo síntoma 


Para esta función se utiliza la 
Inserción en VOC segunda parte de la subrutina de 
17500 comprobación de la existencia 
de una voz en el vocabulario 


Al fichero ARC 
NO 
Vuelve al 
menú principal 
(*) Sólo para la versión cassette 
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SO) 
> [ emmnovoc | 
y 


y 


Los campos de 
introducción previstos 
son: 

Nombre 

Fecha 


y Vuelve al 
> menú principal 


La búsqueda puede ser 
en disco o en memoria, 
según la versión 


Los datos anteriores se 
memorizan en una matriz 
separada para los controles 
al final de la introducción 
(AC$(1) = fecha 

y AC$(2) = síntoma) 


Vuelve al 
menú principal 


B$(5) contiene el valor del 
campo síntoma y se 
compara con el 
preexistente para 
El campo ha variado. determinar si se han 
Deben hacerse las comprobaciones producido variaciones 


El control se realiza entre 
AC$(1) y B$(2) + 
B$(3) + B5(4) 


Inserta 
el síntoma 


Al fichero ARC 


(*) Sólo para la versión cassette 
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FLUJO GENERAL: FACTOR DE CRECIMIENTO Y TABLAS 


12 registros, cada uno con: 


— Edad (en meses, 2 caracteres de 00 a 72) 
— Altura mínima (3 caracteres) 

— Peso mínimo (4 caracteres) 

— Peso máximo (4 caracteres) 

- Circ. cráneo mínima (2 caracteres) 

- Circ. cráneo máxima (2 caracteres) 


QA A>»+>42 > 4 AAA 


El registro 1 contiene: 


Introd./variación 
A tablas 


AAN 
y 


Introd./variación 
E NE 


El nombre de este fichero está 
constituido por las 3 primeras 
letras del nombre del niño 


AAA, 


Caracteres 


- Nombre 

- Sexo 

— Nacimiento (*) 

— Ultimo registro ocupado 
— Filler 


— Fecha (6 caracteres) 

— Peso (4 caracteres) 

— Altura (3 caracteres) 

- Circ. cráneo (2 caracteres) 
— Filler (5 caracteres) 


(*) La máscara vídeo prevé el año entero, mientras que en el fichero sólo se memorizan los dos últimos caracteres 


Factor de crecimiento. En la última foto de la pá- 
gina 1990 se ha representado el menú principal. 
Con respecto a los dos procedimientos normales 
hay dos funciones más: Lista personas y Genera- 
ción del sistema. La segunda voz es análoga a 
las otras generaciones, y permite crear el fichero 
datos introduciendo la primera medida (el diagra- 
ma está en la pág. 2016). La lista personas es 
una simple lectura del primer registro datos con 
presentación de la lista y de la última medida rea- 
lizada (el diagrama está en la pág. 2017). 

En la página 2018 se ha representado el diagra- 
ma de gestión tablas; en esta subrutina no se ha 
previsto la creación de ficheros, puesto que se 
supone que ya existen. Por tanto, la única función 
necesaria en el menú principal es la variación. En 
la página 2019 se presenta el diagrama del pro- 
grama para su creación. En las páginas 2021 a 
2023 hay el diagrama para la introducción de las 
medidas y los de las subrutinas del Análisis. 


Calendario vacunaciones: Introducción y Ac- 
tualización. Las funciones de introducción de 





nuevos datos y de actualización están reunidas 
en una sola subrutina. Por tanto, el diagrama de- 
be prever algunas lógicas que permitan la selec- 
ción automática entre las dos funciones. 

Para este tipo de gestión se supone inicialmente 
que el fichero ya tiene la longitud precisa (igual al 
número máximo de registros que puede gestio- 
narse) y que está «en blanco». 

La primera función a realizar es la carga de los 
Data que, entre otras cosas, contienen la estruc- 
tura del registro. En estos Data, los campos se 
definen en la introducción, si ésta es la función 
pedida por el usuario. Después, la definición se 
modificará según las necesidades. 

Después de la carga de los Data (subrutina 7000) 
se pide la introducción del valor del campo clave, 
en este caso específico del Nombre y de la Vacu- 
na, que constituyen la identificación de cada re- 
gistro, o sea la clave de acceso. Para simplificar 
la estructura del programa, estos dos campos se 
introducen sin emplear la data entry y, al no ser 
posibles las correcciones, posicionando el cursor 
se produce una confirmación de la introducción. 
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Después, utilizando los valo- 
res recién introducidos, el 
programa busca en el fiche- 
ro. Si el Nombre y la Vacuna 
ya están en él, se coloca en 
actualización; si no es así, 
en introducción. 

Obsérvese que la diferencia 
entre las dos funciones se 
reduce a variar el tipo de los 
campos y a la actualización 
del directorio. 

El bucle de búsqueda con- 
siste en la lectura de todos 
los registros del fichero y en 
la comparación entre sus 
contenidos y los valores 
(Nombre y Vacuna) introdu- 
cidos. Si hay coincidencia, 
los datos ya existen, por lo 
que se trata de una actuali- 
zación. En este caso, los da- 
tos contenidos en el registro 
deben presentarse, y como 
ya se han definido en la in- 
troducción (en los Data), de- 
be modificarse su tipo. La 
modificación consiste en 
asignar a la matriz TP (:) el 
valor exacto. Por tanto, es un 
sencillo bucle. 

En cambio, en el caso en 
que los datos no se hayan 
encontrado, debe activarse 
un flag que permita actuali- 
zar el primer registro (direc- 
torio) del fichero antes de 
salir de la subrutina. 
Después de la implantación 
del flag o de la modificación 
del tipo de los campos, si- 
guen las llamadas normales 
a la data entry. 


Búsqueda en el vocabula- 
rio. La subrutina de búsque- 
da en el vocabulario (17500) 
presenta algunas dificulta- 
des debido a su completa 
parametrización. 
Básicamente se trata de una 
subrutina normal de bús- 
queda, o sea de un bucle de 
lectura de los registros del fi- 
chero y comparación con un 
valor dado (a buscar), pero 
gestionada con modalidad 
diferente. 
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En el diagrama, por brevedad, 
se han omitido las llamadas 
a la lectura de los DATA y la 
presentación de la máscara 


Los datos se transfieren 


al primer registro útil 
(número 2) 


O 


GENERACION 


Genera fichero 


y 


Escribe registro 1 


y 





Cada niño del que se quiere 
seguir su factor de crecimiento 
tiene su propio fichero datos con 
un formato de registro de 20 
bytes 


Crea el fichero datos 


Escribe los datos del niño en el 
registro 1 y escribe el valor 1 en 
el campo reservado para el 
último registro ocupado 


La data entry se llama para la 
introducción de las medidas en 
el nacimiento. Sólo en este caso 
se proporcionan al sistema los 
valores de la fecha, puesto que 
son idénticos a los de la máscara 
anterior 


En el campo "último registro 
ocupado” se escribe el valor 2 





LISTA DE PERSONAS 


En particular, puede utilizarse tanto para introdu- 
cir un nuevo vocablo (en la creación del vocabu- 
lario) como para controlar la exactitud de una in- 
troducción durante el uso del programa. 

Para ello se utilizan dos flags: el primero (K9) lo 
activa la propia rutina si la comparación propor- 
ciona resultado positivo; el segundo (indicado ge- 
néricamente con un flag en el diagrama) debe im- 
plantarse en la llamada y determina el modo de 
funcionamiento. 

Poniendo en la llamada flag = O se activa la fun- 
ción de control con la que, según el resultado de 
la comparación, la subrutina vuelve inmediata- 
mente sin activar otras funciones; éste es el caso 
de una sola utilización para comprobación. 

Y viceversa, con el flag = 1, se activa la actualiza- 
ción automática del vocabulario. Como ya se ha 
indicado, el vocabulario puede ampliarse a medi- 
da que se utilizan nuevos términos; para activar 


En el registro 1 se lee MX, 
y en el 2, la fecha y las 
correspondientes medidas 


En el registro MX (última medida 
efectuada) se lee la fecha 
que completa la máscara 





esta función debe llamar la rutina con flag = 1. En 
este caso, al final del bucle de búsqeda, si el dato 
(campo clave) no está presente, se inserta auto- 
máticamente. 

Resumiendo, las posibles situaciones son: 


m Caso de comparación negativa 
flag = O: sale 
flag = 1: emite un diagnóstico (la voz no exis- 
te) y sale 
flag = 2: inserta la nueva voz 
m Caso de comparación positiva 
flag = O: sale 
flag = 1: actualiza el registro 
flag = 2: emite un diagnóstico (la voz ya existe) 
y sale 


La utilización con flag = 2 está reservada a la 
introducción del vocabulario. Efectivamente, el 
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diagnóstico previsto en el caso de comparación 
positiva evita las repeticiones de vocablos: con 
flag = O se reduce a una sencilla subrutina de 
búsqueda (la respuesta está en K9) y con flag = 
1 activa la actualización. 

Obsérvese finalmente que la rutina se presenta 
en la forma más generalizada para poderla utili- 
zar en otras aplicaciones. 


Gestión del vocabulario. La subrutina 16900 
muestra cómo puede utilizarse la anterior: la 
17500 para la gestión completa del vocabulario. 
Al principio se presenta un menú secundario para 
la selección de la función que se desea realizar. 
Las voces previstas son: 


m Introducción (flag = 2) 
m Actualización (flag = 1) 
" Impresión 

m Fin de tarea 


Según la voz seleccionada se tiene la vuelta al 
menú principal, la llamada a la subrutina de im- 
presión (17220) o la búsqueda en el vocabulario 
(17500). En este caso, la modalidad de desarrollo 
está determinada por el valor del flag. 

A la entrada de las subrutinas, si la impresora es- 
tá activada, se pasa al menú principal. Si no es 
así, se pregunta si el usuario desea continuar (ca- 
so de introducción o actualización). Con una res- 
puesta afirmativa se tiene una entrada al principio 
de la subrutina con una nueva presentación del 
menú secundario, mientras que si la respuesta es 
negativa, se vuelve al menú principal. 


Introducción de los datos. El diagrama 8000 
de la página 2013 muestra otra utilización de la 
17500. Esta subrutina realiza la introducción de 
un nuevo dato, aunque no se trata de una intro- 
ducción normal, porque el dato debe validarse 
por comparación con el vocabulario. 


DIAGRAMA DE PRINCIPIO DE LA GESTION TABLAS 


2018 


Forma el nombre 
del fichero 





INTRODUCCION TABLAS 


En introducción, se controla 
que se introduzca la letra 
V = varones o la H = hembras. 


La data entry comprende 
toda la tabla (12 líneas x 6 columnas) 


Principio del bucle de escritura 


Bucle de formación de un registro 
(Edad + Altura máx. + Peso min. + 
+ Peso máx. + Circ. mín. + Circ. máx.) 


Siguiente 
registro 
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Cada registro está formado por una línea de la tabla: por ejemplo, en el primer registro habrá escrito: 





para la lectura de los atributos de los campos, en 
la presentación de la máscara y en la data entry. 
Al final, si la introducción es convalidada (F = 5), 
empiezan las comprobaciones previstas. 

La primera consiste en un control formal sobre la 
fecha (B$(2) y B$(3)) para evitar errores de desa- 
tención. En cambio, la segunda consiste en la 
comprobación de la existencia del síntoma 
(BS(5)), para lo que se utiliza de nuevo la 17500. 
En esta subrutina, como ya se ha visto, si se en- 
cuentra el dato se activa un flag y la rutina termi- 
na. Si no es así, se produce la inserción automáti- 
ca. Sin embargo, puede producirse una condi- 
ción de error, particularmente cuando el fichero 
vocabulario se completa mientras se realiza una 
nueva introducción. En este caso se activa un flag 
de error y se detiene la ejecución del programa. 
Si la voz existe o es posible su inserción, los datos 
introducidos con la máscara vídeo se transfieren 
al fichero ARC, y la subrutina se pone en espera, 
ya del acuerdo para una nueva introducción, ya 
de la instrucción de retorno al menú principal. 


Actualización. El correspondiente diagrama 
puede verse en la página 2007. En el fichero 
ARC, la clave de acceso está constituida por los 
campos Nombre y Fecha y, por tanto, la primera 
función es la introducción de los correspondien- 
tes valores. Téngase en cuenta que, en la versión 
cinta, se carga en memoria todo el fichero VOC 
(vocabulario). 

Esta notable diferencia con respecto a la versión 
disco, debida a la imposibilidad de utilizar fiche- 
ros random, reduce notablemente la cantidad de 
datos (voces de vocabulario y nombres) que pue- 
den utilizarse. 

Los valores del Nombre y de la Fecha se buscan 
en el fichero ARC. Si la búsqueda tiene resultado 
positivo, se leen los otros campos del registro pa- 
ra formar la máscara vídeo completa. Todos los 
campos, obtenidos en el fichero ARC, se definen 
en la presentación. Por tanto, llamando nueva- 
mente la gestión de las máscaras (data entry), se 
tiene la presentación, con posibilidad de aportar 
correcciones. 

Las eventuales modificaciones deben tratarse de 
manera diferente según el campo que interesan. 
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De hecho, si se varía el síntoma, debe llamarse la 
subrutina que comprueba su existencia en el vo- 
cabulario, mientras que si la variación interesa la 
fecha, es necesario su control formal. Los otros 
campos sólo son descriptivos y no tienen una ló- 
gica que permita controles. Al final, si no se han 
producido errores, el dato se transfiere al fichero 
ARC, reemplazando así el anterior, y la subrutina 
se prepara para una nueva introducción. 
Obsérvese que, en este caso, no se ha previsto la 
petición de continuar, lo que se debe a la gestión 
de todas las introducciones a través de la data 
entry, que prevé una tecla funcional (FS = 7) de 
retorno al menú, haciendo inútil el coloquio. 


Generación de los archivos para el factor de 
crecimiento. El control del factor de crecimiento 
consiste en el examen comparativo entre las me- 
didas del niño y las medias. Por tanto, debe pre- 
verse un fichero «histórico» en el que memorizar 
para cada niño las medidas (peso, altura, circun- 
ferencia cráneo) a medida que se toman. 

La generación del sistema consiste en inicializar 
los diferentes ficheros para las personas. 

El diagrama no presenta ninguna particularidad, 
puesto que tiene un desarrollo análogo al utiliza- 
do en los demás programas, con la única diferen- 
cia de que, por comodidad, además de la gene- 
ración del fichero, se ha previsto la introducción 
del primer grupo de datos, los correspondientes 
al nacimiento. Sin embargo, se trata de una im- 
plantación realizada sólo por comodidad, y no im- 
plica ninguna modificación de lógica o de ges- 
tión. Sin embargo, obsérvese que para utilizar el 
programa se presupone la existencia de las ta- 
blas comparativas. Si no fuese así, en esta fase 
es necesario incluirlas, así como la preparación 
del correspondiente fichero (ver Gestión tablas). 
La estructura del programa permite gestionar un 
gran número de personas al mismo tiempo. Por 
esto es necesario prever una subrutina que, a pe- 
tición, presente sus datos principales. El diagra- 
ma de esta subrutina puede verse en la página 
2009. Como se ve, su empleo es muy sencillo, y 
se reduce para cada nombre a la comprobación 
de la existencia de su correspondiente fichero y a 
la presentación del último grupo de medidas. 


INTRODUCCION MEDIDAS 


NO Vuelve al 
menú principal 


- Fecha (día, mes, año) 
- Peso 

— Altura 

- Circ. cráneo 


Comprueba que la última fecha 
El control sobre la fecha introducida sea superior a la 
es necesario para memorizada anteriormente 
mantener el fichero 
en orden progresivo 


Al fichero y actualiza 
el registro 


En el diagrama no se ha indicado la función de variación de datos ya 
introducidos, puesto que es análoga a la de introducción. La única 
modificación consiste en la introducción por parte del usuario del número del 
registro a variar (en este diagrama lo calcula el sistema) 


(*) En el registro 1, además del puntero al último registro ocupado, también se memorizan el sexo (V/H) y 
los otros datos personales. 
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GRAFICOS 


Del registro 1 toma MX 
y el flag del sexo 


TABV si el flag es V 
TABH si el flag es H 


La tabla se transforma en numérica 

en la matriz HT(x,x): 

la primera dimensión es el valor mínimo; 
la segunda, el máximo 


Principio bucle lectura 
medidas 


La fecha se transforma en meses 

a partir de la fecha de nacimiento 

y se memoriza en MR(RE). Los otros datos 
(peso, altura y c. cráneo) se transfieren 
según la elección a H(+) 


Dos curvas: máximo y mínimo 


Principio bucle datos 


O 


Salta el control 
si es el primer registro 





IMPRESION (DATOS PERSONAS) Principio bucle de presentación 


(se han¡ omitido las cabeceras) 


A y 


Principio bucle de 
búsqueda de la edad 
y de las medidas en la tabla 


La edad no 


corresponde 


1 
a ri vi | HalBRa la edad los poros 
d . normales correspondientes son: 

para la interpolación O— yy Si PT(1.J) = Peso mínimo 
PT(2,J) = Peso máximo 
HT(1,J) = Altura mínima 

si HT(2,J) = Altura máxima 

CT(1,J) = Circ. cráneo mínima 


CT(2,J) = Circ. cráneo máxima 


A 
Este control debe repetirse 
para cada una de las 3 medidas, 
por lo que se necesitan 
3 variables: 
P15(*) para el peso 
P25(+) para la altura 
P3$(+) para la c. cráneo 


de 


(*) Los nuevos valores se presentan como sigue (el ejemplo se hace sobre el peso. Para las otras 
magnitudes, el método es análogo) 


V = PT(1,K + 1) - PT(1,K) variación del punto KaK + 1 
P = VIMT(K + 1) - MT(K)) variación unitaria 

D = M(I) - MT(K) desplazamiento edad 
PT(1,J) = PT(1K) +Dx*P valor interpolado 


Para el límite superior (PT(2.J)) hay que considerar PT(2.K + 1) y PT(2,K) 
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Gestión tablas. Como ya se ha indicado, la lógi- 
ca del programa requiere el uso de las tablas de 
los valores normales. En la página 2010 se ha re- 
presentado el diagrama de principio, y en las pá- 
ginas 2011 y 2012 su desarrollo detallado. Como 
las tablas son diferentes en función del sexo, la 
primera función es la selección de este paráme- 
tro. Según el sexo se establece el nombre del fi- 
chero, TABV para los niños y TABH para las ni- 
ñas. Determinado el fichero, puede pedirse su 
impresión o su modificación, línea por línea. 

Las funciones, resumidas en el gráfico de la pági- 
na 2010, se detallan en las páginas 2011 y 2012. 
La primera parte (introducción del sexo y la consi- 
guiente elección del fichero) es completamente 
idéntica, mientras que en la gestión de los datos 
hay notables diferencias. 

Al salir de la data entry sólo debe hacerse un bu- 
cle de 1 a 12 (o sea sobre las líneas) que sume 
los 6 campos para formar el registro, y lo escriba 
en el fichero. El índice del bucle (l) se utiliza para 
calcular los punteros N1 y N2 que identifican, pa- 
ra cada línea, qué elementos sumar de B$ (:). Por 
ejemplo, con | = 1 se tiene N1 = 1, N2 = 6, pues- 
to que el primer registro contiene la suma de 
B$(1) a B$(6). Esta suma la realiza el bucle más 
interno, con código L. Al final de este bucle se 
escribe el registro «l» (1, 2, etc.) hasta completar 
la memorización de la máscara (| = 2). 


Introducción medidas. Como se ha indicado, 
para cada niño deben memorizarse las medidas, 
tomadas a intervalos regulares, para compararlas 
después con las medias de las tablas. 

La subrutina de introducción de las medidas es 
análoga a las utilizadas en otros programas, con 
algunas implantaciones: 


m El primer registro del fichero, además de indi- 
car el número de registros escritos, contiene el 
sexo (V/H) y los otros datos del niño. 

"= Después de cada data entry debe comprobar- 
se la fecha, puesto que las medidas deben 
memorizarse en orden temporal. 


Gráficos. La presentación del gráfico constituye 
una de las formas de proceso previstas en el pro- 
cedimiento (la otra es una forma tabular para po- 
ner de manifiesto los desplazamientos). 

El gráfico se presenta comparando los datos del 
niño con los valores máximo y mínimo previstos 
en la tabla de referencia. Como las medidas son 
tres (altura, peso, c. cráneo) pueden tenerse otros 
tantos gráficos. El diagrama corresponde a una 
sola magnitud, puesto que las otras se tratan de 
manera idéntica. 

Inicialmente se cargan los datos que servirán pa- 
ra trazar las curvas mínimas y máximas. 
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A continuación, con un bucle en el fichero NOM- 
BRE, se leen los valores correspondientes al niño 
al que se refiere el gráfico. Al final empieza la fase 
de presentación. Las funciones realizadas no se 
han representado porque están ligadas estrecha- 
mente al tipo de máquina, por lo que para el deta- 
lle de la parte gráfica debe consultarse el corres- 
pondiente listado. En el diagrama sólo se ha re- 
presentado la lógica de selección de las medi- 
das. Los datos de las tablas de referencia corres- 
ponden a edades bien determinadas, mientras 
que las medidas tomadas pueden no ser a inter- 
valos regulares. Por ello, puede suceder que dos 
o más medidas estén demasiado cerca entre sí 
para poder presentarse en la escala de tiempos 
prevista. Por tanto, es necesario un control que 
evite la presentación de medidas tomadas en in- 
tervalos demasiado próximos. Con ese objeto, se 
calcula la diferencia entre la medida «l» y la ante- 
rior «| — 1»: si esta diferencia es inferior a un de- 
terminado valor, el punto no se presenta. 


Análisis de las medidas. La presentación gráfi- 
Ca de las medidas, debido a las limitadas dimen- 
siones de la pantalla, puede no ser suficiente pa- 
ra mostrar las evoluciones con detalle. Por tanto, 
en el programa se incluye una subrutina de im- 
presión que presenta, en forma tabular, todas las 
medidas tomadas, poniendo de manifiesto todos 
los desplazamientos con respecto a los valores 
medios. 

En la página 2015 se ha representado únicamen- 
te la parte de cálculo de la subrutina que presen- 
ta alguna dificultad. 

En particular, debe realizarse la interpolación de 
los valores para «alinear» los datos medidos con 
los de la tabla de referencia. En esta tabla hay las 
medidas para edades bien determinadas, mien- 
tras que las reales pueden haberse tomado en 
tiempos no exactamente iguales, y dada la rápida 
variación de las medidas en los niños, estos des- 
fases en el tiempo deben tenerse en cuenta. Por 
ejemplo, suponiendo que un punto de la tabla de- 
be corresponder a la edad de 3 meses, mientras 
que las medidas más cercanas son a 80 y a 95 
días: para poder comparar los datos hay que in- 
terpolar (linealmente) los valores medidos, obte- 
niendo así las medidas correspondientes a los 90 
días, que pueden compararse con las de la tabla. 
Las fórmulas para la interpolación se indican al 
final del diagrama. 

Finalmente, en el programa hay incluido un con- 
trol de desplazamiento (ver Análisis) que indica 
con los caracteres M, — y + la diferencia entre la 
medida y el valor previsto en la tabla. La determi- 
nación de la condición se obtiene comparando 
los valores medios de la tabla con la medida (o 
con el valor calculado por interpolación). 




















RELACION PRINCIPALES VARIABLES - COMMODORE 64 


Calendario vacunaciones PT(x,x) =valores peso leídos en tablas 
CT(,x) =valores de la circunferencia crá- 


NUC =número de campo de introducción acotados endas tablas 


DS O a | ME(+x) =meses introducidos por el usuario 
Bue cara vid ESGupolones a P(«) =medidas del peso introducidas en 
sal pee y disco por el usuario 
NOS(») =cadenas usadas para la elección H(«) =medidas de la altura introducidas 
entre las funciones introducción, en disco por el usuario 
a 2000) comprobación (subruti- C(x) =medidas de la c. cráneo introduci- 
, das en disco por el usuario 
K9(+) =usadas para la comparación (sub- P1S(=) 
rutina 8900) Y , de 
K8 =flag de salida de la subrutina 8900 Ed e li ia 
NFS =nombre del fichero datos consi- 
derado Gráficos 
Factorde creciutenió HT (xx) O leídos en tablas compara- 
NUC =número de campos de introduc- MT(«) =meses leídos en fichero datos per- 
ción en la máscara vídeo activada sonas 
DS =número de descripciones en la H(x) =valores leídos en fichero datos 
máscara vídeo personas 
=meses leídos en las tablas S$(+) =matriz de los símbolos gráficos 


=valores alturas leídas en tablas NFS =fichero considerado 








16 FOR T=1 e ma a 
19 DIM HO$c2>, 9 1er 





2? 1F 0PZ2=5 E na re rama a 
33 POKE TO a AD FRÑA 34 


o A REM 
NTE NN TEN ANACO IEEE FEM 


ZOO PEN RR 


1301 FEM + MEL AA . PD E ; 


1303 LW=-1:P 


1307 REM 


1310 REM 


OESTE CITE 
1315 53=53248 : POKESS+2 





5C(0PZ$)=25 THEN GOSÍ 


HEN C2=C2-16: =0P2-1: 
O A A A AS A AS 
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AAC: Y=OPZRSZ4YO 

COSUB 11090 
PRINT"2AA";VOS(OPZ> 

FOR T=1 TO 1000:NEXTT 

ONES oa Ls PEEKCSSIZIDANDESO 
REM dor 

REM 


FOR J=1 TO NY:READ YO$C(J)>:NEXTJ 

REA OOOO 

FOR II=1 TO Ny 

X=XC :Y=] IMSZ+YC 

GOSUB11009 

PRINT"k";YO$CII> 

NEXT 11 

RETURN 

DATAO,0,0,9,96,0,0,144,0,3,32,9 

DATA4,64,0,8,143,252,17,112,2,224,129,252 

DATA9.63,0,0,65,0,9,62,0,8,31,8 

DATAO,32,0,0,31,9,224,63,,16,81,0 

DATA15,30,9,9,0,0,9.9,9,0,0,9,9,0,8 

DATA"1- |ESTION CALENDARIO" 

DATA"2- LISTA CALENDARIO POR NOMBRES" 

DATA"3- LISTA TODOS LOS CALENDARIOS " 

DATA"4- I|ENERACION DEL SISTEMA" 

DATA"9- IN DE TAREA" 

REM oooO AYUDA MENU oO VORNOIÓN 

PRINTCHR$(147) :PRINTCHR$(14> 

POKESS, 255: POKESS+1, 115: POKESS+39,6 

POKESS+40,6:POKESS+41.6 

POKESS+21,7:POKE2040, 13:POKE2041,14:POKE2942, 15:POKES3+29,4 

FORN=9T062 : READO: POKE832+N, 0: NEXTN 

FORN=8T062:READO : POKE896+N, 0: NEXTN 

FORN=0T062 : READO : POKE960+N, 0: NEXTN 

POKES9+29, 1: POKESS+40, 1 :POKESS+41,1 

POKE 53231,6 

PRINT ñLáÁA A MA AAA 

EOR 1 I=1 TO 15:PRINT"MI S 1"; +NEXTI 
A n) A 

PRINTCHR$C 19): PRINTTAEC?) "MOINABBIIRA A TO LISTS 

POKESS+2, 255! POKESS+3, 145: POKESS+4,245:POKESS+5, 180 

PRINT"MIBBNDESPLAZA ABAJO: " 

PRINT"MIBBIDESPLAZA ARRIBA: " 

PRINT"MIBBIINTRODUCE OPCION ELEGIDA: " 

PRINTTABC3) "MOTA A ITA DAA AMOO NONI 

GET R$: IFR$=""THEN1513 

POKESS+39,6:PRINT"7]" : RETURN 

DATA3,255, 192,12,0.32,16,16.16,22,56,8,32,198,8 

DATAS4,40,4,64,40,4,64,B.4,92,206,228,81,72,164 

DATAS1.,206,228,81,66,164,93.46,142.64,0,4 

DATA64,40,4,64,49,4,32,108,8,32,56,8,16,16,16 

DATA12,8,32,3,255, 192 

DATA3,255,192,12,0,32.16,32.16.32,120,8,32,192,8 

DATA64,120,4,64.32,4,64,M,4,92,206,228,281.72,164 

DATAS1 -206,228,81,66,164,93,46,148,64,0,4,64,16,4 

DATA64, 128,4,32,12,8,32,120,8,16,16,16,12,9,22,3,255, 192 

DATAO,0,0,7,255,224,24,8,24,96,0,6,128,0,1,129,1,129 

DATA134,131.129,122,2,129,132.D.129,142,9,129 

DATA122,0,129,132,0,129,122,8,129,128,0,1,96,0.,6 

DATA24,8,24,7,255,224.9,9,8,8,0.0,0,0,0,9,9,0 

REM FIN DEL MENU PRINCIPAL 


REM 

REM dk PRESENTA MASCARA ok 

REM 

FOR J=1 TO NUC 

Aster" 

A=DXCI) :Y=DWCJ>:GOSUB1100M: ETA 

IF TPCJ><55 AND TPCJ)<54 THEN 2060 
X=CXCJ) =CW CJ) :GOSUB11000:PRINT"A";B4CJ) 


6 GOTO 21230 


N1sLC(J)>:N2=NDCJ>: IF TPOJ)=1 OR TPCOJ>=2 THEN C$=NS$:COTO2065 
CS=A54 

IF Ni=1 THEN A$=C$:G0T02095 

FOR I=1 TO _N1-N2-1:A$=A$+C$ :NEXTI 

IF N2=0 THEN AS$=A$+C$:G0T0 2095 
AF=A$+PDF 

FOR I=1 TO N2:A$=A$+"0":NEXTI 
XECXCJ) W=CY CJ) :GOSUB 11009 

PRINT "MAS; "a" 

BS(J>="" 

FOR K=1 TO N1-N2-1 

BScJ>)=B4CJ+NSS 

NEXT K 

IF N2=0 THEN BS$(J>=B$(J>+NS$:GOTO 2120 
BS$(J)=B$CI)4+PDS 


A FORK=1TON2:B$(J>)=B$(J)+NS4 : NEXTK 


NEXT J 


Ri 
REM 4% DATA ENTRY xo 
REM 


REM 
J=1 


REM 

NC=J :X=CX(NC) :Y=CWY (NC) 
CC=1 

GOSUB 3240 


IF FS=2 THEN RETURN 

IF FS=A THEN 23109 

IF FS>4 THEN 2219 

GOTO 23128 

REM CARACTER 

JmJ+1: ds Ruiz THEN 3030 

GOTO 3 

ON FS SOTO 3139,3150,3170.3190 

IF J>1 THEN J=J-1:G00TO 3049 

FS=B: J=NUC:GOTO 3040 

IF J<NUC THEN J=J+1:G0TO 3040 

FS=8:GOTO 3820 

IF COCLC(J) THEN S=1:CC=CC+1:X=X+1:G00SUB 11090:00TO 3969 
FS=9:G00TO 3109 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:00SUB11090:00TO 23069 
FS=9:G00TO 3035 


REM 

IF FS>8 THEN FS=8:GOTO 3069 
IF FS=8 THEN FS*B:G0TO 3100 
RETURN 


REM 
Q REM Me LECTURA DE 1 CAMPO mk 


REM 

FSm8 

IF TPCNC>=4 THEN RETURN 

IF TP(NC)=2 THEN GOSUB 9400 :RETURN 

IF MIDSCBS$CNC),CC,1)=PDS THENX=X+S:CC=CC+S 
DOSUB 110008 

GET AS: IF A$C>"" THEN 3338 

G0SUB11000:PRINT" de"; :GOSUB11000:PRINT"2";MIDECBSIONC),CC,1)5 
FOR T=1 xe 45:NEXTT 

GOTO 3330 
IFASCCAS$)=190RASCCAS)=200RASCCAS>=147DRASCCA$)=148 THEN 3330 
PRINT"Ma"; AS; 

CA=ASCCAS> 

FOR I=1 TO 15 

IF TFCICA THEN FS=]:1=15:00SUB3630: RETURN 
IF FS=9 THEN RETURN 

NEXTI 

IF TP(NCICO1 THEN 3450 

eee DR CA=46 DR(CA>=4BANDCAC=57 ) THEN3428 
6 

IF CAC546 THENM3459 

GOSUB 4278 

IF SHP=1 THEN 3410 

S=1:00SUB 3528 

IF CC=LC(NC)> THEN RETURN 

CC=CC+1:'X=X+1:G0T0 3319 


REM 

REM MM TRASFERENCIA AL BUFFER ok 
REM 

IF CCwu1 THEN SN$="":GOTO 3590 
SN$=LEFTS(BS(NC>,CC-1) 

IF COLC(NC> THEN DES$="":G0TO36109 
N=LCONCI=CC : DES2RIGOHTECBGIONCI NI 
PRONCI=SNG+AS+DES 

RETURN 

REM 

REM 40 COMANDOS e 

REM 


IF FS>5 THEN 3719 

RETURN 

IF FS=9 THEN GOSUB 13000 :RETURN 
IF FS=9 THEN GOSUB 4088: RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,23910 

RETURN 


REM 
REM mM INSERCION mM 
REM 


IF CC=LCCNCITHEN RETURN 

IF CCmi THEN SH$="":G0TO3290 
SNS$=LEFTSCBSF(NC),CO=1) 
NaLCONCI=CC4+1 :DES=RIGHTSCEFONCO, NO 
C$=BL.$ 

AS=SN$+CF+DES 
BS(NCISLEFTSCAS,LOCNCIA 

XA: a 

PES: Y=CY(NC>:GOSUB 11900 
XX: 


REM 

PRINT BS$(NC>:S=-1 

IF RIGHT$CB$(NC>,1)=PDS THEN 3789 
RETURN 


REM 

REM ARO BORRADO dolo 

REM 

IF TPCONCI<O1 THEN 3950 

IF MIDSCBS$ENC>,2,1=PDS AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF CC=LC(NC THEN DES$="":GOTO 3980 
N=LC(NCI-CC DES=RIGHTECBECNCO NO 
SN$=LEFTSFCBSONO), CL-1) 

IF buda 1 OR TPONCA=2 THEN C$=NS$:GOTO 4010 
CS=AS$ 

ESUNCI)=SN$+DES+C0$ 

AS 

XECXCONCO ¿W=CWY CONCA: GOSUB 11000 

AX: 
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PRINT BS$(NC) :S=1 : RETURN 

PREM 44444 ALINERDOS 444 

IF LC(NC>=1 THEN RETURN 

N1=LC(NC)-CC+1 

IF CC=1 THEN B$(NC>="":G0T04199 
BSONCI=LEFTSCBECNCI OO1) 

IF TPCNC>=1 OR TPONCI=2 THEM 4150 

FOR I=1 TO M1 

BS(NCI>=BL(NCI+BLE 

HEXT 1 

GOTO 4190 

FOR I=1 TO Hi 

O AENOICNRA AZARES 

NEXT 1 

IF RIGHTS CBSONO) 1)=PDS THEN BSCONC)=BLS+LEFTS$(BSCONCI,LOCNCI1) 
XECRUNC) :Y=CYONCO :GOSUB 11009 

PRINT ES(NC) RETURN 

REM 

REM 

REM 

SHpP=0 

IF CCei OR CC=LCONC THEN SHP=1:PRETURN 

FOR I=1 TO LC(NC> 

IF MIDSCBS$CONC),1,1)=BL$ THEN I=LCCNC) :SWP=1 : RETURN 

NEXT I:RETURN 

REM 

REM 

REM 

nen MN IMPRESION TODOS LOS CALENDARIOS mk 


GOSUB 6490: OPEN4, 4 

GOSUB 7000 

X=10:Y=9: GOSUB11000:PRINT"BCMA1BD! PRESENTACION EN VIDEO" 
Ya=Y+2:005UB11000:PRINT"ECEDE IMPRESION EN PAPEL" 
X=16:W=Y+3:005UB11000:PRINT"MIELIJA ":X=22 

GETSC$ : IFSC$=""THENGOSUB11000:PRINT" UP" :GOSUB11000:PRINT" Ml ":GOTOSO22 
SC=VAL(SC$) : IFSCCIORSCI2THENSO22 

NF$="WAC" :DOSUB6200 

PA=1:GOSUB 6899 

INPUTR2, ARAS 

MX=VALCAAS> 

W1=1:PRINTHOS:PRINT" Aa VI 577 TL ALT RA AB AAN 

FOR RE=2 TO Mx 

PRINTUM" 

Yi=my147 

PARE : GOSUB6890 : INPUTR2., AAS 

P9(10>=RIGHTSCARS,1>:1F B$(10)="9" THEN Yi=W1-7:G0T0 5975 
BSC1=LEFTSCARS, 10) :BS(2)=MIDSCARS, 11,15) :BS$(3>=MIDSCARS, 26,20) 
B$C(4)=MIDSCARS, 46,8) :BSCS)3MIDFCARS, 54,8) 

G=VAL(LEFT$(B$(4),2)) :M=WAL(MIDS(B$(9),3,2)) : AVAL CRIGHTS(BG14),94)) 
GO=VAL(LEFTS(BS(5),2)) ¿MM=VALCMIDECEE(S),3,2)) :AA=VALCRIGHTSCBGC5),4)) 
IF SC=2 THEN CMD4:PRINTCHR$C17) 

IF RE=2 AND SC=RE THEN A MAS TT" PRINT:PRINT 
PRINTTABC(2>"/OMBRE : "¡BSC 


PRINTTABC2) "XACUNA : mi B$c2) 
PRINTTABC2>"/OTAS ¿"5 BgC3) 
PRINTTAB(2>""N FECHA :"G"/"m"/"A 


PRINTTABC2)""ROXIMA  :"GG"/"MM"/"AR 

IF SC=2 THEN PRINTH4:GOTO 5075 

IF W1<15 THEN PRINT"MA":GOTO 5875 
Y1=1:X=6:Y=22:G0SUB11000:PRINT"NPULSE UNA TECLA PARA CONTINUAR" 


POKE198,B8:WAIT 198,1:PRINTHOS:PRINT" Ma ¡VILO TL ALTA ARA ASS 
; 


NEXT RE 

X=2:Y=22:G0SUB11000:PRINT"PULSE UNA TECLA PARA VOLVER AL MENL" 
POKE198,0:WAIT 198,1 

G0SUBE480 : GOSUBE6BA : CLOSE4 

RETURN 

PRE oo dl e o o o o e 

REM wok IMPRESION CALENDARIO NOMBRE ok 

GOSUB 7090 :NO$="" 

X=8:Y=7:GOSUB11000:PRINT"ER 1-72 TL ANITA LAA 
X=17:Y=12:00S5UB11000:PRINT"M=========" 
X=15:Y=11:00SUB11000: INPUT" mf" ; NOS 

NÑLENCNOS) 

IF N=A THEN 5508 

IF N<=10 THEN 5511 

%=1:Y=18:G0SUB11000:PRINT"EL NOMBRE INTRODUCIDO NO ES DE LA" 
X=1:V=w+1:G0SUB110900:PRINT"LONGITUD PREVISTA EN EL FICHERO DATOS" 
FORT=1T01000:NEXTT:PRINTHOS : GOTOS591 

IF N=10 THEN 5513 

FORK=1TO0 198-N:NO$=NO$+CHR$(32) : NEXTK 

PRINTHOS : GOSUB7809 

4=10:=9:60SUB11000:PRINT"B<2A1B08 PRESENTACION EN VIDEO" 
Y=+2:G0SUB11009:PRINT"RCA2B011 IMPRESION EN PAPEL" 
X=16:Y=+3:G0SUB11000:PRINT" ELIJA ":X=22 

GETSC$: IFSC$=""THENGOSUB11000:PRINT" ME?" :GOSUB11000:PRINT" WN ":GOTOS522 
SC=VAL(SC$) : IFSCC1ORSCI2THENS522 

G0SUBE6900 : OPEN4, 4 

NF$="WAC" : GOSUBE200 

PA=1: INPUTR2, ARAS: MX=VAL CARS) 

Y1=1:PRINTHOS:PRINT"Ba VILO 77 TL ALTA: HNOS 
FL=1 

FOR RE=2 TO Mx 

PASRE : GOSUB68809 : INPUTR2, HAS 
NMSSLEFTSCARS, 10): INDE=RIGHTS$CARS, 1) 

IF NM$<ONOS OR INDS="0" THEN 5699 

Wiev1+7:FL=FL+1 

PRINT"R" 


5544 
5546 
5548 
5550 
5552 
5554 

N 


B£(2=MIDSCAR$, 11,15) :B£C3=MIDSCARS, 26,20) 

B+(4=MIDS$CARS. 46,8): ESCSI)=MIDFCARS. 54,8) 
G=YAL(LEFTS(BL(4),2)):M=WAL(MIDS$(EGC4),3,2)) :A=WALCRIGHTECB$C4),4)) 
GG=VAL(LEFTS(BG(5),2)) :MM="ALC(MIDSCBGCS7, 3,2): AA=SYALCRIGHTSCB$05,9)) 
IF SC=2 THEN CMD4:PRINTCHE$(17) 


IFFL=2ANDSC=FLTHENPRINTCHR$< CI a E A A "3 MESCME>:PRINT: 
PRINTTAEC(2)"/OMBRE 2 15 HNOS . 
PRINTTAB(2)">ACUNA io "5B$C2) 

PRINTTABC2>"OTAS 2 "5 B$(3) 


PRINTTABC2)""N FECHA :"G"/"M"/"A , 

PRINTTABC2)""ROXIMA  :"GG6"/"mm"/"AR 

IF SC=2 THEN PRINTR4:GOTO 5600 

IF W1<15 THEN PRINT"30":GOTO 5600 
Y1=1:X=6:=22:60SUB11090:PRINT"NPULSE UNA TECLA PARA CONTINUAR" 
FOKE193,0:WAIT 198, 1:PRINTHOS:PRINT"%A 17057 TL ALO ASP: "¡NOS 
NEXT RE 

4=2:=22:G0SUB11000:PRINT"PULSE UNA TECLA PARA VOLYER AL MENI" 
POKE1938,0:WAIT 198,1 

G0SUBE400 : GOSLIBE6600 : CLOSE4 

RETURN 

REM 

REM 44% GESTION DISCO 440% 


REMITA AS aci ee ios 
sá APERTURA CANAL COMANDOS 
DPEN1.8,15 

RETURN 

RE 

REM APERTURA FICHERO 

FEM 


OPEN2,8,3,NF$ 
REM 


RETURN 

REM ===. 
REN CIERRE CANAL COMANDOS 
CLOSE 1 

RETURN 


CLOSEZ 

RETURN 

REM anime oi 

REM APUNTA AL REGISTRO 

a : 
R1=PA:R2=0 

IF R1>256 THEN R2=INTC<PA/256):R1=R1-256%R2 
PRINTR1, "P"CHRA$(3+96)CHRSCRI)CHASCRZICHRAGC1) 
RETURN 

REM 

REM 

REM a CARGA LOS DATA a 

IF OPZ=5 THEN 7004 
L=LENCYOS$COPZ35-3:L$=RIGHTSCWOSCOPZ3+,L>:02=0P2:1F OPZ=0 THEN 7005 
Us="xDZ "+STRECOZI+" " 
P=(30-L>/2:P$="":FORK=1TOP:P$=P$+" ":NEXT K 
PRINT"23"; :PRINTCHR$(14> 


3 PRINT"MZA mr.|... “DICIONES DRUM, e..." 


PRINT"MAT "¡US;" 3 
PRINT "MA qu Ps; 
IF 0P2=48 THEN PRINT"35 Ma"; 
PRINT" MN ;L$; "PS 
PRINT"MIBDIDDIDS A 
X=1 :=22 : GOSUB1 1008 : PIN A————_—————————————_————0——_—————————— 
PENA 1000:PRINT"Aa-1-L+ 1: 2154" 
mM 


IF 0PZ=0 THEN RETURN 

ON OPZ GOTO 7050,7110,7110,7110,7110 

REM DN=NUMERO DESCRIPCIONES-NUC=NUMERO CAMPOS DE INTRODUCCION 
LV=15:005UB20000: DN=10:NUC=10 

FOR I=i TO DN:READ D$CI>,DXC(1)>,DwWC1>:NEXTI 

FOR I=1 TO NUC:READ TPCI>,LOCIA)NDCT7,CXC IO CCT 

REM 

NEXT 1 

RETURN 


REM 
3h AH INTRODUCCION CALENDARIOS xk Ñ 


MX=Mx+1 

IF Mx<500 THEN 8030 

PRINT HO$S:PRINT"FICHERO DATOS AGOTADO":PRINT"PULSE UNA TECLA PARA YOLVER AL 

' 

POKE 198,0:WAIT 198,1:G0SUB 6490: GOSUBESE600 : RETURN 

PRINTHOS :GOSUB 7000 

*x=9:Y=5: GOSUB11000:PRINT"2/1 T74=3F7/400 4150" 

4=7:=7:G0SUB11900:PRINT"2ICALENDARIO /. M1" ;MX-1 

BS$C(10)="1":TPC1D)=4 

GOSUB 2000 :GOSUB 3000 

IF FS=6 OR FS=9 THEN 80309 

IF FS5=7? THEN GOSUB 6440: GOSUBE680 : RETURN 

IF WALC(B$(5))312 OR VAL(B$(8))712 THEN GOSUB 9150:GOTO 8855 

IF VAL(B$(4))>31 OR VALCB$(7)>>31 THEN GOSUB 9150:G0TO 8955 

IF VALCB$(4)><=8 OR VALCB$C7))<8 THEN GOSUB 9159:G0TO 8955 

a OR WAL(B$(8)><0 THEN GOSUB 9150:G0T0 8055 
Zn 
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31 
9154 

39156 

10000 
10095 
10010 
10014 


FORK=1T010: ARS=AAS$+B$(K> : NEXTK 

PA=Mx:GOSUB 6800 

PRINTZ, ARAS 

REM ACTUALIZA EL PRIMER PEGISTRO 

PA=1:G0SUB 6809 

PRINTR2Z, STR$(MX) 

GOSUB 5600: NF$="WAC" : GOSUB6209 

GOTO en10 

REM 

REM 4% VARIACION CALENDARIOS xk 

PRINTHOS : GOSUB7000 
BS$(33=MIDSCARS, 26,20) :E$C4=MIDFCARAS, 46,2) 

BS =MIDSCARS, 48,2): ESC6)=MIDSC ARS, 50,4) 
BSC73=MIDSCAAS, 54,2) :BSCB)=MIDSCARS, 56,2) :ESC9)=MIDSCARS$, 58,4) 
B$(10)=RIGHTSCAAS, 1) 

FORI=1T010:TP¿1I)=5:NEXTI 
X=14:Y=5:005UB11000:PRINT" DALI MY A TO" 
%=7:Y=7:G0SUB11000:PRINT"ECALENDARIO /.M";PA-1 
GOSUB2009 

GOSUB 3008 

IF F5=6 OR FS=9 THEN 0PZ=5:G0SUB7090:G0T0S567 

IF FS=7 THEN 8599 

AAs="" 

FOR K1=1T010:RAS$=AAS+B$CK 1) :NEXTK1 

JODA RAROS 

EM 

GOSUBE600 : GOSUBG400 : RETURN 

REM 4% COMPROBACION xk 

PRINTHOS : GOSLIB7009 
BS$(33=MIDICARAS, 26,20) :BF(4=MIDSECARS, 46,2) 
BS(S)=MIDICARS, 48,2): ES(6)=MIDSC RAS, 50, 4) 
B£c7)=MIDGCAAS,59, 25: BSCRI=MIDSCARS, 56,2): BLCII=MIDECARAS, 58,4) 
B$(10)=RIGHTS$CARS$, 10) 

FORI=1T09:TPC1)=5:NEXTI 

x=10:v=5: DOSUB11000:PRINT" ALIS FP Mi" 
A=7:=?:G0SUB11000:PRINT"2 CALENDARIO /.M";PA-1 
X=7:Y=21:G05UB11000:PRINT"N-7 = PROXIMA INTRODUCCION" 
NUC=3:GOSUB 2000 

GOSUB 3000 

IF FS=6 OR FS=9 THEN OP2=S:GOSUB7090:GOTOS630 

IF FS=7 THEN 8690 

IF FS=5 THEN 2645 

X=7:Y=21:G05UB11000:PRINT" "RETURN 
REM 4% ELECCION DE INTRODUCCION-YARTACION-=COMPROBACION 4% 
GOSUBEDOO 

HF$="WAC" : GOSUBE200 :PA=1 : GOSUEG200 : INPUTRZ, ARAS: Ma=WALCARS) 
PRINTHOS :GOSUE7000*NOFC1)="":N0$(25="":N=0:Y=4 
4=0:=7 :GOSUB1 1000: INPUT" AT 17 MA NOGCLO 
=+1:GOSUB11000: INPUT" AIBR E A NOIECZO 
N=LENCNOS 15: V=LENCHNOSC25) 0 IFN=0 AND Y=0 THEN 2905 
IF HO$c1)="*" AND NOF$(2="X" THEN 3000 


3 IF (N>10 0R V>1S5)0RCH=1ANDY<> 13 THEN GOSUB9150:G0T03905 


IF V=15 THEN 8924 

FOR K=1T015-W:NO$(2)=N0$(2)+CHR$(32) : NEXTK 
IFN=10THEN8930 
FORK=1T010-N:NO$(1>=N0$(1)+CHR$(32) : NEXTK 
Pa dk PRINCIPIO COMPARACION ok 


FOR RE=2 TO Mx 
PASRE : GOSUBE300 : INPLITRZ, ARAS 
K9(1)=0:k9(2)=0:k8=8 
ESC1)=LEFTSCARS, 10) :BSC23=MIDSCARS, 11,15) :E$C0109=RIGHTSCARAS, 1) 
IF B$(10>="0" THEN 8950 
FOR Kz=1 TO 2 
FOR K1=1 TO LENCBS$CK)> 
C1$=MIDS$(NOSC(K>,K1,1):C2$=MID$(B4(K),K1,1) 
IF C1$=C2% THEN K9(K>)=K9(K)3+1 :G0TOS945 
IF C2$=CHR4(32) OR C2$=CHR$(35) THEN K9(K)=K9(K>+1 
NEXT K1 
iD ¿K:4=12:W=20:G0SUB11000:PRINT"4l 4874 7 — 017" 
XT K 
IF K3c1=10 AND K9c23=15 THEN RE=MxX:K9(1)=0:K9(23=0:k8=1:G0T08950 


.1F K9(19=10 THEN K9(1)=0:K9(2)=0:K8=2:GOSUB 8600:REM COMPROBACION 


NEXT RE 

IF K8=1 THENSS00:REM * VARIACION % 

IF K3=0 THEN 2000:REM HUEYA INTRODUCCION 
me K3=2 THEN GOSUB6600 : GOSUB64D0 : RETURN 


REM RUTINA ERROR 


2 2=9:Y=24:GOSUB11000:PRINT" BT NT ATA r/" 


FOR T=1 TO 500:NEXT T 
X=9:W=20:GO0SUB11000:PRINT" "RETURN 
e AOIORIOR AN DATA AMARO 

mM 
DATA 145,17,29,157,148,123,136,13,25,124,135.0,0,0,D 
REM AA OPZ=1 LS OOO 


10025 DATA" WaANOMBRE",7,18 


10026 
10027 
10028 
10029 
16030 
10031 
10032 
10033 
10034 
10035 
10036 
10037 
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DATA" 2VACUNA",7,12 
DATA" 2NOTAS",7,14 
DATA" WFECHA",7,16 
DATA"+",19,16 
DATA"+",22,16 

DATA" SPROXIMA",7,18 
DATA"7",19,18 
DATA"7",22,18, "HINDICADOR :",7,20 
DATA3,10,0,17,10 
DATA3,15,9,17,12 
DATA23,20,0,17,14 
DATA1,2,0,17,16 


100382 
10039 
10040 
10041 
109042 
10043 
11099 
11001 
11005 
11010 
11015 
11020 


DATA1,2,B,20,16 
DATA1,4.0,23,16 
DATA1,2,0,17,18 
DATA1.,2,0,20,13 
DATA1,4,0,23,18 
DATA5,1.0,21,20 
REM 

REM_Aolk POSICIONADO EN X.Y aodok 
POKE 211,X 

POKE 214,%Y 
S1338732 

RETURN 


12000 REM 


12001 
12002 
12005 
12610 
12013 


12062 


13044 
13045 
13047 
13050 
13055 R 
13060 
13065 
13066 
13068 
13070 
20000 
- 20005 
20010 
20020 
20025 
20030 
20035 
20045 
20050 
20100 


3 PRINTTABCO)"MACESA UP 


REM 4 GENERACION SISTEMA xk 

REM 

GOSUB 7000 
X=7:Y=6:G0SUB11000:PRINT"NGENERACION EN CURSO" 
'=+2:G0S5UB1190D: INPUT"CONTINUO <SI/HO) MRE 
1 R$="NO" THEN RETURN - 

1F R$<9"SI" THEN 12013 


-GOSUB 6008 


ARS="1" 

FOR K=1 TO 61:RAS=ARS+"4":NEXTK 

REM FORMACION REGISTRO TIPO 

OPENZ, 8,3, "0 :VAC,L,"+CHR$(53) 

PA=1:G0SUB 6898 

PRINTH2, RAS 

REM PREPARA PRIMER REGISTRO 
X%=9:W=13:G0SUB11000:PRINT"Ba— TL AT CAT 
GOSUE6608 : GOSUBE499 
X=2:Y=+3:G0SUB11000:PRINT"PULSE UNA TECLA PARA VOLVER AL MENU " 
POKE _198,0:WAIT 198,13 

RETURN 

RE OOOO oaoIcIoidotR 


B REM adok AYUDA Al 


REM 

POKE 33280,6:PRINTHOS; :PRINTCHR$(142)5 
PRINTTABC(S)"MACRSE RIGHT : 2 MUEYE A DERECHA  " 
PRINTTAB(S>"MACRSA LEFT E MUEVE A IZQUIERDA" 
MUEVE ARRIBA Sa 
MUEYE ABAJO A 
ANLUILAC ION pa 
INSERCION ze 
BORRADO E 
: RETORNO AL MENU  " 
: E INTRODUCCION y 








PRINTTABCS) "MAACESR DOLIN 
PRINTTAECS) "Maa Fi” 
PRINTTABCO "MA FS” 
PRINTTAECS) "MA FS” 
PRINTTABCS) "Mah F7” 
PRINTTABCS) "MA FS” 


E a NTTABCS)"MALTRL+Y : E AYUDA 
PR 1 NTTABCS) "MARETURN : EL ALINEAR : 
PRINTTAEC(6)"MAPULSE UNA TECLA PARA VOLVER" 


GETR$: 1FR3=""THEN13066 
PRINT HO$:POKE 53220,14 
RETURN 

REM RESTORE DATA 

RESTORE 

FOR I=0 TO 62:READ D:HEXTI 
FOR I=1 E NW:READ X$:MEXTI 
FORK=1 TO 

FOR ra To” 62:READ D:NEXTI 
NEXT 

IF Lvco THEN RETURN 

FOR I=1 TO LW:READ Lys: HEX4TI 
RETURN 
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y REM E 
15 
0 REN TRARRAIARA IRA RAIAAA AA 


24 DIM MEL28),HT(2,123,MTC12).MT30205,HC200 1% 79,S$0255,0C5) 
: 22 b=22 0 WM=172:5H=310 

109 Ren 44% RUTINA GRAFICOS 444 

102 PRINT"A":POKES3250.6 

105 INPUT "NOMBRE PERSOMA" ¿NOS 

110 HF3=LEFTS(NOS,35 

115 GOSUE €090:GOSUB 6208 

120 INFUTRH1,A,ES,C,D 

125 IF A<562 THEN 140 

130 PRINT"T":PRINTES :PRINT"ABMFICHERO NO HALLADO" 

134 FRINT"2DMBFULSE UNA TECLA PARA CONTINUAR" 

135 POKE192,0:WAIT192, 1 :COSUESEDO : GOSUEE4DO: GOTO 160 
140 REM 

141 PRINT"ASBELIJA EL GRAFICO : * 








142 PRINTTRAEC10)"Mi = ALTURA " 
144 PRINTTABC16"»2 = PESO y 
145 PRINTTABC10)"M3 = C.CRANEO" 


143 INFUT"BRICUAL  : "5% 
150 IF Y<1 OR Y>3 THEN 100 
200 PA=1 :COSUEESOO: INPUTRZ, RAS 
210 GOSUE 7000 
220 GE=YALCLEFTSCESC33, 200 MM=YALCMIDECELODA, 2,29): RA=YALCRIGHTECE 
223 GOSUE 660 
230 IF ESc2) THEN ESc 
233 IF ES(2 1" THEN Esc23="H" 
240 NF3="TAB"+B3$(2):COSUE 6200 
245 FOR I=1 TO 12 
256 Pá=1 : COÓSUECSOO: INPUTRZ, ARS 
252 MTC SVALCLEFTECAAS. 23) :MTFC1)=LEFTFCRAS. 2) 
252 IF 4221 THEN 258 
254 HTC<1, I)=YALCMIDECARS, 3,35) 
256 HTC2) 0 =YALEMIDICARS. 6,39) 
239 IF Y<>92 THEN 262 
2539 HT¿1l, I)=YALCMIDECARS. 9.4) 
260 HTC2, I0=WALXMIDECARS. 12,47) :G0T0266 
2€2 HTX1. 1) =WALCMIDECAAS. 17,27) 
264 HTC2, ID0=YALCMIDECARS. 19,27) 
266 NET 1 
262 GOSUES6DO 
270 NES=LEFTS+(E$(1),3): COSUBE200 
275 FOR RE=2 TO Mx 
230 PARE : GOSUIEGEOD : INPUTRZ, ARS 
235 CO=WALILEFTSCARAS, 23) :MO=YALCMIDSCARS, 3,25: AO=VYALCMIDECARE. 5,2) 
290 APSAD-AR : MP=M0-MM: GP=G0-GG 
295 IF GF<15 THEN P=0 
300 IF GF>15 THEN P=1 
305 EE Es=12kAP+MP+P 
a 251 THEN 319 














¿GOTO 266 










N : 
aL CMIDECARS, 10,4): GOTO325 
320 HERE>="ALCMIDECARE, 14,275 
325 NEXT RE : 
327 GOSUE 6600: GOSUBE 64600 
336 COSUB 11009 
340 GOSUB 5000 
345 REM 44 EJES dk 
347 A=50 
349 FOR Y=8 TO YM 
350 GOSUE 160009 
352 NEXT Y 
354 Y=B 
356 FOR X=x0 TO XM 
358 GOSUE 19009 
360 NEXT Xx 
363 Fri=(xmM-XB)472 
367 GOSUB 15090 
370 I=1 
372 FY=INT(WMéMC ID) 
374 X1=%0: Y1=HTC 1, 14FY7="1 
378 FOR J=2 TO 12 
330 R2=MTCJREX+AD 3 W2=HTC 1, JD AF Y 
235 FOR X=X1+1 TO X2:G0SUB10000 : NEXTX 
390 FOR Y=1+1 TO Y2:GOSUB10900: NEXTW 
295 X1=X2:Y1=Y2 
400 NEXT J 
410 I=1+1:IF I=3 THEN 439 
415 GOTO 372 
430 REM 
933 T1=HC2ZIRF Y: X1=X%0 0 Y="Y1 
450 FOR J=2 TO Mx y 
42 RESMECIO RAF XAO: YEAH ID AFY 
454 FOR X=xX1+1 TO X2:GOSUB10060 : NEXTXx 
435 FOR Y=Y1+1 TO Y2:GOSUB10900 : NEXTY 
469 X1=X%2:Y1=Y2 
470 NEXT J 
500 CETAS:IFAS$="" THEN 599 
510 FOKE 56576. PEEK¿SE576>ANDZ520R2 
515 POKE 532€5.PEEK(53265)AND223 
520 POKE 53272,21 
525 PRINT"R"; :CLR:LOAD"MEDICINA",S 
50D REM 44 PREPARA H-E 4% 
5005 FOKE 55576, SPEEKCS6S76>AND252)0R2 
5010 FOKE 53272. 
5015 POKE 52265, PEEK(S2265)0R32 
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15555 
155609 
15200 
16000 
16003 
16010 
16015 
16020 
16025 
16030 
16035 
16040 
16045 
16050 
16055 
16060 
16052 


16066 


FOR 1=24576 TO 32375'POKEI.0:NEXTI 


5 FOR I=16324 TO 17383: FOKE1,230:NEXTI 


REM 230=DIBUJOS EN AZUL 

FOR I=8 TO 7:M1x%(1>=210 7-1) NEXTI 
ma 

REN GESTION DISCO 

REM: ============== 

OPEN1,8,15 

RETUEN 

OPENZ,8,3.,NF$ 


B RETURN 


CLOSE1 RETURN 


Y CLOSE2:RETU 


FR 
REM APUNTA AL REGISTRO 


3 Ri=PA:R2=0 


IF R1I5256 THEN R2=INT(PA4256):Ri=R1-256xR2 
FRINTH1,"PUCHRSCIAE CHE RSE HERE RI LHRECIO 
RETURN 
REM =-============ 
REM EXTRAE PUNTERO 

cl =LEFTSCARAS, 6) ESC =MIDECAAS. 7,10 Pg 30 =MIDIECARE+ 3.6) 
ES(9=MIDFCARS, 14,33: EFC)=RIGHTECARAS, 47 

Mei= ALLER 
RETURN 

REM SUBRUTINA DE TRAZADO 

RE 








2=WM-Y 
PL=24576+(404(ZAND243)+UZAND7 >+(XANDSO4 >) 


O POKE PL.PEEKCPL OR Mi2cxAND?> 


A 

REN RUTINA a MAXIMO 

3 Molo=0 Mi 2 

FOR I=1 TO 12 

IF HTc1, Ido m1 THEN Mc1o=HT ¿1,17 
IF HTC(2, 195911029 THEN Mc2=HTC2, 1> 


5 HEXT 1 


RETURN 

REM Ok COMPLETA EJES Mk 

YC 10)/2 

FOR %x=13 TO 26:GO0SUB10000: NEXT 

IF Y>80 THEN 15500 

Y=rM-Y0:GOTO 15010 

REN 

FOR J=1 TO 12 

RSMTCJIAFX+0+1 

FOR Y=3 TO -3 STEP-1:GUSUBE10000 : NEXTY 
NEXTJ 

REM ARS IMEOLOSAR 
3$="0":X=12:=169: IN=2:G0SUB16000 
S$="50":X=12:Y=97: IN=2 : COSUB16090 
S$="100":X=12:Y=15: IN=2:GOSUB16000 
S$="CRAFICOS FACTOR CRECIMIENTO" :; 
FOR W=1 TO 12 

MT$C1)="NA" 

SESMTE CIO ARTE RF XA ROA 1 1780 IN=2 
GOSUE 16009 

NEXT Wu 

RETURN 

REM LECTURA SIMBOLOS 

59=LENCS$):1F S9<=0 THEN RETURN 

IF S9=1 THEN S$(39)=5$:G0TO16030 
FOR I=1 TO S9 

TA 1,1) 

NEXT 

COSUB 6000: NF$="SIMB":GOSUB 6200 
FOR J=1 TO 53 

S=ASCUSGCJ) 

IF 5332 OR 5790 THEN 16095 
PA=5-31:G0SUB 6809 

TNPUTHZ, ARS 

CC10=WALCLEFTSCAAS. 395 
Cc27=WALCMIDECARE, 4,39) 

CCSS YALIMIDECAAS. 7,35) 

Cog YALCMIDECARE, 10,37) 

GTI IO 


Y FOR I=1 TO 3 


5E=24576+ 404 VAND248)+ 0 ANDT2+ CH ANDIO4 70 
POKE SE-.CCI> 


Yar+1 » 


NEXT 1 

IF IN=0 THEN X=X+8:Y=5:G0TO 16095 
Y="+ 1H 

NEXT J 

GOSUES600 : GOSUBE40O 

RETURN 
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CF 


A iii 
1 FEM 4 FACTOR DE CRECIMIENTO + 
2 REM ARAN RRA: 


REM ARRARARRRAAR MATN AARIA AAA 


FORT=1T0400:NEXTT:PRINT"CR"; :%=7:Y=10:G05UB11000 

PRINT"INTRODUCIR EL DISCO DATOS":PRINT"MBBABDDDABD NY PULSAR UNA TECLA" 
FOR T=1 TO 400: NEXTT 

GETR$:1F R$="" THEN 14 

DIM MTC125,HTC2,12),PTC2,12),CT(2,12):ME(20),PC20),H(20),C(20> 

DIM P1$(20),P2$(20).,P3$(20) 


DIM E$(25), TPC25),L0(25),ND(25),0X(25), 01425), DX(25),DYc25) 
DIM TF(15),D$(25),40$(20),F1$(4),LF(4) 

2 BLá=" ":PDÍ="." ASE="—"iNSg="4p" 0 SUS="M" O GIUS="W":HOS="1]":SLg="/P" 
LES =CHRE(133) * NV=6:xXC=10:YC0=6:52=2:POKE650, 128 


PRINTHOS: C0SUB1300:PRINTHOS : PRINTCHR$(142):REM xk MENU” adok 
IF OP2=6 THEN CLR:LOAD"MEDICINA",3 

GOSUB20000 

S FOR I=1 TO 15:READ TF<I>:NEXTI 


120 ON OPZ GOSUE 8000.5000, 5500, 16000, 120090 
130 REM 

150 GOTO 25 

LO REA ARA RRAA 


130 


O REM  OTITTITS TRIO 


1301 REM + MENU. PRINCIPAL 

1902 REM Data 

1303 LW=-1 

1305 a MENU ":O0P2=0:WO0$C0PZ3=" ATM A 7/1FP":GOSUB 7000 
1307 REM 

1309 DPZ=1 

1310 REM 


REM 
1315 33=53248 :POKESS+21,1:POKE2040, 13 
1316 RESTORE 
1318 FOR I=0 TO €2:READA:POKES32+1,1:NEXTI 
1321 POKESS+39,1:C1=75:C2=111 
1323 GOSUB 1363 
1324 GOSUB 1396 
1327 GET OPZ$:1F OPZ$="" THEN 1327 
1333 IF OPZ$=GIU$ THEN C2=C2+16: DPZ=0P2+1 :GOSUB1363 
1336 IF OPZ$=SU$ THEN C2=C2-16:0P2=0P2-1:G0SUB1363 
1339 IF OPZ$=US$ THEN 1381 
1342 IF ASCCOP2$)=25 THEN GOSUB 1456:G0T01395 
1345 GOTO 1327 
1363 REM xk 
1366 IF C2<111 THEN C2=C2+16:0PZ=0P2+1:RETURN 
1369 IF C2>191 THEN C2=C2-16:0P2=0P2-1:RETURN 
1372 POKESS,C1:POKESS+1,C02 
1375 RETURN 
1378 REM dk 
1331 Xx=XC:w=0PZKSZ+wC 
- 1384 GOSUB 110009 
1387 PRINT"3A";vYOS$(0PZ> 
1399 FOR T=1 TO 1000:NEXTT 
1392 POKESS+21,PEEK(SS+21)AND254 
1393 RETURN 
1394 REM ao 
139€ REM 
1399 FOR J=1 TO NW:READ YO$(J)>:NEXTJ 
1400 REM a ollo lla 
1405 FOR IlI=1 TO NY 
1409 X=XC:W=I1I4SZ+YC 
1411 GOSUB110600 
1414 E vOS$CII> 
1417 NEXT II 
1420 RETURN 
1425 DATAD.9,0,0, 96, 8,0,144,0,3,32 
1427 DATA4,64,0,8,143,252,17,112, 2,224, 129,252 
1429 DATAO,63,0,0,65,0,0,63,8,0,31,0 
1431 DATAO,33,0,6,31,0,224,63,0,16,81,0 
1433 DATA15,30,0,0,.0,0.06,0,0,06,0,0,0,0,09 
1444 DATA"1- +NTRODUCCION DATOS" 
1445 DATRA"2- AHRIACIONES . 
1447 DATA"3- ,MPRESION 
1449 DATA"4- LISTA PERSONAS" 
1459 DATA"S- |ENERACION" 
1454 DATA"0- —IN DE TAREA " 
1456 REM atole AYUDA MENU dollolollolo ko 
1459 PRINTCHR$(147):PRINTCHR$(14) 
1462 POKESS,255:POKESS+1,115:POKESS+39,6 
1465 POKESS+48,6:POKESS+41,6 
1463 POKESS+21,7:POKE2040, 13:POKE2041, 14:P0KE2042, 15: POKESS+29., 4 
1471 FORN=0T062 : READO : POKE832+N, Q: NEXTN 
1474 FORN=0T062 : READQ : POKES96+N, Q : NEXTN 
1477 FORN=0T062 : READA : POKE960+N, Q : NEXTN 
1480 POKESS+39, 1:POKESS+40, 1 :POKESS+41, 1 
1483 POKE 53281,6 
1485 PRINT"M AA 01 5 HA 0 5 
1489 FOR I=1 TO 15:PRINT"MI a 15: NEXTI 
A 
1495 PRINTCHR$<19):PRINTTABC?> "MIDA 4 TO LO 
1498 POKESS+2,255:POKESS+3, 145: POKESS+4,245:POKESS+5, 1230 
1501 PRINT"MMIBEDESPLAZA ABAJO: " 
1504 PRINT"MMBBIDESPLAZA ARRIBA: " 
1507 PRINT"MMBINTRODUCE OPCION ELEGIDA: " > 
1510 PRINTTABCO) "MITA O ,/% 1718 Me DO ALO 


GET R$: IFR$=""THEN1513 

POKESS+39,6:PRINT"01" : RETURN 

DATA3, 255, 192,12,0,32,16,16.16.,32.56,9,32,1083,8 
DATA64, 40,4,64,40,4,64,0,4,93,206,223,91,72,164 
DATAS1. 206, 228,81,66, 164,93,46,148,64,0,4 

DATRE4, 40, 4,64,40,4,32, 108,8,32,56.8,16:16,16 
DATA12,0,32,3,255, 192 
DATA3,255,192,12,0,32,16,32. 16,32, 120,8,32,192,8 
DATAS4, 120,4,64,32,4,64,0.4,93,206,223,81.72,164 
DATAS1,206,222,81,66, 164,93,46,143,64,0,4,64,16,4 
DATR64, 120,4,32,12,8,22,120.3,16,16,16,12,0,32,3,255, 192 
DATAD,0,0,7,255,224,24,0,24.96,0,6,123,0,1,129,1,123 
DATA134,131,129,132,2,129,132,0,129,142,0,129 
DATA132,0,129,132,8,129,132,0,129,123,0,1,96,0,6 
DATA24,0,24.7,255,224,0,0,0,0,0,0,8,0,0.0,0.0 


9 REM FIN DEL MENU PRINCIPAL 


REM 
REM dk PRESENTA MASCARA ak 
REM ¡ 


FORI=1TODS:«=DxC1):Y=DYc1>:GOSUB11000:PRINT"A"DFCI> NEXTI 
ACTICIN TO NUC 

IF TPCJICOS AND TPCJ><54 THEN 2060 

A=CACJ) ¿Y=C CJ) :GOSUB11000:PRINT"A"GBFCIJA 

GOTO 2130 


y E a TP¿J)=1 OR TPOJ)=2 THEN C$=NS$: GOTOZ065 






IF Hi=1 THEN A$=C4:G0TO 2095 

FOR I=1 TO Ni-N2-1:A$=A$+C04 :NEXTI 
IF N2=0 THEN As=A$+C04$:G0T0 2095 
AS=AS+PDS 

FOR I=1 TO N2: A$= AS+"0" :NEXTI 





INT 
Bs(J3="" 


2 FOR k=1 TO N1-N2-1 


ESCJ)=BSCJIANSS 

NEXT K 

IF N2=0 THEN B$c(J>=B$(J>+NS$:GOTO 2130 
B$(J)=BS4(J)+PDS 

RN 


REM 
RETURN 
REM 


REM 
REM Ak DATA ENTRY 4 
REM 


REM 
J=1 


REM 

NC=J : X=CXUNCI : Y=CW NC 

CC=1 

GOSUB 3240 

IF FS=9 THEN RETURN 

IF F5=b THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

REM CARACTER 

J=J+1: IF J>NUC THEN 3030 

GOTO 3048 

ON FS GOTO 3130,3150,3170,3190 
IF J>1 THEN J=J-1:GOTO 3040 
F3=0: J=NUC:GOTO 3040 

IF J<NUC MEE J=J+1:G0TO 3040 
F3=0:GOTO 303 

IF CC<LCCJ> THEN S=1:CC0=CC+1:X=X+1:G0SUB 11000:G0TO 23068 
FS=0:G0TO 3100 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:G0OSUB11000:G0TO 3060 
F3=0:GOTO 3035 

REM 

IF FS>8 THEN FS=0:GOTO 3060 


IF FS=8 THEN FS=0:GOTO 3100 
RETURN 

REM 

REM 4 LECTURA DE 1 CAMPO ak 
REM 

FS=0 

IF TP(NC>=4 THEN RETURN 


IF TPCNC)=2 THEN GOSUB 9000 :RETURN 
IF MIDSCBS$(NC),CC,1)=PDSF THENX=X+S:CC=CC+S 
GOSUB 11000 
GET AS$:IF A$<>"" THEN 3338 
GOSUB11000:PRINT" he"; :GOSUB11000:PRINT"2A"¿MIDSICBGCNCI,CC, 195 
Leia TO 45:NEXTT 
2 

IFASCAS)=190RASCCAS)=2G0RASCCAS)=147ORASCCASI=148 THEN 3330 
PRINT"MA";AS; 
CA=ASCCAS$> 
FOR I=1 TO 15 
IF TFCI=CA THEN FS=1:1=15: GOSUE3630 : RETURN 
IF F5=9 THEN RETURN 
NEXTI Ñ 
IF TPONCI<O1 THEN 3450 
ARIGAaS7OR CA=46 ORCCA>=4SANDCAC=57 > THEN3420 

03 
IF CAX246 THEN3450 
GOSUB 4270 
IF SHP=1 THEN 3410 


2035 


5=1:G0SUB 3520 
IF CC=LCINC> THEN RETURN 
CC=CC+1 0 X=%+1:G0T0 3310 


REN 
REM 4% TRASFERENCIA AL BUFFER Ak 
REN 


IF CC=1 THEN SN$="":GOTO 3590 
SH$=LEFT+(BF(NC),CC-1) 

IF CC=LC(NC> THEN DE$="":GOTO3610 
H=LCONCI—CC : DES$=RIGHTSCBGCNC) NH) 
BSCNCI=SNG+AS+DES 

20 RETURN 

REM 

REM 44 COMANDOS 

REM 


IF FS>5 THEN 3710 
RETURN 


IF FS=9 THEN GOSUB 13000: RETURH 
IF FS=2 THEN GOSUB 4080:RETURN 
IF FS<s THEN RETURN 

OM FS-9 GOSUB 3740,3910 

RETURN 


REN 

REM 4% INSERCIÓN 4% 

REM 

9 IF CC=LCONCITHEN RETURN 

IF CC=1 THEN SN$="":GOTO3900 
SH$=LEFTSCBSCNC>,)CC-1) 
N=LCUONCICC+1 :DES=RIGHTSCBGCNCI ¿NO 
O CS$=EL$ 

AS=3NS+C$+DES 

BS NC=LEFTSCAS,LOCNCII 

a Y : 
ACNCI W=CYENCI:GOSUB 11000 
=P 





e 
REM 
O PRINT BS$(NC>:S=-1 
IF RIGHTSCESCNCI, 1)=FDS THEN 2720 
RETURN 

3 REM 
3910 a O A 


3930 1 ECO! THEN 3950 

3340 IF MIDSCBLCNCI,2,1=PDF AND CC=1 THEN RETURN 
3950 IF CC<1 THEN RETURN 

3360 IF CC=LCCNC> THEN DES="":GOTO 33: 
3970 N=LC<NCI-CC: DES=RIGHTECBFCNC) 
3930 SH$=LEFT+CB$CHC>,CO-1) 

3990 IF. TN 1 OR TPONC)=2 THEN CS=NS$:COTO 4810 


 =SNSADES+OS 
y 
mera PSCYONCI :COSUE 11000 


' qe 
PRINT ESÓNC): S=1 RETURN 
FEM 444 ALINEADOS 444444 
IF LECHC=1 THEN RETURN 
Hi=LC¿NC-CC+1 
IF CC=1 THEN ES<HC>="":G0T04100 
50 ESCNCI=LEFTSCEFCONCO CC-10 
IF TP(NC>=1 OR TPNC)=2 THEN 4150 
Bb FOR l=1 TO Hi 
20 ESC(NCI=BGCNCI+BLE 
GO NEXT 1 
GOTO 419% 
54 FOR I=1 TO M1 
z DL 
BD NEXT 
IF RICHTECBSCNC), 19=PDS THEN ESCNC)=BLI+LEFTECEFCONCO ¿LOCNCI10 
O RZLALNC  =C AH  COSUE 11000 
10 PRINT ES(NC) RETURN 
y REM 


REM 

REN 

SHP=0 

IF CC=1 OR CC=LCCONE? THEN SHP=1: RETURN 

FOR I=1 TO LC(NC> 

IF MIDSCES CNCA, 1,1=EL3% THEN I=LCCHCA  SMHP=1 0 RETUEN 

NEXT I:RETURN 

43 240 REM 

932 REM ze 

5000 FEM ++ “ARIACIONES ++ 

5005 COSUB 7000 

56156 COSUE 2007: IF FS=7 THEN RETURN 

5615 PRINTHOS : COSUE7000 

5023 FOR RE=2 TO Ma 

¿COSUB 6200: INPUT2, AAS 

LEFTSCAAS. 2): BSC3I=MIDECAAS, 3,2) ES(99=MIDFCAAF+ 5.20 

DICAAS, 7,3) :ESCO)=MIDSCARS, 10,4): ES(7>=MID3CAA$, 14,27: TPC15=4 
a: P2352 THEH RETURN 

5036 FOR I=2 TO 7:TPC1I2=5 NEXT 1 

50232 GOSUE 2000 

3040 *=12:=20: GOSUB11000:PRINT"27 ='NUEYO REGISTRO" 

5642 COSUE 2000 

5045 IF FS=6 OR FS=2 THEN GOSUB7000:GOTOS027 

3050 IF Fs=7 THEN 5100 

5055 ARAS 
3657 FOR I=2 TO 7:AAS=ARS+ESC 1): NEXTI 
5068 COSUE 6200:PRINTR2., ARS 





30 























HEXT_ RE 

COSUB 6400: COSUBEGOO : RETURH 

REM 4% IMPRESION Ak 

COSUB700B:GOSUB 2007: 1F Fs5=7 THEH RETURN 

Ni=YALCLEFTSCBECD 2) :N2=WALCMIDICESCD 2,20) :N3="YALC(MIDSCEFC3 5,20) 


3 HOS=HF$ 


COSUBE480 : COSUBECOO 


5 COSUE21200 : COSUBSEOO 


GOSUB 5998 


3 COSUEBEOGO : HFF$=H0$ : GOSUECZOO 


PRINTHOS; :PRINT"=3"; : OPENS, 4 

IF ES(2=" 1" OR B$(27="H" THEN 2$="A":GOTOSS27 

Zzg="p" 

IF SC=2 THEN CiD4:PRINTCHR$<17 

PRINTTABCZ ESC 10," NAC CID"; 255" EL :"¡H1:S5L$;N2;SL4$;N3 
IF SC=2 THEN GOSUBS608:GOTO 5531 

PRINTTABC1);5"W9FECHA", "ALTURA"," PESO ","-, CRANEO" 

IF SC=2 THEN PRINTH4 

FOR RE=2 TO Mx 

IF SC<5O2 THEN PRINT"a";5 

PA=SRE : GOSUB6300 : INPUT+2, ARAS 

R1=RE-1 

COSUBSO30O 

IF SC=2 THEN CMD4 :PRINTCHR$(17>5 
PRINTES(2)SL$BS$(3)SL$BS(4)SPOCSIBSCSIP1ISCRII)SPOCOI)BSCE)P2SCRI)SPOC7I)BGC7IPI 


$cri> 


5539 
3955 


nES ao THEN PRINTH4 

HEAX 

COSUBCADO: GOSUBE$0B : CLOSE4 

4=2:w=23:60SUB11000:PRINT"MPULSE UNA TECLA PARA YOLYER AL MENU"; 

POKE1938,0:WAIT193,1:RETURN 

Lidia TAM SPOLOI MAL] AM SPACE" TR SPC(9)"—, CRANEO"; ¿RETURN 
mM 

PRINT HO$: GOSUB7909 

24=2:Y=10:G0SUB11009: PRINTS 1-1 ESPREZ?A 

4=14:7=7+3:GOSUB11000:PRINT"EX ADE EN VIDEO" 

a Y=+2:G0SUB11000:PRINT"E< LEN EN IMPRESORA" 

4=16:Y=15:G0SUB11000:PRINT"MBELIJA ":x=22 

GET SCS: IFSCI<>"" THEN 5959 

CO5UB11050:PRINT" ur" :GOSUB119090:PRINT" " 

GUTO qa 

SC=VAL (SCS 

IF SC<1 or. sc>2 PP... 5970 

RETURN 

REM ai cias A 

REH 

con Ak GESTION DISCO Axkk 


RETURN 


CLOSEI 

RETURN 

REM 

REM ===========mm. 

REM CIERRA FICHERO 
REM 





2=0 
IF “RI>256 THEN R2=INT(PA/256) : RI=R1-2564R2 
PRINTR1,"P"CHRSC3+96>CHRECRII)CHRECREICHES 10 
RETURN 
REM 
REM -- EXTRAE REGISTROS -- 
B$(2)=LEFTSCARS, 2) 
B$C3)=MIDSCARS$, 3,2) 
B$(9=MIDS$CAR$,5,5) 
FOR K=1 TO 5 
IF MIDF$CB$(4),K,1)=CHR$<35) THEN B$(4)=CHR$(32+RIGHTS$CBG(4),5-K> 
NEXT K 
RETURN 
REM 
REM dk CARGA LOS DATA Ak 
IF OPZ=9 THEN7006 
L=LENCYO0$C0PZ2>-3:L$4=RICHTSCYOSCOPZI,L> IF 0PZ=0 THEN 7005 
US="x0Z "+STRICOPZI+" ” 
P=(30-L>/2:P$="":FORK=1TOP:P$=P$+" ":NEXT K 
PRINT"3";:PRINTCHR$(14> 
PRINT "Mama r.1... DICIONES -—ORUM, 4.%." 
PRINT"MATR "US; a 
PRINT "MZA PS; 
IF DPZ=0 THEN PRINTS ma"; 
PRINT"EVLS; "UR PS 
PRINT"IBDDDDDISS a 


2037 


10000 
10005 
10010 
10013 
10015 
10015 
10017 
10013 
10019 
10020 
10621 
10059 
10052 
10033 
19054 
10053 
10055 


2038 


X=1 :=22 : GOSUB 1 1980 : PIN A—Aááá———A<———>—>—>—>A 


3 A4=25:'1=23:G0SUB11000:PRINT"A-|-L+ 1 : *l/ 


REM 
IF OPZ=0 THEN RETURN 
REM 


ON OPZ GOTO 7044,7044,7044,7044,7042,7042,7110,7046,7044 
Lv=15:CO0SUB 20090: NUC=5: DS=6: GOTO7990 
L'=58: COSUB20090 : NUC=7 : DS=3:G0TO7090 
LY=120: GOSUB20898 : NUC=18: DS=18:GOTO7098 
FOR I=1 TO DS:READ D$C(1>,Dxc1),DY¿1>:NEXTI 
E98 I=1.TO NUC:READ TPCI),LOCI) NDA IA OACI CCT 
En 
NEXT I 
RETURN 
REM -- CONTROL FIN DE FICHEROS -- 
IF MA>NRM THEN 7520 
RETURN 
FRINT HOS 
4=2:Y=10:G05UB11900 
PRINT"EL FICHERO DATOS :"¡NF$;"ESTA AGOTADO" 
X=X+1:Y=Y+5:G0SUB11090:PRINT"WNPULSE UNA TECLA PARA NUEVA ELECCION" 
Y GOSUB 6400: GOSUB 6608. 
a: 





REM 

GSC19=STRECG(KO) 65 2)=STRSÍMCKO > ¿GC 2I=STRSECPAKO) 04 =STRECYAKO) 
FOR J=1 TO 4:L<J3=LENCGSCJ)> NEXT 

FOR M=1 TO 4 

N=3: 1FM>2 THENN=6 


5 Ni=N-L CM): 1F N1=0THEN728S0 


FOR P=1 TO N1:0%$(M>=CHR$(327+6$(M) :NEXTP 
NEXT M 
RETURN 


REM 
REM' INTRODUCCION DATOS EN FICHERO NOMBRE 
REN 


GOSUE 7080 
HUC=1:DS=1 

GOSUB 2608 

GOSUB 3808 

IF FS=6 OR FS=9 THEN £095 

IF FS=? THEN RETURN 

NF$=LEFTS(BS(1),3) :GOSUB21108 

GOSUE 6080:GOSUB 6208 

PA=1:GOSUB 6800: INPUT+2, ARS 

GOSUB 21808 

HRM=20: GOSUE 7598 

IF OPZ<>1 THEN RETURN 

PA=MX : GOSUBES00 : INPUTH2, RAS 
D1=VAL(LEFTSCARS,2)):D2=VAL(MIDSCARS, 3,2)>: D3=VALCMIDICARS, 5,2) 
GOSUB 7090: TP(1)=4 

GOSUB 2600 

GOSUE 3098 

IF FS=6 OR FS=9 THEN 2027 

IF FS=7 THEN GOSUEG400: GOSUBE608: RETURN 

IF VALCB$(2)><=0 OR VALCB$(3))<=8 THEN GOSUB 9150:G0TO 8037 
IF VALCB$(2))>31 OR VALCB$(3))312 THEN GOSUB 9150:GOTO 8837 
BS(4)=RIGHTS(BF(4),2) 

D4=VAL (B$(2)) :DS=VAL (B$(3)) : DE=VAL(BF(4)> 

Je P4c=D1 AND DS>D2 THEN 8880 

IF DS>=D2 AND D6>=D3 THEN 2888 

IF _D6>=D3 THEN 8630 

GOSUB 9150:G0TO 3040 

IF D4<10 THEN B$(2)="9"+RIGHTSCBSC2),1) 
AAS=ES(23+BS(3)+ES(4)+ES(5)+B$(6)+B3(7) 

PA=MX+1 

GOSUB 6800:PRINTHZ, ARS 

PA=1:GOSUES200: INPUTRZ, RAS 

GOSUB 21608 

Me=tMx+1 

B$(4)=STRSCMX) 

IF MX<10 THEN B$(4)="00"+RIGHT$CB$(4),1):G0TO 8125 

IF Mx<100 THEN B$(4)="9"+RIGHT$(B3(4),2):G0TO 8125 
B4(4)=RIGHTSCES(4), 3) 
Pñ=1:ARS=ES(1)+B$(2)+ES(3)+ES(4)+BS(5) 


GOSUEE300 :PRINTH2, ARS 
GOTO 8025 
REM RUTINA ERROR 
4=3:Y=20: GOSUB11009:PRINT"AV LT TALA" A 
FOR T=1 TO 1500:NEXT T 

o 4239: W=20:G0SUB11000:PRINT" "RETURN 
REM AAA DATA AAA 
REM 
DATA 145,17,29.157,140,133,126,13,25,134,135,0,0.0.0 
REI AAA UP ZO RARA 
DATA" AHOMBRE",7,9, "RSEXO", 7.11, "ASA TAFT E 17,14 
DATA" ADIA", 7.16." 21ES",17,16."2ANO",27,16 
DATA3,6.0,13,9 
DATAS3,1,0,15.11 
DATA1,2,6,14.,16 
DATRA1.2,0,23, 16 
DATA1.4,0,32.,16 
REM ARA DPZ=1 ARA AAA 
DATA" HOMBRE",7,7, "3DIA".7,10,"31ES".17,10."2AN0",27,10 
DATA" ALTURA", 7.13, "2PESO".7,15, "AC CRÁNEO", 7,17. "(CM2",25,13,"(76)",25,15 
DATA3.6,5,12,7 
DATA1.2,6, 14,10 
DATA1,2,6.23.,10 


DATA1,4,6,32,10 


3 DATR1.3,0,19,12 


DATA1.4,1.,19,15 


569 DATA1,2.0,13,17 


A A A 
DATA" HOMBRE", 3,5," IHACIMIENTO",5,8,"0 "18.3," "21,5" ALTURA". 5/10 
DATA" WPES0",5,12, "SCIRC.",5,14, "JULTIMA MEDIDA EL",5,16,/",27,16 


73 DATA"/",20,16 


DATA4,6,0,13,6,4,2.0.16,8,4,2,0,193,2,4,2,9,22,8 


3 DATA4,3,0,16.10.4.4.6,16.12.4.2.0.16,14 


DATA4,2,0,25,16,4,2,0,22,16,4.2,9,31,16 


ga as PARA RA IA IA RARA MARIA A 


mM 
REM 444% POSICIONADO EN. Y ARAR 
S POKE 211,X 
POKE 214,Y 
33523732 


290 RETUEN 


12025 
12022 


120323 
12035 
12040 
12042 
12045 
12059 
12052 
12060 
12067 
12069 
12059 
12070 
12072 
12078 
12090 
12100 
12105 
12110 
12115 
12120 
12125 
12130 
12200 
12205 
12210 2% 
12215 
12217 
12220 
12225 
12230 
129299 
13000 


REM 4% GENERACION SISTEMA 4% 

DPZ=5:GOSUB 76000 

COSUB 2000 

COSUE 3000 

IF FS=6 OR FS=9 THEN 12005 

IF FS=7 THEM RETURN 

K2=0 

FOR K=1 TO LC<1> 

IF MIDS$CESC1),K, 1)=CHR$C32) OR MIDS$CESC1),K, 1)=CHP$C(25) THEN K2=Kk2+1 


3 HEXTK 


IF K2=LC(15 THEN GOSUB 9150:G0TO12610 

IF E$(27="Y" OR BS$(2)="x" THEN. 12030 

IF ES(2)="H" OR ES(2)=" 1" THEN 12038 

GOSUE 91530: G0T012010 

IF YALCESC3))331 OR YALCES(3>)<0 THEN GOSUE9150:GOTO12010 
IF VAL(E$(47212 OR VAL(ES$(42)<0 THEN GOSUEI150:GOTO12010 
RAS=ESC1)+B5C2+B5C33+B$ 09 +RIGHTECESCD, 204" 1U+"HRAA 
HFS=LEFTS(B$(1>,3) 

COSUB 60609 

OPEN2,2,3, "0: "+NF$+",L,"+CHR$(21) 

PA=1:GOSUB 6800 

PRINTH2, ARS 

PRINTHO$:0PZ=9: GOSUB7090 

4=3:Y=21 :GOSUB1 1000 :FRINT" ALT= O AA ON TA 
FOR I=1 TO 4:TPC(1)3=4:NEXTI 
E$(2)=E$(3):B$(3)=E4(4):B$(4=RIGHTS(ESF(57,2) 

COSUB 2000 : 

GOSUE 3000 

IF WALCB$(2)><10 THEN B$(2)="9"+RICHTS(BSC2),1) 
AAS=ESC2I+ EFI BICI IA ESID IA ES OSI AECA RAR 
PA=2:COSUB 6308 

PRINTHZ, ARAS 

PA=1 : GOSUBE300 : INPUT42,AAS 

COSUB 21000 

ARS=BSC1)+B$C2I4+BEC 204" 2+B$(5) 

PA=1 : COSUBES00:PRINTHZ, ARAS 

GOSUB 6600:GOSUB 6400 

PRINTHOS 


M 
=7:Y=19: A nELLeCO: PRINT"SNTRA PERSONA (S/M>":%=26 
Ger E R$="" THEN GOSUB11000:PRINT"=7?":GOSUB11990:PRINT" ":COTO12215 


IF R$="N" THEN RETURN 

IF. R$<>"S" THEN 12215 
PRINTHO$:GOTO 12005 

RENA AAA ARRANCAR: 
REM ak AYUDA Hol 


13003 REM 

13010 POKE 53280,6:PRINTHOS; :PRINTCHR$C142);5 

13015 PRINTTAE(S)"MACESR RIGHT : 55 MUEVE A DERECHA " 
13020 PRINTTABCS)"MACRSR LEFT: 35 MUEVE A IZQUIERDA" 
13022 PRINTTAE(S)"MACESR UP ¿4 MUEVE ARRIBA 
12025 PRINTTABCS>"MACESR DOWN  : $ MUEVE ABAJO a 
13030 PRINTTAE(CS)"MA F1” : 51 ANULACION = 
13035 PRINTTABCS>"MA F3" : 3 INSERCION » 
13040 PRINTTABCS)"MA FS”  * : 51 BORRADO S 
13045 PRINTTABCS> "MA FF?” : E RETORNO AL. MENU  " 
13047 PRINTTABCS) "MA FS” ¿3 INTRODUCCION a 
13050 PRINTTAB(S)"MIACTRL+V : El AYUDA e 
13055 REM 

13060 PRINTTABCS) "MARE TURN : 2 ALINEAR = 
13063 PRINTTREC(6>"MAPULSE od TECLA PARA CONTINUAR" 
13066 GETR$: IFR$=""THEN1306 

13068 PRINT HOS: PRINICHRSC19): POKE 353220,14 

13070 RETURN 

14000 REM -- oO a 

14001 REM lok 

14002 REM 

14005 CmMD4 

14020 PRINTTAE(S6$(1>;"/",C6$(2);TABC1576$(3);TABC27 70514) 
14030 RETURN 

16000 REM Ak LISTA PERSONAS xk 

16005 GOSUE 7008 

16007 NUC=1:DS=1 

16010 GOSUB2000 

16015 COSUE 3000 

16020 IF FS=6 OR FS=9 THEN 16019 

16025 1F FS=7? THEN RETURN 

16030 X=DXC(1):Y=PYc1):GOSUB11000:PRINT" 2 
16040 NF$=LEFTS$CB$(1)>,3) 

16045 GOSUB 21100 


2039 


156059 
16052 


16060 


COSUB 60089 
GOSUE 6200 
PA=1:GOSUB 6200: INPUT+2, ARAS 


5 GOSUB 21000 


C$=B$(3) 
ES(2)=LEFT$CCS, 2) :ESC3)=MIDG(CS, 3,2): B$19)=RIGHT$CCS, 2) 
PA=2:GCOSUB 6200: INPUT+2., ARS 

ESCSI=MIDSCAAS. 7,3): BS(6)=MIDSCARS, 10,4): B$(7)=MIDFCARS, 19,2) 
PA=11X:GOSUB 6800: INPUTH2, ARS 

GOSUB 66009: GUSUBE400 
B$(3)=LEFTSCARS, 2) :B$C9)=MIDSCARS, 3,2): B$C10)=MIDSCAAS. 5,2) 
DP2=2:C0SUB7040 

COSUB 2008 


2 %=3:Y=19:G605UB11000:PRINT"2SPULSE UNA TECLA PARA YOLYER AL MENU" 


GCETAS: IF A$="" THEN 16092 

RETURN 

REM 4% CALCULO MESES Ak 
C0='AL(LEFTS$CAAS. 25) :M0=YAL(MIDECARE. 3.27): AO=VYALCMIDSCARAS. 5.27) 
AP=AD-AR : MP=M0-HMM1: GP=G0-GG 

IF GP<1S THEN P=9 

IF GP215. THEN P=1 


O MRE)=124AP+MP+P 


RETURN 


O REM RESTORE DATA 


RESTORE 

FOR 1=0 TO €62:READ D:NEXTI 
FOR I=1 TO NW:READ X4:MEXTI 
S FORK=1 TO 3 


20820. FOR 1=0 TO 62:READ D:NEXTI 
NEX 


20033 
20045 
20050 
20100 
21000 
21005 
21010 
21015 
21016 
21100 
21105 
21110 
21115 
21117 
21120 
21125 
21130 
21135 
21140 


IF LvV<O THEN RETURN 

FOR I=1 TO LY:READ LY$:NEXTI 

RETURN 

REM EXTRAE PUNTERO REGISTROS 
B$(1)=LEFTSCARS,6):BSC2=MIDSCARS, 7,1) :BSC3)=MIDECARS, 3,6) 
B$(4)=MID$(AR$, 14,3) :BS(5)=RIGHTSCARS: 4) 

MX=VALCBL(4)) 

RETURN 

REM CONTROL EXISTENCIA FICHERO 

COSUE 6008 

GOSUB 6200 

INPUTR*1,A,E$,C,D 

COSUB 6400:GOSUB 6609 

IF AX>562 THEN RETURN 

PRINTHOS:X=8:'=10:G0SUB11009 

PRINT"FICHERO RM" NFS; "EA NO HALLADO" 
X=2:W=Y+5:C0SUB11000:PRINT"NPULSE UNA TECLA PARA VOLVER AL MENU" 
POKE193,0: WAIT 193.1:RUN1S 


21200 REM 


21202 
21204 
21206 
21203 
21210 
21212 
21213 
21214 
21215 
21216 
21217 
21220 
21222 
21225 
21227 
21230 
21232 
21234 
21236 
21238 
21239 
21240 
21241 
21242 
21243 
21245 
21250 
21255 
21260 
21262 


GOSUBESOGO : GCOSUBE209 

FOR RE=2 TO nx 

PASRE : GOSUBE300 : INPUTH2Z, ARS 
CO=VALCLEFTSCARS, 27) :MO=VWALCMIDICARS, 2,2): AO=VWALCMIDECAAS, 5,29) 
AP=AO-N3 : MP=M0-N2 : GP=G0-N1 
IF GP<15 THEN P=0 

IF GP>15 THEN P=1 
MECRE=1)=124AP+MP+P 
HCRE-1)=VAL(MIDECARS, 7,3) 
PCRE-1)=VALC(MIDSCARS. 10,45) 
CCRE-1)=WAL(MIDECARS. 14,2)> 
NEXT RE 

COSUBSE00 : GOSUBS400 

IF B$(2)="H" OR B$(2)=" 1" THEN NF$="TABH":G0T021230 
NF$="TABY" 
COSUBE000 : GOSUBE200 

FOR I=1 TO 12 

PA=1 : GOSUBE800 : INPUT42.AAS 
MT<I>=VWALCLEFTSCARS, 2) 
HTC1, I>=VALCMIDSCARS, 3,3)> 
HT<2, 1)=YALC(MIDECAAS,6,3)) 
PTC1, I)=VALCMIDSCARS,9.,4)) 
PT<2, 1)=VALCMIDSCAAS. 13, 4)> 
CTC1, 1)=VALCMIDSCARS. 17.2) 
CTC2, 1)=WALC(MIDECARAS. 19. 2)> 
NEXT 1 

GOSUBGE00 : GOSUEE400 

FOR b=1 TO MX 

FOR bHW=1 TO 12 

IF MECHI<=MTCHLO THEN 21268 
Pi$(W)=".":Peécuo=",.":P3gcH)=",.":GOTO 21310 
REM CALCULO MEDIA 
YH=CHTC 1 OR HT EZ Hb 2 
YWP=CPTC 1 MINIRPT OZ O 2 
VORCCTC1 MI IOTAE ZW 2 
Hbl=12 






IF HCD VH+C YH. 052 THEN P1$(W)= :COTOZ1220 
5 FT THEN P1$cW)= :60T021280 
3 cu" 

IF PLIDOVP+CVPR.05) THEN P2$c0)="+":C0T021290 

IF PCOND<YP-CVPR.0S) THEN P2$(W)="-":GOTO21290 

8 Pecos 

IF CODO NC+CN OA, OS) THEN P2scdo="+":COTOZ1310 

IF COMO YC C NOA. 05) THEN P3$cb0="-":C0TO21310 
BD F3sc(m="s" 

REN 
S NEXT HH 

3 RETURN 





Archivo símbolos gráficos 


REM 
15 REM CREA ARCHIVO SIMEOLOS GRAFICOS 
REM 


23 OPEN1,8,15 

30 OPEN2,8,3."0:SIMB,L, "+CHR$(16> 

35 FOR J=1 TO 39 

37 S$="" 

39 FOR I=1 TOS 

49 READ S 

45 S1F=5TRÍCS) 

47 IF S=0 THEN S1$="000":G0TOS1 

43 IF S<10 THEN S1$="00"+RICHT$CS1$, 1):60T051 
50 IF S<100 THEN Si$="0"+RIGHT$(S15$,2) 

51 S$=9$+51$ 

52 NEXT 1 

54 Ri=J:R2=0 

55 IF R1>256 THEN R2=INTCJ/256) :R1=R1-256kKR2 
60 PRINTH1,"P"CHR$C(3+96)CHR$CR1)CHRAS$CRZICHRSC1) 
65 PRINTH2,S$ 


70 NEXT J 
75 CLOSE1:CLOSEZ 
80 END 


100 DATAG.06,0,0,0,4,4,4,0,4,10,10,0,0,0 

102 DATA10,31,10,31,106,31,20,31.5,31,17,2,4,8,17 

104 DATAG,0,0,0,0,4,4,0,0,0,2,4,4,4,2 

106 DATAS,4,4,4,38,21,14,31,14,21,4,4,31,4,4 

108 DATAG,6,0,2.4,0,0,31.0,0,0,0,0,0,4 

110 DATA1,2.4,8,16,14,10,10,10,14,6,2,2,2,2 

112 DATA14,2.14.8,14,14,2,14,2,14,10,10,14,2,2 

114 DATA14,5,14,2,14.14,8,14,10,14,14,2,2,2,2 

116 DATR14,10,14.10,14,14,10,14,2,14,0,0,4,0,4 

118 DATAO,4,0,4,5,2,4,3,4,2,0,31,0,31,0 

120 DATAS,4,2,4,8,21.1.31,0,16,0,0,0,0,0 

122 DATA14,17,31,17.,17,30,17,30,17,30,15,16,16,16,15 
124 DATA30.17,17,17,30,31.16,30,16,31,31.,16,30.16,16 
126 DATA1S.,16,19,17,15,17,17,31,17,17,4,4,4,4,4 

123 DATA2.2.2.18,12,17,18,23,18,17,16,16,16,16,31 
130 DATA17,27.,21,17,17,17,25.21,19,17,14,17,17,17,14 
132 DATA31.,17,31,16,16,14,17,21,19,15,31,17,31,18,17 
134 DATA31,16,31,1,31,31,4,4,4,4,17,17,17,17,31 

136 DATA17,17,17,10,4,17,17,21,27,17,17,10.4,10,17 
138 DATA17,16,4,4,4,31,2,4,8,31 
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Menú principal. También en la versión Apple, a los 
diferentes temas corresponden otras tantas voces del 
menú principal. 

La activación de una de estas voces genera la carga y 
el lanzamiento de un programa que, a su vez, contiene 
su propio menú principal. Obsérvese que falta la voz 6 
(en el C-64 sirve para generar el fichero que deberá 
contener los caracteres en alta resolución), puesto que 
la gestión de la página gráfica, y por tanto de los 
caracteres en alta resolución, es interna a los 
programas y no requiere ficheros de apoyo. 


Introducción de los datos. La máscara muestra la 
estructura utilizada por la Data Base médica. El campo 
código representa el número de registros en que están 
memorizados los datos presentados, y puede utilizarse 
como puntero para su búsqueda. 


Calendario vacunaciones. El valor del código, 
utilizado como puntero a los datos, se presenta en 
todas las fases de actualización. La foto de al lado 
muestra la máscara vídeo que aparece al pedir la 
modificación del dato número 2. 

El contenido del fichero, en el registro 2, se lee o se 
presenta en pantalla, y al mismo tiempo se activa el 
procedimiento de variación que permite modificar el 
contenido memorizándolo en lugar de los valores 
anteriores. 


Factor de crecimiento. El control del factor de 
crecimiento también se realiza con programas 
completamente diferentes a los de las otras versiones 
debido a la gestión particular de los gráficos, aunque 
conservan la misma lógica y funcionalidad. La foto 
muestra la estructura de la máscara vídeo utilizada para 
la introducción de las medidas, y es evidente que no 
existen diferencias sustanciales con las otras. 
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Medicina/Versión Apple 


Main 


10 
20 
30 
40 
50 
50 


70 


172 
179 
180 
220 
230 


240 


250 
260 
320 
330 


340 


370 


390 


410 


460 
300. 
510 
520 


530 


REM A ———— 

REMO MAIN-MEDICINA 

REM VERS. DOS 

REM === 

REM INICIALIZACIONES 

DIM TF(15),TP (20) ,LC(20),ND(20),C 
X (20) ,CY (20) ,DX (20) ,DY(20),B$(20) 
,D$120),VO$(10),HE$ (8) 

BPS = CHAS (7): 

NSS = "4"; 

AS$ = CHR$ (95): 

PDS =".": 

BLS 
D$ = CHR$ (4): 
US$ = CHR$ (13): 


ZES = "0": 
rue = "o; 

SL = “/" 

pS =" 5 
BAS = BS + BS + ES + BS: 
ps. un 

TEXT : 

HOME 


ONERR GOTO 40000 
MP$ = "MAIN-MEDICINA" 
GOSUB 500 
RESTORE : 
READ PROG$; 
READ NV: 
MA = NV +1 
FOR I = 1 TO NV: 
READ VO$ (1D): 
NEXT 1 
VO$(MA) = "FIN DE TAREA" 
FOR 1 = 1 TO 15: 
READ TF (1): 
NEXT 1 
L=.0 
FOR 1 = 1 TO NV +1 
L1 = LEN (VO$(1)): 
IF L1 > L THEN L =L1 
NEXT 1 
L=L+S5 
XC.= (42 - L)/2 
YC = (25 - (NV 42 +1)) /2 
GOSUB 1300 
TF OPZ = (MA) THEN FOR I = 1 
TO 1000: 
NEXT 1: 
TEXT: 
HOME : 
END 
LM = 0PZ - 1: 
ON OPZ GOSUB 12000, 8000,5000, 1500 
0,14000 
GOSUB 6700; 
IF IM = 1 THEN PRINT D$: 
PRINT DS; "PRHO": 
PRINT DS: 
IM =0 
Y =53: 
X=. L3 
GOSUB 11000: 
INVERSE : 
PRINT— LEFTS (BA$, 40): 
NORMAL 
GOTO 230 





3 


8 


570 

1300 
1310 
1320 
1330 


1360 


1370 
1380 
1390 
1400 
1410 
1415 


1420 


1440 
1450 


1460 
1470 


1480 


HOME : 

INVERSE : 

PRINT " E. G. S. "+ LEFTS (BAS 
+7) + "EDICIONES FORUM S.A." 
EZ 

NORMAL 

YT = 3: 

TIS = MP$: 

GOSUB 11200 

Y =2: 

x : 

INVERSE : 

GOSUB 11000: 
PRINT_" ": 

X = 40: 

GOSUB 11000; 

PRINT " "5: 

Y = 3: 

X= 1: 

GOSUB 11000: 

PRINT " ": 

X = 40: 

GOSUB 11000: 

PRINT " "52 

Y =4: 

X= 1: 

GOSUB 11000: 
PRINT" "sz 

X = 40: 

GOSUB 11000: 

PRINT " "52 

Y .=.33 

X= 1: 

GOSUB 11000 

PRINT — LEFTS (BA$,40)3: 
NORMAL: 

FOKE 34,5 

RETURN 

REM A 
REM_ MENU PRINCIPAL 


IF 11 = (MA) THEN II =0 
PRINT 11;"- "¿V0$(1) 


NEXT 

I=1 

XS = XC - 2: 
SP = XC - XS 

Y = 112 + YC; 
X = XS: 

GOSUB 11000 
PRINT "->"; 
GET_OPZ$: 


OPZ = VAL (0P27$): 

IF OPZ$ = US$ THEN 1530 
IF OPZ > NV THEN 1450 

IF OPZ$ = ZE$ THEN X = XS: 
GOSUB 11000: 

PRINT_.SPC( SP); : 

I = MA: 

GOTO 1420 

IF ASC (0P7$) > 48 AND ASC (0PZ 
$) < 58 THEN X = XS: 
60SUB 11000: 

PRINT__SPC( SP): 

I = 0PZ: 


1490 


1510 


1520 
1530 


1550 


1560 
1570 
1580 
1590 
5000 
5010 
5020 
3030 


6700 
8000 
8010 
8020 
8030 


10000 
10010 
10020 
10030 
10040 
10050 


10060 


10070 
11000 
11010 
11020 
11030 


11040 
11100 
11110 
11120 
11130 


11140 


11150 
11200 
11210 
11220 
1123 


11235 





GOTO 1420 

IF OPZ$ < > GIU$ THEN 1450 
X = XS: 

GOSUB 11000; 

PRINT — SPC( SP); 

L= 14 1 

IF 1 > (MA) THEN 1410 
GOTO 1420 

X = XC: 
Y=1%t2+YC 

II = 1: 

IF 1 > NV THEN II =0 


“PRINT I13"- "33 


INVERSE 

PRINT VO$(1) 

NORMAL 

OPZ = 1 

RETURN 

A 

REM_ LLAMA TABLAS 
AA BÁñ— 

GOSUB 11500; 

PRINT D$: 

FRINT D$;"RUN TABLAS, D1" 
RETURN 

SÁ Á AAA a 
REM LLAMA DATA BASE MEDICA 

sa. __———_————————>>>>>>——————= 
GOSUB 11500: 

PRINT D$: 

PRINT D$; "RUN DATA BASE MEDICA, D1 





REM mk 

REM DATOS 

REM mm 

DATA "MAIN" 

DATA 5 

DATA "CAL. VACUNACIONES", "DATA BAS 
E MEDICA", "GESTION TABLAS", "FACTO 
R DE CRECIMIENTO", "GRAFICOS" 
DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 

DATA 0,0,0,0,0 
¡ES 

REM POSICIONA CURSOR 
SAS 

HTAB X: 

VTAB Y 

RETURN 

| 

REM ESPERA CARACTER 

REM ===> 

GOSUB 11400: 

YT = 23; 

TIS = "PULSAR UNA TECLA": 
FLASH : 

G0SUB 11200 

PRINT BP$;: 

X = 20: 

Y = 23: 

G0SUB 11000: 

GET_A$: 

GOSUB 11600 

RETURN 


REM CENTRA EN VIDEO 

REA 

IF TIS = "" THEN RETURN 
AO$ = TI$: 

GOSUB 11300: 

A0$ = LEFTS (A0$,40) 


11240 XT = (42 - LEN (A0$)) / 2 
11250 HTAB XT: 
VTAB YT 
11260 PRINT A0$;: 
RETURN 
11300 REM -————_—_—_—__——= 
11310 REM AJUSTA CADENA 
11320 REM —-- 
11325 IF AO$ '" THEN RETURN 
11330 FOR 20 = 1 TO LEN (A0$) 
11340 IF MID$ (A0$,20,1) < >" " 
THEN 11360 
11350 NEXT ZO 
11355 RETURN 
11360 A0$ = RIGHT$ (AO$, LEN (A0$) 
ZO AO 
11370 FOR 270 = 1 TO LEN (A0$) 
11380 IF MIDS (A0$,20,1) < >" " 
' THEN 11400 
11390 IF MIDS (A0$,Z0 + 1,1) 
= " " THEN 11410 
11400 NEXT 20: 
IF. MID$ (A0$,Z0 - 1,1) =" " 
THEN ZO = Z0 - 1 
11410 A0$ = LEFT$ (A0$,Z0 - 1) 
11420 RETURN 
LOREM 
11510 REM PETICION DE ESPERA 
UI 
11530 GOSUB 11600: 
YT = 23 
11540 TI$ = "ESPERE POR FAVOR": 
INVERSE +2 
GOSUB 11200 
11550 NORMAL 
11560 RETURN 
LLO REM e 
11610 REM BORRA ULTIMA LINEA 
11670 REM 
11630 Y = 23: 
X= 1: 
GOSUB 11000 
11640 NORMAL : 
PRINT_ LEFTS (BA$,40)5: 
Y = 10: 
GOSUB 11000 
11650 RETURN 
12000 REM 
12010 REM LLAMA CAL. VACUNACIONES 
LORENA ÁS ESESEÉXK >> AAA 
12030 GOSUB 11500: 
PRINT D$: 
PRINT D$;"RUN VACUNACIONES, Di" 
14000 REM 























14030 GOSUB 11500: 
PRINT D$: 
FRINT D$;"RUN MEDICINA-GRAFICOS, D 
o 
1000 RN AA —— AAA 
15010 REM LLAMA FACTOR DE CRECIMIENTO 
IO RENA ASA 
15030 GOSUB 11500: 
PRINT D$: 
FRINT D$;"RUN CRECIMIENTO, Di" 
10000 REM 
40010 REM GESTION ERROR 
AQ020 RENA 
40030 IF PEEK (222) = S THEN 40130 
40040 IF PEEK (222) < > 8 THEN 40060 
40050 HOME : 
YT = 13: ' 
TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 
G0SUB 11200: 
GOSUB 11100: 
GOTO 400 
40060 1F PEEK (222) < > 13 AND 


PEEK (222) < > 11 THEN 40080 
40070 HOME : 

YT = 13: 

TI$ = "NOMBRE FICHERO NO VALIDO": 

INVERSE : 

G0SUB 11200: 

GOSUB 11100: 

NFS = "X": 

GOTO 400 
40080 IF PEEK (222) < > 9 THEN 40100 
40090 HOME : 

YT = 13: 

TI$ = "DISCO LLENO": 

INVERSE : 

G0SUB 11200: 

GOSUB 11100: 

GOTO 400 
40100 IF PEEK (222) < > 4 THEN 40120 
40110 HOME + 

YT = 13 

TIS$ = "DISCO PROTEGIDO": 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 
40120 IF PEEK (222) < > 6 THEN 40140 
40130 HOME : 

TIS = "NOMBRE FICHERO NO EXISTE": 

YT = 13: 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 
40140 L = PEEK (218) + 256 £ PEEK (21 

9) 
40150 HOME : 

YT = 1312 

TI$ = "ERROR " + STR$ ( PEEK (22 

21) + " IN" + STRS (L): 








GOSUB 11200: 
END 
Tablas 
10 REM - 


20 REM TABLAS DE COMPARACION 

30 REM VERSION DOS 

20 REM 

50 REM INICIALIZACIONES 

60 DIM TF(15),TP(72),LC(72),ND(72),C 
X (72) ,0Y (72) ,DX (72) ,DY (72) ,B$ (72) 
,D$(72),VO$(10),HE$(8) 

CHR$ (7): 

"e. 

CHR$ (95)1 


3 
3 


"om 
D$ = CHR$ (4): 
US$ = CHR$ (13): 
ZES = "0": 
GIUs = " "; 
SLs = "/" 

80 BS =" ” 
BAS = Bs + B$ + BS + BS: 
Bs ="" 

90 HES = "AYUDA. CTRL - Y" 

100  HES$(1) = "CTRL Y. AYUDA (ESPACIO 
PARA CONTINUAR)  " 

110 HES$(2) = "ESC. ANULA TODA LA INTR 
ODUCCION e 

120  HE$(3) = "RETURN. ALINEA Y CONVAL 
IDA INTRODUCCION " 

130  HE$(4) = "CTRL 1. PERMITE LA INSE 
RCION DE ESPACIOS" 

140 — HE$(5) = "CTRL D. BORRA UN CARACT 
ER " 

150 — HES$(6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL > 

160  HES$(7) = "CTRL W,A,S,Z.MUEVEN EN 


170 


172 


174 


176 


178 


179 
180 
220 


230 


240 


320 


330 


É ys 


370 


$8 


390 


400 


410 


510 
520 


540 


LAS 4 DIRECCIONES" 
HES$(8) = "CTRL E. INTRODUCCION EN 
DISCO e 
TEXT : 
HOME : 
YT =1 
TIS = 
ee 
GOSUB 11200 
GET A$: 
IF AS < "1" OR AS > "2" THEN 172 
DR$ = A$: 
PRINT DR$ 
HOME : 
YT = 12: 
TI$ = "INTRODUCIR DISCO DATOS EN 
UNIDAD " + DR$: 
GOSUB 11200: 
GOSUB 11100 
ONERR GOTO 40000 
MP$ = "TABLAS DE COMPARACION" 
GOSUB 500 
RESTORE : 
READ PROG$: 
READ NV; 
MA = NV + 1 
FOR I = 1 TO NV: 
READ VO$ (1): 
NEXT 1 
VO$ (MA) = "FIN DE TAREA" 
FOR 1 = 1 TO 152 
READ TF(1): 
NEXT 1 
L=0: 
FOR I = 1 TO NV + 1 
L1 = LEN (VO$(1)):2 
IF L1 > L THEN L = Li 
NEXT 1 
L=L+*5 
XC = (492 - 1) /2 
YC = (25 - (W82+1)) /2 
GOSUB 1300 
IF OPZ< > (MA) THEN 390 
IF DR$ = "1" THEN HOME 2 
YT = 13: 
TI$ = "INTRODUCIR DISCO PROGRAMAS 
E 
GOSUB 11200: 
GOSUB 11100 
HOME : 
GOSUB 11500: 
PRINT DS: 
PRINT DS; "RUN MAIN-MEDICINA, Di" 
LM = 0PZ - 1: 
ON OPZ GOSUB 12000,5000, 14000 
GOSUB 6700: 
IF IM = 1 THEN PRINT DS: 
PRINT D$;"PRHO": 
PRINT DS: 
IM=0 
Y =5 
X= 1: 
GOSUB 11000: 
INVERSE : 
PRINT  LEFTS (BA$,40)32 


2; 
” 


CUANTAS UNIDADES HAY (1/2) 





PRINT " E. G. S. "+ LEFTS (BAS 
+6) + "EDICIONES FORUM, S.A." 


no": 
NORMAL. 
YT = 3: 


TIS = MPS: 


550 


570 


1310 
1320 
1330 
1350 
1360 


1370 
1380 
1390 
1400 
1410 
1415 


1440 
1450 


1460 
1470 


1480 


1490 
1500 
1510 


1520 
1530 


1540 


1560 
1570 


GOSUB 11200 
Y = 2: 

x= 12 
INVERSE : 
GOSUB 11000: 
PRINT " *: 

XxX = 40: 
GOSUB 11000: 
PRINT-" *52 
Y = 3: 

X= 1: 
GOSUB 11000: 
PRINT " ": 

Xx = 40: 
GOSUB 11000: 
PRINT * ";: 
Y=4: 

X= 1: 
GOSUB 11000: 
PRINT " ": 

X = 40: 
GOSUB 11000: 
PRINT-"""55 
Y = 3: 

X= 1: 
GOSUB 11000 
PRINT  LEFTS (BA$,40)5: 
NORMAL : 


REM — MENU PRINCIFAL 
REM A e a a e e o. 
HOME 
FOR I = 1 TO MA 

Yo 1 452 + YES 

X = XC:3 

GOSUB 11000 

1 = 1 

IF 1I = (MA) THEN II = O 

PRINT 115"- "5V0$(1) 
NEXT 


OPZ = VAL (0PZ$): 

IF 0OPZ$ = US$ THEN 1530 
IF OPZ > NV THEN 1450 

IF OPZ$ = ZE$ THEN X = XS: 
GOSUB 11000: 

PRINT— SPC( SP);: 

I = MA: 

GOTO 1420 

IF ASC (0PZ$) > 48 AND ASC (0PZ 
$) < 58 THEN X = XS: 
GOSUB 11000: 

PRINT— SPC( SP); : 

I = 0PZ: 

GOTO 1420 

IF 0PZ$ < > GIU$ THEN 1450 
X = XS: 

GOSUB 11000: 

PRINT  SPC( SP); 
I=1+41: D 

IF 1 > (MA) THEN 1410 
GOTO 1420 

X = XC: 

Va EX 24 YC 

11 = 1: 

IF 1 > NV THEN II = 0 
PRINT IIz“- "ss 

INVERSE 

PRINT VO$(I) 

NORMAL. 


1580 
1590 


2010 


2030 


3 
ú 


2040 


2050 


2060 
2070 


2090 


2100 
2110 


2120 


2130 
2140 
2150 
2160 
2170 
2180 
2240 


2260 
2270 


2280 


2310 
2320 


2330 


2340 


2343 


2330 


2370 


2380 


2390 


2400 
2410 
2420 


REM — PRESENTA MASCARA 
REM —-— 
HOME : 
Y 
Xx 
ESSUB 11000: 
PRINT " VOZ ";0PZ 
YT =S: 
TIS = HES: 
INVERSE : 
GOSUB 11200: 
NORMAL 
YT =7: 
TIS = INS: 
G0SUB 11200 
IF COX >0 THEN Y = 7: 
X= XT + LEN (IN$) + 1: 
GOSUB 11000: 
FRINT CO 
SP = 33 - LEN (VOS$(0PZ)) 
SPg = "" 
IF SP = O THEN 2100 
FOR J = 1 TO SP: 
SP$ = SP$ + BL$: 
NEXT 
LP = LEN (PROG$) 
SI = INT ((40 - LP) / 2): 
DE = 40 - LP - SI 
SIS = "": 
DES = "" 
FOR J = 1 TO SI 
SI$ = SIS + BLS$ 
NEXT 
FOR J = 1 TO DE 
DE$ = DES + BL$ 





"o 
ve 
e 


NEXT 
REM MASCARA 
FOR J = 1 TO NUC 
As = "“" 
Xx = DX(J): 
Y = DY(J): 
GOSUB 11000: 
PRINT D$(J) 
NORMAL 
IF TP(J) < > 5 AND TP(J) 
< > 4 THEN 2330 
Xx = CX(J): 
Y = CY(J): 
GOSUB 11000 
PRINT B$(J) 
GOTO 2500 
Ni = LC(J): 
N2 = ND(J): 
IF TP(J) = 1 OR TP(J) = 2 
THEN C$ = NS$: 
GOTO 2350 
C$ = AS$ 
IF Ni = 1 THEN AS = C$: 
GOTO 2390 
FOR 1 = 1 TO Ni - N2 - 1: 
AS = AS + CS: 
NEXT 1 
IF N2 = O THEN AS = AS + CS: 
GOTO 2390 
AS = AS + PDS 
= 1 TO N2: 


BSD ="" 
FOR K = 1 TO Ni - N2 - 1 
B$(J) = B$(J) + BLS 


2450 


2460 
2470 


2490 
2510 
2600 
2610 
2620 
2630 
3010 
3020 
3030 
3040 


3050 
3060 
3070 


3090 
3100 


3110 
3120 
3130 


3140 


3150 


3160 


3170 


3180 


3190 


3210 
3220 
3230 
3250 
3270 


3290 


3310 


NEXT K 3 : 
IF N2 = O THEN B$(J) = B$(J) 
+ BL$: 
GOTO 2500 
B$(J) = B$(J) + PDS$ 
FOR K = 1 TO N2 
B$(J) = B$(J) + BL$ 
NEXT K 
NEXT J 
RETURN 
REA AAA 
REM COMPLETA MASCARA 





REM — DATA ENTRY 
RENA 

J=-1 

NC = J: 

X = CXINC) 5 

Y = CY (NC) 

Cc = 1 

GOSUB 3240 

IF FS = O THEN 3100 

IF FS > 4 THEN 3210 

GOTO 3120 

Jy=J+1: 

IF J > NUC THEN 3030 

GOTO 3040 ' 

ON FS GOTO 3130,3150,3170,3190 
IF J >1 THEN J =J- 1: 
GOTO 3040 

PRINT BP$;: 

FS = 0: 

J = NUC: 

'50TO 3040 

IF J < NUC THEN J =J + 1: 
GOTO 3040 

PRINT BP$;: 

FS = 0: 

GOTO 3030 

IF CC < LC(J) THEN SO = 1: 
CC = CC + 1: 

AREA 

GOSUB 11000: ) 
GOTO 3060 

PRINT BP$: 

FS = 0: 

GOTO 3100 

IF CC > 1 THEN SO = - 1: 
Cc = CC - 1: 

X= X- it: 

GOSUB 11000: 

GOTO 3060 


-PRINT BP$;: 


FS = 0: 
GOTO 3040 
IF FS > 8 THEN FS 


O: 


- GOTO 3060 


" 
Se 


IF FS = 8 THEN FS 
GOTO 3100 

RETURN 

REM PP e a 
REM LECTURA DE UN CAMPO 
REM ——— 
FS=0 
IF TP(NC) = 4 THEN RETURN 

IF TP(NC) = 2 THEN GOSUB 9000: 
B$(NC) = LEFTS (B$(NC),LC(NC1): 
CC = LEN (B$(NC)) + 1: 

GO0SUB 4080: 

RETURN 

IF MID$ (B$(NC),CC,1) = PD$ 
THEN X = X + SO: 

CC = CC + SO 

GOSUB 11000 

GET A$: 

IF AS = "" THEN 3320 

CA = ASC (A$): 





IF CA > 31 THEN 3380 
3340 FOR I = 1 T0 15 
3350 IF TF(1) = (CA) THEN FS 
= 1: 
GOSUB 3630: 
RETURN 
3360 NEXT I 
3370 GOTO 3320 
3380 IF TP(NC) < > 1 THEN 3440 
3390 IF CA = 45 OR CA = 46 OR (CA 


> = AB ANDCA< = 57) THEN 341 


1) 
3400 PRINT BP$;: 
GOTO 3320 
3410 IF CAX > 46 THEN 3440 
3420 GOSUB 4270 
3430 IF SWP = 1 THEN 3400 
3440 SO = 1: 
E GOSUB 3520 
3450 IF CC = LC(NC) THEN RETURN 
3460 CC = CC + 1: 


X= XA +13 

GOTO 3300 
a  _—__—_—_—— 
3530 REM TRANSFERENCIA AL BUFFER 
SO A 
3550 IF CC = 1 THEN SN$ = ""z 

GOTO 3570 


3560 SN$ = LEFT$ (B$(NC),CC - 1) 
3570 IF CC = LC(NC) THEN DS$ = "":z 
GOTO 3590 
3580 N= LC(NC) - CCz 
DS$ = RIGHTS (B$(NC),N) 
3590 B$(NC) = SN$ + A$ + DS$ 
3620  PRINT A$: 
RETURN 
IESO Mania 
3640 ..REM_ COMANDOS 
SEJONLREM eine, 
3660 IF FS. > = 5 THEN 3690 


3670 IF FS = 5 AND TP(NC) = 1 THEN 


GOSUB 4080 

3680 RETURN 

3690....1F..FS. 5.2. THEN..GOSUB 13000: 
RETURN 

3700...1F.FS.=.8. THEN. GOSUB 4080: 
RETURN 

3710...1F..FS <.8 THEN. RETURN 

3720 ON FS - 9 GOSUB 3740,3910 

3730... RETURN 

A 

3750...REM... INSERCION 

A 


3770...1F._CC.= LC(NC) THEN PRINT BP$: 


RETURN 
37801 CC=. 1 THEN SN$ ="", 
GOTO 3800 
3790.SN$_= LEFTS (BS(NC),CC - 1) 
3800 N = LC(NC) - CC + 1: 
DS$ =. RIGHTS (BS(NC),N) 
3820 C$ = BL$ 
3830 A$ = SN$ + C$ + DS$ 
3840 BS(NC) = LEFTS (A$,LC(NC)) 
3850 XX =X: 
YY = Y 
3860 X= CX(NC): 
Y = CYINC): 
GOSUB 11000 
3870 X= XX: 
Y.= YY 
3880 PRINT BS$(NC): 
S0,=.=.1 
3890 IF RIGHTS (BS(NC),1) = PD$ 
THEN 3780 
3900 RETURN 
3910 REM_ == 
3920 REM BORRADO 


330 REM III 
13940 —1F TP(NC) <-> 1 THEN 3960 


A A A A 


3960 


3970 


3980 


4010 


4030 
4040 


4060 


4070 


4080 
4090 
4100 
4110 
4120 
4130 


4140 


4150 


4160 
4170 
4180 
4190 
4200 
4210 
4220 


4230 


4240 


4250 
4260 


4270 
4280 
4270 
A300 
4310 


4320 
A330 


4340 
5000 
5010 


5020 
5030 


5040 


5050 





IF MID$ (B$(NC),2,1) = PD$ 
AND CC = 1 THEN RETURN 
IF CC < 1 THEN PRINT BP$: 
RETURN 

IF CC = LC(NC) THEN DS$ = "": 
GOTO 4000 

N = LC(NC) - CC: 

DS$ = RIGHT$ (BS$(NC),N) 

IF CC = 1 THEN SN$ = "": 
GOTO 4010 

SN$ = LEFTS (B$(NC),CC - 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN C$ = NS$: 

GOTO 4030 

C0$ = AS$ 

B$ (NC) = SN$ + DS$ + C$ 

XX =X: 

YY = Y 

X = CX (NC): 

MY NC 

GOSUR 11000 

X = XX: 


Y = YY 
PRINT BS (NC): 
SO = 1: 
RETURN 
REM A 
REM_ ALINEADOS 
REM A 
IF LC(NC) = 1 THEN RETURN 
Ni = LC(NC) - CC + 1 
IF CC = 1 THEN BS$(NC) = "": 
GOTO 4150 
BS$(NC) = LEFT$ (B$(NC),CC 
1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN 4200 
FOR I = 1 TO Ni 
B$ (NC) = B$(NC) + BL$ 
NEXT_1 
GOTO 4240 
FOR 1 .= 1 TO N1 
BS (NC) = BL$ + B$(NC) 
NEXT_1 
IF RIGHTS (B$(NC),1) = PDS$ 
THEN B$(NC) = BL$ + LEFTS (BS(N 
C),LC (NC) - 1) 
X= CX (NC): 
Y = CY (NC) 
GOSUB 11000 
PRINT B$ (NC): 
RETURN 
REM AA 
REM_ CTRL.PUNTO 
REM 


SsuP = 0 
IF CC = 1 OR CC = LC(NC) THEN SWF 
=1: 
RETURN 
FOR I = 1 TO LC(NC) 
IF — MIDS (B$(NC),1,1) = PD$ 
THEN 1 = LC(NC): 
SWP = 1: 
RETURN 
NEXT 1: 
RETURN 
REMESE 
REM_ VARIACION TABLAS 
A A 
HOME : 
YT = 13: 
TI$ = "VARONES O HEMBRAS ? (V/H)" 
GOSUB 11200 
GET As$: 
IFAS< > "Y" ANDAS<X > "H" 
THEN 5030 
NFS = "TABV": 
IF A$ = "H" THEN NFS = "TABH" 





5060 


5070 


5080 


5090 


5100 
si10 


5120 


5125 


5130 


3140 


5145 
5150 


5155 


5160 
5170 


5180 


5190 


5210 


5220 
5230 





32270 
3300 
3310 
6000 


$010 
£020 


LR = 20: . 
GOSUB 6000 
LM = 0: 
GOSUB 7000 
NUC = 72: 
J=1 
R= 1: 
FOR 1 = 6 TO 66 STEP 6 
FOR J= 17106 
TP(JY + 1) = 4: 
LC(J + 1) = LC(D): 
ND(Y + 1) = ND(J): 
CX(J + 1) = CX(J): 
CY + 1) = CY) +R: 
DX(J + 1) = 1: 
DY(J + 1) = 1 
NEXT J: 
R=R+ dt: 
NEXT 1 
FOR I = 1 70 6: 
TP(D) = 4: 
NEXT_I 
K= de: 
FOR NR = 1 TO 12: 
JO = 3: 


GOSUB 6200: 
FOR J=1T06 
B$(K) = MID$ (AA$,JO,LC(J) 
) 
JO = JO + LC(J) 
K=K<+d: 
NEXT y 
NEXT NR 
GOSUB 2000 
Y =9: 
X= 8: 
GOSUB 11000: 
PRINT "ALTURA"; TAB( 21);"PESO"; 
TAB( 31);"C.CRANEO" 
PRINT " EDAD"; TAB( 8); "MIN MAX"; 
TAB( 19)3"MIN MAX"; TAB( 31); 
"MIN MAX" 
M$ = "NAO306091215182136486072": 
ad 
X= 3: 
FOR Y = 12 TO 23: 
GOSUB 11000 
PRINT_ MID$ (M$,1,2): 
A 
NEXT Y 
FOR I = 1 TO 72: 
TP(D = 1: 
NEXT 1 
GOSUB_3000:; 
IF FS. = 7 THEN RETURN 
IF FS = 6 THEN 5125 


GOSUB 6400: 
AAS = MID$ (M$,10,2): 
10,= 10.+ 2: 
SOTO 5300 
da 
GOTO 5270 
K=KkK+1 
NEXT 1 
GOSUB_£400: 
RETURN 
REM III III 
REM APERTURA FICHERO 
REM II 
PRINT DS 


6040 


6050 
$060 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6700 
6710 
6720 
6800 
7000 
7010 
7020 
7030 
7040 


7050 


7060 
7079 


7075 
7080 
7085 


7090 
7092 
7095 


7100 


7110 


7120 
8300 
esto 
8520 


8540 


8560 


8565 


8370 
8580 





PRINT DS; "OPEN"¿NF$ + ",D" 

+ DR$¿",LUGLR + 2 

FRINT D$ 

RETURN 

REM A 

REM LECTURA REGISTRO 

NAAA =S 

FRINT Ds 

PRINT D$;"READ";NF$;",R'"; NR 

INFUT AAS 

PRINT DS$ 

RETURN 

REM AA A 

REM ESCRITURA REGISTRO 

REM a a a a 

PRINT Ds 

PRINT DS; "WRITE"¿NF$7",R"¿NR 

PRINT — CHR$ (34) + AAS$ 

PRINT D$ 

RETURN 

REM ¡XX 

REM_ CIERRA FICHERO 

REM —— rm e o. 

PRINT Ds 

PRINT D$;"CLOSE"¿NF$ 

PRINT D$ 

RETURN 

a _  _ 

REM CIERRA TODOS LOS FICHEROS 

== —_—_—_—————_—_— 

RETURN 

A 

REM LECTURA DE LOS DATOS 

RE === 

RESTORE 

READ DA$: 

READ NV 

FOR I = 1 TO NV + 15: 
READ DA$: 

NEXT_1 

IF LM = O THEN 7075 

ND = 0: 

FOR 1 
REA 
ND 

NEXT_1 

READ NUC: 

IF NUC = O THEN RETURN 

IF NV - LM- 1 = 0 THEN 7090 

FOR I = 1 TO NV - LM- 1: 
READ DA$: 

NEXT_1 

IF LM = O THEN 7100 

IF_ND = 0 THEN 7100 

FOR 1 = 1 TO ND: 

READ DAS: 


O TO LM - 1: 
DA: 
ND + DA + (DA k 7): 


.o 


FOR_1 = 1 TO NUC: 
READ D$(1):; 


FOR 1 = 1 TO NUC: 
READ TP(I),LO(I),ND(I),DX(1),D 
YD ¿CX(D CY (Ds 

NEXT 1 

RETURN 

REM 

REM LECTURA FICHEROS 

REM 

BOSUB 6200 

FOR 19 = 1 TO NUC 
IF TP(19) = 4 THEN LC(I9) 


TS 
GOTO 8570 
B$(19) = MID$ (AA$,1 + LC(19 
= 1),LC(19)) 
LC(19) = LC(19) + LC(19 
30 
NEXT_19 
GOSUB 7000: 


8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 


9000 
9010 
9020 
10000 
10010 
10020 
10030 
10040 
10050 


10060 


10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
11000 
11010 
11020 
11030 


11040 
11100 
11110 
11120 
11130 


11140 


11150 
11200 
11210 
11220 
11230 
11235 


11240 
11250 


11240 


11300 
11310 
11320 
11325 
11330 
11340 


11350 
11355 
11360 


11370 
11380 


11390 


RETURN 
REM 22 
REM ESCRITURA FICHEROS 
REM 
ARS ="" 
FOR 19 = 1 TO NUC 
IF TP(19) = 4 THEN 8770 
AAS = ARS + BS(I9) 
NEXT 19 
SOSUB 6400: 
RETURN 
REM —--—-- 
REM CALCULOS . 
REM -- 
REM -—-—— 
REM DATOS 
REM -—-- 
DATA "TABLAS DE COMPARACION" 
DATA 3 
DATA "CREACION TABLAS", "VARIACION 
TABLAS", "IMPRESION TABLAS" 
DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 
DATA 6,0,0 
DATA "0,00, 06 nu un me 
DATA 1,3,0, 
DATA 1,3,0, 
DATA 1,4,1, 
1,4,1, 
120, 





DATA 
DATA 135.15 
DATA 1,2,0,1,1,35,12 
AN =EE EAS 
REM POSICIONA CURSOR 
AAA === 
HTAB Xz 

VTAB Y 

RETURN 

REM_ ===" 
REM ESPERA CARACTER 
REM_ === 
GOSUB 116400: 

YT_= 23: 

TI$ = "PULSAR UNA TECLA": 
FLASH: 

GOSUB 11200 

PRINT BF$;: 

Xx = 20: 

Y = 23: 

GOSUB 11000: 

GET A$: 

G0SUB 11400 

RETURN 

REM -——————— 
REM CENTRA EN VIDEO 


IF TIS = "" THEN RETURN 
A0$ = TI$: 

GOSUB 11300: 

A0$ = LEFT$ (A0$,40) 

XT_= (42 - LEN (A0$)) / 2 
HTAB XT: 

VTAB YT 


RETURN 
REM 
REM _AJUSTA CADENA 


= 110 HEN, RETURN 
FOR 70 = 1 TO LEN (A0$) 
IE. _MIDS, 00%,20, 1d ondo convo 
THEN 11360 
NEXT 20 
RETURN 
AO0$ =  RIGHT$ (A0%, LEN (A0$) 
LORA) 
FOR 20 = 1 TO LEN (80$) 
IF MIDS (00$,70,1) < >" " 
THEN 11400 a 
IF MIDS (A0$,Z0 + 1,1) 


= " " THEN 11410 


11400 NEXT_ZOz 


IF. MIDS (A0$,Z0 - 1,1) =" " 
HEN ZO = 20 - 1 


11410 A0$ = LEFT$ (A0$,70 - 1) 
11420 RETURN. 





11500 REM .. 
11510 REM PETICION DE ESPERA 
11520. REM ——-——--— 
11530 GOSUB 11600; 

YT-= 23 
11540 TI$ = "ESPERE, POR FAVOR": 


11550 
11560 
11600 
11610 
11620 
11630 


11650 
11700 
11710 
11720 
11730 
11735 
11740 


11750 


11760 
11770 


11780 
11800 
11810 
11820 


11830 
11940 


11850 
11860 


11870 
11880 
11900 
11910 
11920 
11930 


11940 
12000 
12010 
12020 
12030 


12040 


12050 
12060 


12070 


INVERSE : 

GOSUB 11200 

NORMAL 

RETURN 

REN 
REM_BORRA ULTIMA LINEA 
REM 


PRINT__LEFTS (BA$,40);: 
Y = 10: 





REM ALIN. DERECHA EN VIDEO 
A 
IF TIS = "" THEN RETURN 
IF_XT_>.40 THEN XT. = 40 
A0$ = TI$: 

GOSUB 11300 

Xx LEN (A0$) + 

tt 

Y =YT 

IF. X.< 1 THEN X= 41 

G0SUB 11000: 

PRINT A0$; 

RETURN 
A 
REM ALIN. IZQUIERDA EN VIDEO 
EN KK AA A A AAA 


TF TIS = "" THEN RETURN 
AO0$ = TI$; 


GOSUB 11300 

IF XT < 1 THEN XT =1 
X = XT: 

Y = YT: 

GOSUB 11000 

PRINT_A0$; 

RETURN 

REM A 
REM AVISO DE ERROR 

REM === 277577 
HOME +: 

YT.=.13: 

TIS = "ERROR DE INTRODUCCION": 
INVERSE..: 

GO0SUB 11200: 

GOSUB 11100 

RETURN 

cs 
REM CREACION TABLAS 

A — 
HOME + 

dde 

TI$ = "VARONES O HEMBRAS ? (V/H)" 


G0SUB 11200 

GET_A$: 

IF A$< > "UV" ANDAS < > "H" 
THEN 12030 

NF$ = "TABV": 

IF A$ = "H" THEN NF$ = "TABH" 

LR = 20: 

GOSUB 6000 

HOME : 


GOSUB 7000: 


NUC_= 72: 
J=1 
12072 R = 1: 
FOR 1 = 6 TO 66 STEP £ 
12074 FOR J = 1706 
12076 TP (Y + 1) = TP): 
LC + DD =LC(): 
ND(JY + 1) = ND(J): 
CXq + 1D = CX(): 
CY + 1) = CY) +R: 
DXY + 1) =1t: 
DY(J + 1) =1 
12078 NEXT J: 
Ra. Ri +18 
NEXT 1 
12079 GOSUB 2000 
12080 YT = 7: 


TI$ = "CREACION": 
GOSUB 11200 
12090 Y = 9: 
X= 8: 
GOSUB 11000: 
PRINT "ALTURA"; TAB( 21)3"FESO"; 
TAB( 31);"C.CRANEO" 
12100 PRINT " EDAD"; TAB( 8); "MIN MAX"; 
TAB( 19);"MIN MAX"; TAB( 31); 
"MIN MAX" 
12110 M$ = "NAO3O6091215182134486072": 
I=1 
12120 X = 3: 
FOR_Y = 12 TO 23: 
GOSUB 11000 
12130 PRINT__MIDS (M$,1,2): 
a 
12140 NEXT. Y 


12160 GOSUB 3000: 
IF FS = 7 THEN RETURN 


12170 IF FS = 6 THEN 12079 
12180 J = 1: 
AAS = "NA": 
K= 1: 
10 = 3: 
FOR I = 1 TO 12 
12190 AAS = AAS + B$(K) 
12200 J=J+1: 
IF J >6 THEN J = 1: 
NR = 1: 
GOSUB 4400: 
AAS = MIDS (M$, 10,2): 


10 = 10 + 2: 
GOTO 12220 
12210 K=K+dt 
GOTO 12190 
12220 K=K+dt: 
NEXT 1 
12230 GOSUB 6600: 
RETURN 
13000 REM -----= 
13010 REM AYUDA 
130205 REM 
13030 XX = X: 
vw =Y 
13040 INVERSE 
13050 K = 1 
13060 X = 1: 
Y =5: 


GOSUB 11000 
13070 PRINT HE$(K); 
13080 B= PEEK ( - 16384) 
13090 POKE - 16368,0 
13100 IF B< 128 THEN 13080 
13110 IF B< > 160 THEN 13080 
13120 K =K + 1: 
IF K > 8 THEN 13140 
13130 GOTO 13060 
13140 Y = S: 
X= 1 
GOSUB 11000: 


13150 


13160 
13170 


13180 
14000 
14010 


14020 


14030 


14040 


14050 


14060 


14070 


14080 


14090 


14100 


14110 


14120 


14130 


14140 
14150 
14160 


14170 
14180 
14190 


40020 
40030 
40040 
40050 


40070 


PRINT— LEFT$ (BA$,40); 
YT = 5: 





REM IMPRESION TABLAS 
REA 

HOME : 

YT = 13: 

TI$ = "VARONES O HEMBRAS * (V/H)" 


G0SUB 11200 

GET AS: 

IFAS< > "VU" ANDAS<X > “H" 

THEN 14030 

NFS = "TABV": 

IF A$ = "H" THEN NF$ = “"TABH" 

LR = 20: 

GOSUB 6000 

HOME : 

TI$ = "EN VIDEO O IMPRESORA ? (Y/ 

1): 

GOSUB 11200 

GET_A$: 

IF AS < > "V" ANDAS<X > "I" 

THEN 14070 

IF A$ = "I" THEN IM = 1: 

PRINT DS: 

PRINT D$;"PRH1": 

PRINT_DS$ 

HOME : 

X= 8: 

Y =7: 

GOSUB 11000 

PRINT "ALTURA"; TAB( 21)3"PESO"; 

TAB( 31);"C.CRANEO" 

PRINT " EDAD" TAB( 8); "MIN MAX“; 

TAB( 19); "MIN — MAX"; TAB( 31);" 

MIN MAX" 

PRINT : 

LM = 0: 

GOSUB 7000 

FOR NR = 1 TO 12 
GOSUB 6200 
PRINT— TAB( 3); LEFTS (AA$,2); 
TAB( 8); MID$ (AM$,3,3)5 
TAB( 12); MIDS (AAM$,6,3); 
TAB( 19); MIDS (AA$,9,4); 
TAB( 24); MIDS (AA$,13,4); 
TAB( 32); MID$ (AA$, 17,2); 
TAB( 35); MIDS (AA$,19,2) 

NEXT NR 


IF IM< > 1 THEN GOSUB 11100 
RETURN 

REM: ————-— 

REM _GESTION ERROR 

REM 

IF PEEK (222) = S THEN 40130 


IF PEEK (222) < > 8 THEN 40060 
HOME : 
YT = 13: 

TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 

GOSUB 11200: 

GOSUuB 11100: 

GOTO 400 

IF PEEK (222) < > 13 AND 

PEEK (222) < > 11 THEN 40080 
HOME 3 

YT = 13: 

TI$ = "NOMBRE FICHERO NO VALIDO": 
INVERSE : 

G0SUB 11200: 

GOSUB 11100: 

NFS = "X": 





40080 
40090 


40100 
40110 


40120 
40130 


40140 


40150 


40 


s0 
$0 


GOTO 400 

IF PEEK (222) < > 9 THEN 40100 
HOME : 

YT = 13: 

TI$ = "DISCO LLENO": 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 

IF | PEEK (222) < > 4 THEN 40120 
HOME : 

YT = 13: 

TI$ = "DISCO PROTEGIDO": 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

G0TO 400 

IF PEEK (222) < > 6 THEN 40140 
HOME : 

TI$ = "NOMBRE FICHERO NO EXISTE": 
YT = 13: 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 

L = PEEK (218) + 256 k PEEK (21 
o) 

HOME : 

YT = 13: 

TI$ = "ERROR "+ STR$ ( PEEK (22 
2)) +" IN "+ STRS (L): 

GOSUB 11200: 

END 


REM 
REM MEDICINA — GRAFICOS 








REM 

ONERR GOTO 40000 

TEXT : 

HOME 

BP$ = CHR$ (7): 

D$ = CHR$ (4) 

DIM MT (12) ,PT(2,12),HT(2,12) ¿CT (2 
,12),M(20),P (20) ,H(20) ,CF (20) MI ( 

20),ME (2,12) 

HOME : 

YT = 13: 

TI$ = "CUANTAS UNIDADES HAY ? (1/ 
2D" 

GOSUB 11200 

GET A$: 

IFAS< > "1" ANDAS > “2" 
THEN 30 

DR$ = "2": 

IF AS = "1" THEN DR$ = "1": 

HOME 3 

TIS = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD" + DR$: 

G0SsuB 11200: 

G0SUB 11100 


GOSUB 14000 
HOME : 


YT = 13: 
TI$ = "ALTURA, PESO, O CIRC. CRAN 
EANA 2(A/P/C)": 
GO0SUB 11200 
GET A$: 
IF A$< > "A" ANDAS > "P" 
ANDAS. < > "C” THEN 60 
MIS = AS 
FOR I = 1 TO 12: 
IF MIS = "A" THEN ME(1,1) 
= HT(1,D): 
ME(2,1) = HT(2,D) 
IF MIS = "P" THEN ME(1, 1) 
= PT(1,D: 
ME(2,1) = PT(2.1) 


100 


110 
120 
130 
140 
150 
170 
180 
190 


210 


240 


270 
280 


310 


330 


340 


370 


390 


410 
420 


430 


440 


s10 
520 


IF MIS = "C" THEN ME(1,1) 
= CT(1,1): 
ME(2,1) = CT(2,1) 
NEXT I 
FOR I = 1 TO 20: 
IF MIS = "A" THEN MI(I) 
= HD) 
IF MIS = "P" THEN MI(I) 
=P(D 
IF MIS = "C" THEN MI(I) 
= CF(1) 
M(1) = M(I) £ 3 + 30 
NEXT 1 
MA = 0: 
FOR 1 = 1 TO 20 
IF MI(I) > (MA) THEN MA 
= MI) 
NEXT 1 
FOR 1 = 1 TO 12 z 
IF ME(2,1) > (MA) THEN MA 
= ME(2,1) 
NEXT 1 5 
FOR I = 1 TO 20: 
MI(D) = MI(D) / MA 
MID = 157 - MIC) 8 145: 
IF 1 > 12 THEN 270 
ME(1,1) = ME(1,1) / MA:z 
ME(1,1) = 157 - ME(1,1) 
1 145 
ME (2,1) = ME(2,1) / MAz 
ME (2,1) = 157 - ME(2,1) 
* 145 
NEXT 1 
GOSUB 6600: 
GOSUB 18000 
Yi = ME(1,1)1 
Y2 = ME(2,1): 
XX = 29: 
10 = 2 
FOR X = 38 TO 92 STEP 9 
HPLOT XX,Y1 TO XX,ME(1,10) 
TO X,ME(1,10) 
HPLOT XX,Y2 TO XX,ME(2,10) 
TO X,ME (2, 10) 
XX = Xi 
Yi = ME(1,10): 
Y2 = ME(2,10)3 
10 = 10 +1 
NEXT X 
FOR X = 137 TO 245 STEP 36 
HPLOT XX,Y1 TO XX,ME(1,10) 
TO X,ME(1,10) 
HPLOT XX,Y2 TO XX,ME(2,10) 
TO X,ME(2,10) 
XX =X: 
Yi = ME(1,10): 
Y2 = ME(2,10)s 
10 = 10 + 1 
NEXT X 
IF MIS = "A" THEN A$ = "ALTURA" 
IF MIS = "P" THEN A$ = "PESO" 
IF MIS = "C" THEN A$ = "CIRCUNFER 
ENCIA CRANEANA" 


INVERSE 2 

PRINT " E. G. S. "+ LEFTS (BAS 
,6) + "EDICIONES FORUM, S.A.” 
no" 

NORMAL. 

YT = 3: 

TIS = MPS: 


G0SuB 11200 
5350 Y = 2: 

X= 1: 

INVERSE : 

BOSUB 110001 

PRINT " “sz 

X = 40: 

GOSUB 11000: 

PRINT " *: 

Y = 3: 

X= 1: 

GOSUB 11000: 

PRINT * “3 

Xx = 40: 

GO0SUB 11000: 

PRINT " "53 

Y = 4: 

X= 13 

G0SUB 11000: 

PRINT * "s 

X = 40: 

GO0SUB 110003 

PRINT *" "33 

Y = 5: 

X= 1: 

G0SUB 11000 
560  PRINT LEFTS (BA$,40)332 

NORMAL : 

POKE 34,5 
570 RETURN 
5000 RUN 
¿000 REN === 
6010 REM APERTURA FICHEROS 
EN A === A] 
6030 PRINT D$ 
6040 PRINT D$;"OPEN";NF$ + ",D" 

+ DR$;",L“¿LR + 2 
6050 PRINT DS 


6210 REM LECTURA REGISTRO 
6220 REM === 
6230 PRINT DS . 

6240  PRINT D$;"READ"¿NFS;",R"¿NR 
6250 INPUT AAS 

6260 PRINT DS 

6270 RETURN 

$400. REM.- 
6410 REM ESCRITURA REGISTRO 


6420 REM >= 


6430 PRINT DS 

5440 PRINT DS; "WRITE"¿NF$;",R"¿NR 
5450 PRINT CHR$ (34) + AAS 

6460 PRINT DS 

6470 RETURN 

SEDO: REN: == 22 

6610 REM CIERRA FICHEROS 


6650 PRINT D$ 
6660 RETURN 
LLO REA 
11010 REM POSICIONA CURSOR 
LOL REM AAA 
11030 HTAB X: 
VTAB Y 
11040 RETURN 
11100 REM . 
11110 REM ESPERA CARACTER 
NI A 
11130 GOSUB 11600: 
YT = 23: 
TI$ = "PULSAR UNA TECLA": 
FLASH 2 
G0SUB 11200 
11140 PRINT BP$;: 
X= 20: 
Y = 23: 





11150 
11200 
11210 
11220 
11230 
11235 


11240 
11250 


11260 


11300 
11310 
11320 
11325 
11330 
11340 


11350 


11355. 


11360 


11370 
11380 


11390 


11400 


11410 
11420 
11500 
11510 
11520 
11530 


11540 


11550 
11560 
11600 
11610 
11620 
11630 


11640 


11650 
11700 
11710 
11720 
11730 
11735 
11740 


11750 


11760 
11770 


11780 
11800 
11810 
11820 
11830 
11840 


11850 


GOSUB 11000: 

GET A$: 

G0SUB 116500 

RETURN 

AAA 

REM CENTRA EN VIDEO 

REN —————— 

IF TIS = "" THEN RETURN 
A0$ = TI$: 

GOSUB 11300: 

AO$ = LEFTS (A0$,40) 
XT_= (42 - LEN (A0$)) / 2 
HTAB XT: 

VTAB YT 

PRINT A0S$;: 

RETURN 

WA 

REM AJUSTA CADENA 

REM ¡€_—E—-— 

IF AOS = "" THEN RETURN 
FOR 20 = 1 TO LEN (A0$) 


IF MID$ (A0$,20,1) < >" " 
THEN 11360 

NEXT_Z0 

RETURN 

AO$ = RIGHTS (AOS, LEN (A0$) 


201) 

FOR 20 = 1 TO LEN (A0$) 
IF MIDS (A0$,20,1) < >" " 
THEN 11400 
IF MID$ (A0$,Z0 + 1,1) 
= " " THEN 11410 

NEXT 70: 

IF __MIDS (A0$,20 - 1,1) = " ” 

THEN ZO = Z0 - 1 

A0$ = LEFTS (A0$,Z0 - 1) 

RETURN 

A ———_————— 

REM PETICION DE ESPERA 

E —_—— == — === 

GOSUB 116400: 

YT = 23 

TI$ = "ESPERE, POR FAVOR": 

INVERSE : 

G0SUB 11200 

NORMAL 

RETURN 

SA SS 

REM BORRA ULTIMA LINEA 

E =_>A>A === 

Y = 23: 

X= 1: 

G0SUB 11000 

NORMAL; 

PRINT — LEFTS (BA$,40)3: 

Y = 10: 

GOSUB 11000 

RETURN 

REM 

REM ALIN, DERECHA EN VIDEO 

REM 

IF TIS = "" THEN RETURN 

IF XT > 40 THEN XT = 40 

A0$ = TIS: 

GOSUB 11300 

LEN (A0$): 

A 

YT 


"n.o. 


X 
x 
Y 
IF X < 1 THEN X =4 

GOSUB 11000: 

PRINT A0$; 

RETURN 

REM 
REM ALIN. IZQUIERDA EN VIDEO 
REM 
IF TIS = "" THEN RETURN 
AOS = TIS: 

GOSUB 11300 

IF XT < 1 THEN XT =4 


11860 


11870 
11880 
14000 
14010 
14020 
14030 


14040 


14045 
14050 


14055 


14060 


14070 
14080 


14085 
14090 
14100 


14110 


14120 


14130 


14140 
14150 
14160 


14170 


14180 


14190 


14200 


14210 


14220 


14230 


X = XT: 

Y = YT: 

GOSUB 11000 

PRINT A0$; 

RETURN 

RENA = 

REM GRAFICOS 

REM === 

HOME : 

YT = 13: 

TI$ = "NOMBRE (*0” PARA SALIR)": 
GOSUB 11200 

INPUT N$: 

IF N$ = "" THEN 14030 

IF N$< > "0" THEN 14060 

TEXT 
HOME: 
IF DR$ = "1" THEN YT = 13: 

TI$ = "INTRODUCIR EL DISCO PROGRA 
MAS": 

GOSUB 11200: 

GOSUB 11100 

GOSUB 11500: 

PRINT D$: 

PRINT D$; "RUN MAIN-MEDICINA, Di" 
NF$ = LEFTS (N$,3): 

LR = 20: 

GOSUB 6000: 

NR = 1: 

GOSUB 6200 

A$ = MID$ (AA$,7,1) 

NF$ = "TABV": 

IF AS = "H" THEN NFS = "TABH" 

LR = 203 

GOSUB 6000 


FOR NR = 1 TO 12 


GOSUB 6200: 
MT(NR) = VAL ( LEFTS$ (AA$,2)) 


HT(1,NR) VAL ( MIDS (AMS, 3, 
3)): 
HT(2,NR) = VAL ( MID$ (AA$,6, 
3)) 
PT(1,NR) = VAL ( MIDS (AA$,9, 
4) 
PT(2,NR) = VAL ( MID$ (AA$,13 
2) 
CT(1,NR) = VAL ( MID$ (AA$,17 
,2))3 
CT(2,NR) = VAL ( MIDS (AA$,19 
.2)) 

NEXT NR 

NF$ = LEFTS (N$, 3) 

NR = 1: 

GOSUB 6200: 

MX VAL ( MID$ (AA$,14,2)) 

NG VAL ( MID$ (AA$,8,2))3 

NM = VAL ( MIDS (AA$,10,2)): 

NA VAL ( MID$ (AA$,12,2)) 

FOR RE = 


VAL ( LEFTS (AA$,2)):2 
VAL ( MIDS (AA$,3,2)): 
VAL ( MID$ (AA$,5,2)) 
AA - NA: 

MM - NM: 

DD - NGz 

P=0: 

IF GP > 15 THENP =1 
M(NR — 1) = 12% AP. + MP 

+8 

H(NR — 1) = VAL ( MIDS (AAS,7 
ls 

P(NR —- 1) = VAL (_MIDS (AAS$, 1 
0,41): 

CF(NR — 1) = VAL ( MIDS (ARS, 
14,2)) 


5343838 


14240 NEXT RE 


14250 
18000 
198010 
18020 
18030 


18040 


18060 


18070 


18080 


18090 


18100 


18110 


18120 


18130 


18140 


18150 


18160 


18170 


18180 
18200 
18210 
18220 
18230 


18250 
18260 


18270 
185300 
18510 
18520 
18530 


198540 


18550 
18570 


RETURN 
RN 
REM DIBUJA EJES 
REM ----—-——— 
HGR2 : 
HCOLOR= 3: 
HPLOT 29,12 TO 245,12 TO 245,156 
TO 29,156 TO 29,12 
HPLOT 29,84 TO 25,84 
Si = 5: 
B$ = "NAO03060912151821": 
IC =1 
FOR XC = 29 TO 92 STEP 9: 
Y = 160: 
X= XC - 3: 
HCOLOR= O: 
HPLOT XC, 156: 
HCOLOR= 3 
A$ = MIDS (B$,1C,1): 
GOSUB 20200 
A$ = MIDS (B$,IC + 1,1): 
Y 157: 
X = XC - 3: 
GOSUB 20200 
IC = IC + 2: 
NEXT XC 
B$ = "36486072": 
IC =1 
FOR XC = 137 TO 245 STEP 36: 
Y = 160: 
HCOLOR= 0: 
HPLOT XC, 156: 
HCOLOR= 3 
AS = MIDS (B$,1C,1): 
X =XC - 3: 
GOSUB 20200 
A$ = MIDS (BS, IC + 1,1): 
X= XC- 3: 
Y = 167: 
GOSUB 20200 
IC = IC + 22 
NEXT _XC 
Y = 1513 
X= 18: 
AS = "0": 
GOSUB 20200 
Y = 84: 
X= 12: 
AS = "50": 
GOSUB 20200 
Y = 12: 
X= 6: 
AS = "100": 
GOSUB 20200 


REM -— 
S1 = 9: 

Y=0 

L= (Si + 1) £ LEN (AS): 
IF L.> 216 THEN Si = S1 - 2: 
A 

GOTO 18240 





IF Si < 5 THEN RETURN 
XC.=. 44215, Lib 2) 4 278 
X = XC: 
GOSUB 20200 
RETURN 
AA 
REM PRESENTA PESADAS 
REM == 
XX = M(1): 
YY = MI(1): 
FOR IC = 2 TO MX - 1 
X = M(IC): 
Y = MI(IC) 
HPLOT XX, YY TO X,Y 
HPLOT XX,YY + 1 TO X,Y + 1 


18580 


18590 
18600 


18610 
18620 


18630 
20000 
20010 
20020 
20030 
20040 


20060 
20070 
20080 
20100 


20110 


20120 


20130 


20135 
20140 


20145 
20150 


20155 
20160 


20165 
20170 


20175 
20180 


20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 


203Q0 
20310 


20500 
20510 
20511 


20520 
20530 
20540 


XX =X: 

yy = Y 
NEXT IC 
A$ = "PULSAR RETURN": 
Si =7: 
X = 81: 
Y = 180 
GOSUB 20200 
GET A6: 
IFA$< > CHR$ (13) THEN 18620 
RETURN 
REM =D ES 
REM CARACTERES EN HI-RES 
REM DE ALESSANDRO FIORI 
REA AAA 
REM_ ENTRADAS CO=COD. CAR. 
REM S1=TAMANO 
REM CARACTER 
REM X=COORD. X 
REM Y=COORD. Y 
Er = CO - 312 


n 
pas 
1 
NS 


12) 


- 


( 
Ss 


5.1213 


un. 4.4.4.4 nn” 


+++ 


<<< 
na- 


“0 pod 


GOSUB 20500, 20510, 20520, 205 
0, 20550, 20560, 20570, 20580, 


ta NnOMOoODOnN 
$2 


7 


E de 
o 


< 11 THEN RETURN 
= C1 — 102 

ON C1 GOSUB 20600, 20610, 20620, 206 
30, 20640, 20650, 20660, 20670, 20680, 
20690 

IF C1 < 11 THEN RETURN 

C1 = C1- 10: 

ON C1 GOSUB 20700,20710,20720,207 
30,20740,20750,20750,20770,20780, 
20790 

IF Ci < 11 THEN RETURN 

C1 =Ci - 10: 

ON C1 GOSUB 20800, 20810,20820,208 
30, 20840, 20850, 20850, 20870, 20880, 


O=N»N 
Ti 


20890 

IF C1 < 11 THEN RETURN 

C1 = C1 - 10: 

ON C1 GOSUB 20900, 20910, 20920, 209 
30,20940, 20950, 20960,20970, 20980, 
20990 

IF C1 < 10 THEN RETURN 

C1 = C1 - 10: 

ON C1 GOSUB 30000, 30010,30020, 300 
30. 30040, 30050, 30060, 30070, 30080: 
RETURN 

REM —Á 

REM IMPRESION DE UNA CADENA 


REM EN HI - RES 
REM — 
REM ENTRADA AS 
REM x 
REM Y 
REM si 
FOR 1 = 1 TO LEN (AS) 
CO = ASC ( MIDS (A$,1,1)): 
GOSUB 20100 
X= X +81 + 1 +D1 
NEXT 1: 
RETURN 
RETURN 
HPLOT D,Y TO D,Y + 3 + (S / 2) 
HPLOT D,B: 
RETURN 
RETURN 
RETURN 
HPLOT 6,Y TO D,Y TO D,C TO F.C 
TO F,B TO X + 2,B 
HPLOT E, Y TO E,B: 


A AA AAA AA AAA AAA AAA 


20570 


20580 


20590 


20600 
20601 
20602 
20603 


20610 
20611 


20620 
20630 
20640 
20650 


20660 


20670 


20680 


20590 
20691 


20700 


20710 


20720 


20730 


20740 


20750 


20760 
20761 


20770 
20780 


20790 


20791 


20800 


20810 


HPLOT E,Y TO E,Y + 2 + (S / 2): 
RETURN 

HPLOT F,Y TOS + X + (S / 2),Y 
TOS + X + (S / 2),B TO F,B: 
RETURN 

HPLOT D,Y TO X + 3 + (S / 2),Y 
TO X + 3 + (S / 2),B TO D,B: 
RETURN 


HPLOT E, Y TO E,B 
HPLOT D,C TO F,C 
HPLOT X + 2,Y + 5 + S TO G,Y 


EE 
HPLOT X + 2,Y + 1 TO G,Y +5 
+S: 
RETURN 
HPLOT E, Y TO E,B 
HPLOT D,C TO F,Cz 


RETURN 

HPLOT D,Y TO F,Y: 

RETURN 

HPLOT D,C TO F,C: 

RETURN 

HPLOT E,B: 

RETURN 

HPLOT D,B TO F,Y: 

RETURN 

HPLOT D,Y TO G,Y TO G,B TO D,B 
TO D,Y: 

RETURN 

HPLOT E,Y TO G,Y TO G,B: 
RETURN 

HPLOT D,Y + 1 + (S / 2) TO D,Y 
TO G,Y TO G,C TO D,C TO D,B 
TO G,B: 

RETURN 

HPLOT D, Y TO 6,Y 
HPLOT D,C TO 6,C: 
RETURN 

HPLOT D,Y TO D,C TO G,C TO G,Y 
TO G,B: 

RETURN 

HPLOT G,Y TO D,Y 
TO G,B TO D,B T 
1 2): 

RETURN 

HPLOT G,Y TO D,Y TO D,B TO G,B 
TO G,C TO D,C: 

RETURN 

HPLOT D,Y TO G,Y TO G,B: 

RETURN 

HPLOT D,C TO D,Y TO G,Y TO G,B 
TO D,B TO D,C TO G,C:z 

RETURN 

HPLOT D,B TO G,B TO G,Y TO D, Y 
TO D,C TO 6,C: 

RETURN 

HPLOT E,C 


HPLOT E, Bs 

RETURN 

RETURN 

HPLOT F,Y TO D,C TO F,B: 
RETURN 

HPLOT D,Y + 2 + (S / 2) TO G,Y 
+ 2.+ 198 / 2) 

HPLOT D,Y +5 +STOG,Y+5 
+ S: 

RETURN 

HPLOT D,Y TO F,C TO D,B: 
RETURN 

HPLOT D,Y + 1 + (S / 2) TO D, Y 
TO G,Y TO G,C TO D,C TO D,Y 
+9+ (5 / 2) 


TO G,B TO D,B 


TO D,C TO G,C 
DD, Y +5 + (Ss 


20811 HPLOT D,B + 1: 


RETURN 


20820 RETURN 
20830 HPLOT D,B TO D,Y TO F,Y TO F,B 


20831 HPLOT D,C TO F,Cz 
RETURN 


20840 HPLOT G,B TO D,B TO D,Y TO 
20841 HPLOT D,C TO G,C 
20842 HPLOT F,Y + 1 TO F,Y +2 + 
1 2) 
20843 HPLOT F,Y + 4 + (S / 2) TO 
+Y+S: 
RETURN 
20850 HPLOT F,B TO D,B TO D,Y TO 
RETURN 
20850 HPLOT G,B TO D,B TO D,Y TO 
20861 HPLOT F,Y + 1 TO F,Y +5 + 
20870 HPLOT F,B TO 
20871 HPLOT D,C TO 


20880 HPLOT D, 


20900 HPLOT D, Y 
20902 HPLOT D,C 


20910 HPLOT E, Y TO E,B: 


RETURN 
20920 HPLOT F,Y TO F,B TO D,B TO 
+5 + (S / 2) 


20930 HPLOT D,Y TO D,B 
20931 HPLOT F,Y TO D,C TO F,B: 


20940 HPLOT D,Y TO D,B TO F,B: 


20950 HPLOT D,B TO D,Y TO E,C TO 


20960 HPLOT D,B TO D,Y TO F,B TO 


20970 HPLOT D,Y TO F,Y TO F,B TO 
20980 HPLOT D,B TO D,Y TO F,Y TO 


20990 HPLOT F,B TO D,B TO D,Y TO 
TO E 


D, 
.C:z 
30000 HPLOT D,B TO D,Y TO F,Y TO 
TO D,C 
30001 HPLOT F,B TO E,Cz 
RETURN 
30010 HPLOT D,B TO F,B TO F,C TO 
TO D,Y TO F,Y: 
RETURN 
30020 HPLOT E,B TO E, Y 
30021 HPLOT D,Y TO F,Y 
RETURN 
30030 HPLOT D,Y TO D,B TO F,B TO 
RETURN 
30040 HPLOT D,Y TO E,B TO F,Y: 
RETURN 
30050 HPLOT D,Y TO D,B TO E,C TO 


RETURN 

30070 HPLOT D,B TO F,Y 

30071 HPLOT D,Y TO E,C: 
RETURN 

30080 HPLOT D,Y TO F,Y TO D,B TO 
RETURN 

40000 REM —————— 

40010 REM GESTION ERROR 

40020 REM ——-——-—— 


6, Y 
(Ss 


F,S 


F,Y3 


G,Y 


F,Y 


D,B 


D,Y 


F,Y 


FsY: 


D,B 


F,C 


F,Y 


F,B 


F,B: 


40030 
40040 
40050 


40070 


40080 


40100 
40110 


40120 
40130 


40140 


40150 


IF PEEK (222) = 5 THEN 40130 
IF PEEK (222) < > 8 THEN 40060 
HOME 2 

YT = 13: 

TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 
650SUB 11200: 

GOSUB 11100: 

6070 5000 

IF PEEK (222) < > 13 AND 

PEEK (222) < > 11 THEN 40080 
HOME : 

YT = 13: 

TI$ = "NOMBRE FICHEROS NO VALIDO: 
INVERSE 2 

G0SUB 11200: 

SOSUB 11100: 

NFS = "X": 

GOTO 5000 

IF PEEK (222) < > 9 THEN 40100 
HOME 3 

YT = 13: 

TIS = "DISCO LLENO": 

INVERSE + 


GOSUB 11200: 
G0SUB 11100: 


GOTO 5000 

IF PEEK (222) < > 4 THEN 40120 
HOME 2 

YT = 13: 

TI$ = "DISCO PROTEGIDO": 

INVERSE : 

G0SUB 11200: 

GOSUB 11100: 

G0TO 5000 

IF PEEK (222) < > 6 THEN 40140 
HOME : 

TI$ = "NOMBRE FICHERO NO EXISTE": 
YT = 13: 

INVERSE : 

G0SUB 11200: 

GOSUB 11100: 

G0TO 5000 

L = PEEK (218) + 256 * PEEK (21 
9) 
TEXT 
HOME 
YT = 13: 

TIS = "ERROR " + STR$ ( PEEK (22 
21) + "EN "+ STRS (L): 





GOSUB 11200: 
END 
Data base médica 

10 A 

20 REM DATA BASE MEDICO 

30 REM VERSION DOS 

40 REM == 

50 REM INICIALIZACIONES 

60 DIM TF(15),TP (20) ,LC(20),ND(20),C 
X (20) ,CY (20) ,DX (20) , DY (20) ,B$(20) 
,D$(20),VO$(10),HE$ (8) 

70 BP$ = CHR$ (7): 
NS$ = "$: 
AS$ = CHRS (95): 
PDS = ".": 
BOI 
D$ = CHR$ (4): 
US$ = CHR$ (13): 
7E$ = "O": 
G1U$ 20 
SL$ q? 

80 Bs = " Ez 
BA$ = BS + BS + B$ + B$: 
ii 


20 
100 


HE$ = "AYUDA. CTRL - Y" 
HE$(1) = "CTRL Y. AYUDA (ESPACIO 


110 
120 
130 
190 
150 
160 


170 


176 


178 


180 
190 


220 


230 


240 


2530 
260 


+0 
Ry 


330 


340 


370 


382 


385 


390 


400 


410 


PARA CONTINUAR)  " 

HE$(2) = "ESC. ANULA TODA LA INTR 
ODUCCION y 

HE$(3) = "RETURN. ALINEA Y CONVAL 
IDA INTRODUCCION * 

HE$(4) = "CTRL 1. FERMITE LA INSE 
RCION DE ESPACIOS" 

HES(5) = "CTRL D. BORRA UN CARACT 
ER “ 

HE$(6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL : 

HE$(7) = "CTRL W,A,S,Z.MUEVEN EN 
LAS 4 DIRECCIONES" 

HE$(8) = "CTRL E. INTRODUCCION EN 
DISCO e 

TEXT_: 

HOME = 

YT = 12; 

TI$ = "CUANTAS UNIDADES HAY (1/2) 


GOSUB 11200 
GET Ab: 
IF AS < "1" OR AS > "2" THEN 172 
DR$ = A$: 
FRINT DR$ 
HOME : 
YT = 12: 
TI$ = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD " + DR$: 
GOSUB 11200: 
GOSUB 11100 
MP$ = "DATA BASE MEDICA" 
DIM 18%(100),JS%.(100) 
GOSUB 500 
RESTORE : 
READ PROG$:; 
READ NV: 
MA = NY +1 
FOR I = 1 TO NV: 
READ VO$ (1): 
NEXT 1 
VO$ (MA) = "FIN DE TAREA" 
FOR I = 1 TO 15: 
READ TF (1D): 
NEXT 1 
L.=.03 
FOR I = 1 TO NV +1 
Li = LEN (VO$(1))2 
IF Li >L THEN L = Li 
NEXT 1 
L=L+5 
XC = (42 - 1) / 2 
YC = (25 - (NW 2+1))/2 
GOSUB 1300 
IF OPZ < > (MA) THEN 390 
IF DR$ = "1" THEN HOME : 
YT = 131 . 
TI$ = "INTRODUCIR DISCO PROGRAMAS 
58 
GOSUB 11200: 
GOSUB 11100 
HOME : 
GOSUB 11500: 
FRINT D$: 
PRINT D$;"RUN MAIN-MEDICINA, Di" 
LM = OPZ -= 4: 
ON OPZ GOSUB 14900,8000,5000, 1400 
0,12000 
GOSUB 6700: 
IF IM = 1 THEN. PRINT D$: 
FRINT D$;"PRHO": 
PRINT_ D$: 
IMm=0 
Y = 3: 
X= 1: 
GOSUB 11000: 
INVERSE : 
PRINT_ LEFTS (BA$,40)5: 
NORMAL. 


460 
500 
s10 
520 


530 


540 


550 


560 


570 

1300 
1310 
1320 
1330 
1350 


1370 
1390 
1400 
1410 
1415 
1420 


1440 
1450 


1460 
1470 


1480 


1490 
1500 





PRINT " E. G. S. "+ LEFTS (BAS 
,6) + "EDICIONES FORUM, S.A." 
+ "ot: 
NORMAL 
YT = 3: 
TIS = MP$; 
GOSUB 11200 
Y =2: 
Xx 1: 
INVERSE : 
GOSUB 11000: 
PRINT " ": 
X = 40: 
GOSUB 11000: 
PRINT " ";: 
Y = 3: 
X= 1: 
GOSUB 11000: 
PRINT * *s 
X = 40: 
GOSUB 11000: 
PRINT " “js 
Y =4: 
X= 12 
GOSUB 11000: 
PRINT " "s 
Xx = 40; 
GOSUB 11000: 
PRINT " "5: 
Y = 5: 
X= 1: 
GOSUB 11000 
PRINT_ LEFTS (BA$,40);: 
NORMAL: 
POKE 34,5 
RETURN 
REM ===> 
REM MENU PRINCIPAL 
REM === 
HOME z 
FOR 1 = 1 TO MA 
Y=14 2 + YC: 
X = XC: 
GO0SUB 11000 
11 = 1 
IF II = (MA) THEN 11 = O 
PRINT 11;"- "3VO$(1) 


NEXT 

I=1 

XS =XC- 2: 
SP = XC - XS 
Y=1t2+YC: 
X= XS: 

GOSUB 11000 
PRINT "->"3 
GET 0PZ$: 


OPZ = VAL (0PZ$): 

IF 0PZ$ = US$ THEN 1530 

IF OPZ > NV THEN 1450 

IF OPZ$ = ZE$ THEN X = XS: 
GOSUB 11000: 

PRINT SPC( SP);5: 

I = MA: 

GOTO 1420 

IF ASC (0PZ$) > 48 AND ASC (0PZ 
$) < 58 THEN X = XS: 

GOSUB 11000: 

PRINT  SPC( SP)3: 

I = 0PZ: 

GOTO 1420 

IF OPZ$ < > GIU$ THEN 1450 
NA 


1510 


1520 
1530 


1540 


1550 


1560 
1570 
1580 
1590 
2000 
2010 
2020 
2030 


2050 


2060 
2070 
2080 
2090 


2100 


2110 


2120 


2130 
2140 
2150 
2160 
2170 
2180 
2240 
2250 
2260 
2270 





2300 


2310 


232 


2330 


2340 


2345 


2350 


GOSUB 11000: 

PRINT — SPC( SP); 
ESE 

IF 1 > (MA) THEN 1410 
GOTO 1420 

X = XC3 
Y=1%2+YC 

11 = 1: 

IF 1 > NV THEN 11 = O 
PRINT 11;"- “zs 
INVERSE 

PRINT VO$(1) 

NORMAL 

OPZ = 1 

RETURN 

REN ——_——_—_ 
REM PRESENTA MASCARA 
REA 55 ——— e — 
HOME : 

Y = 7: 

X= 1: 

GOSUB 11000: 

PRINT " VOZ ";OPZ 

YT = 5: 

TIS = HES: 

INVERSE : 

GOSUB 11200: 

NORMAL 

YT =7: 

TI$ = INS: 

GOSUB 11200 

IF COX >0 THEN Y = 7: 
X= XT + LEN (IN$) + 1: 
GOSUB 110003 


FPRINT CO 
SP = 33 - LEN (VO$(0F7)) 
SsPg ="" 
IF SP = O THEN 2100 
FOR J = 1 TO SP: 
SP$ = SP$ + BL$: 
NEXT 


LP = LEN (PROG$) 
SI = INT ((40 - LP) / 2): 
DE = 40 - LP - SI 
sis =“ 
DES = "0 
FOR J = 1 TO SI 
SI$ = SI$ + BL$ 
NEXT 
FOR J = 1 TO DE 
DES = DES + EL$ 
NEXT 
REM MASCARA 
FOR J = 1 TO NUC 
As ==. 
X= DX(D: 
Y = DY(J): 
GOSUB 11000: 


PRINI D$(J) 
NORMAL 
IF TP(J) < > 5 AND TP(J) 
< > 4 THEN 2330 
Xx = CX(D): 
Y = CD): 
GOSUB 11000 
PRINT B$(J) 
GOTO 2500 
Ni =LC(J): 
N2 = ND(J): 
IF TP(J) = 1.0R TP(D =2 
THEN C$ = NS$: 
GOTO 2350 
C$ = AS$ 
IF Ni = 1 THEN AS = CS: 
GOTO 2390 
FOR 1 =1 TONI -N2- 42 
As = AS + C$; 
A A A 


2400 
2410 
2420 
2430 
2440 
2450 


2460 
2470 
2490 
2490 
2500 
2510 
2600 
2610 
2620 
2630 
3000 
3010 
3020 
3030 
3040 


3050 
3060 
3070 
3080 
3100 
3110 
3120 
3130 


3140 


3150 


3160 


3170 


3180 


3190 


200 











As = A$ + PD$ 


FOR 1 = 1 TO N2: 
AS = As + 2E$b: 
NEXT 1 
Xx = CX(J): 
Y = CY(J): 
GOSUB 11000 
FRINT As 
BS) ="" 
FOR K = 1 TO Ni - N2- 1 
B$(J) =.B$(J) + BL$ 
NEXT K 
IF N2 = 0 THEN B$(J) = B$(J) 
+ BL$: 
GOTO 2500 
B$(J) = B$(J) + FD$ 
FOR K = 1 TO N2 
B$(J) = B$(J) + BL$ 
NEXT K 
NEXT Y 
RETURN 
EAS 
REM COMPLETA MASCARA 


A ———= 
REM DATA ENTRY 
[2 MEA 
J=1 
NC = Y: 
X = CX(NC): 

Y = CY (NC) 

CCc=41 

GOSUB 3240 

IF FS = O THEN 3100 

IF FS > 4 THEN 3210 

GOTO 3120 

Y = +1: 

IF J > NUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 
IF J>1THENJ=J-1: 

GOTO 3040 

PRINT BP$;:2 

FS = 0: 

J = NUC: 

GOTO 3040 

IF J < NUC THEN J = J + di 
GOTO 3040 

PRINT BF$;: 

FS = 0: 

GOTO 3030 

IF CC < LC(J) THEN SO = 1: 

CC = CC +1: 
X=X+d: 

GOSUB 11000: 

GOTO 3060 

PRINT BP$: 

FS = 0: 

GOTO 3100 

IF CC > 1 THEN SO 
CC = CC - 1: 
X=X- il: 

GOSUB 11000: 

GOTO 3060 

PRINT BF$;: 

FS = 0: 

GOTO 3040 

IF FS > 8 THEN FS 
GOTO 3060 

IF FS = 8 THEN FS 
GOTO 3100 

RETURN 

REM! === ES 
REM LECTURA DE UN CAMPO 
E AAA 
FS=0 





= 


" 
8 


" 
E 






3360 
3370 
3380 
3390 


3400 


3410 
3420 
3430 
3440 


3450 
3460 


3520 
3530 
3340 
3550 
3560 


3570 





3710 
3720 
3730 
3740 
3750 
3760 
3770 


3780 
3790 
3800 
3820 
3830 
3840 
3850 


3860 


TF TPANC) = 4 - RETUR - 
IF TP(NC) = 2 THEN GOSUB 9000: 






EN 





BS(NC) = LEFTS (B$(NC),LC(NC)): 
CC = LEN (B$(NC)) + 1: 
GOSUB 4080: 
RETURN 
IF MID$ (B$(NC),CC,1) = PD$ 
THEN X = X + SO: 
CC = CC + SO 
GOSUB 11000 
GET A$: 
IF A$ = "" THEN 3320 
CA = ASC (A$): 
IF CA > 31 THEN 3380 
FOR 1 = 1 TO 15 
1F TF(D = (CA) THEN FS 
= I: : 
GOSUB 3630; 
RETURN 
NEXT_1 
GOTO 3320 
IF _TP(NC) <> 1 THEN 3440 
IF CA = 45 OR CA = 46 OR (CA 
>= 48 ANDCA< = 57) THEN 341 
0 
PRINT BF$;: 
GOTO 3320 
IF CA<Z > 46 THEN 3440 
GOSUB 4270 
IF SWP = 1 THEN 3400 
so =1 
GOSUB 


3 
IF CC = NC) THEN RETURN 
€ 


REM 
REM TRANSFERENCIA AL BUFFER 
REM 
IF CC = 1 THEN SN$ = 
GOTO 3570 

SN$ = LEFTS (B$(NC),CC - 1) 
IF CC = LC(NC) THEN DS$ = ""; 
GOTO 3590 

N = LC(NC) - CC: 

DS$ = RIGHTS (B$(NC),N) 
ES(NC) = SN$ + AS + DS$ 
PRINT A$: 








IF FS = 5 AND TP(NC) = 1 THEN 
GOSUB 4080 

RETURN 

IF FS = 9 THEN GOSUB 13000: 
RETURN 

IF FS = 8 THEN GOSUB 4080: 
RETURN 

IF FS < 8 THEN RETURN 

ON FS - 9 GOSUB 3740,3910 
RETURN 

E 

REM INSERCION 

>>> SS 

IF CC = LC(NC) THEN — PRINT BP$: 
RETURN 

IF CC = 1 THEN SN$ = "";z 

GOTO 3800 

SN$ = LEFT$ (B$(NC),CC — 1) 

N = LC(NC) - CC + 1: 

DS$ = RIGHT$ (B$(NC),N) 

C$ = BL$ 

AS = SN$ + C$ + DS$ 

B$(NC) = LEFT$ (A$,LC(NC)) 

XX =X: 

YY = y 

Xx =CX 


Mon 


(NC): 






3870 


3880 


3900 
3910 
3920 
3930 
3940 


3930 
3960 
3970 
3980 
3990 


4000 
4010 


4020 
4030 
4040 


4060 


4070 


4080 
4090 
4100 
4110 
4120 
4130 


4140 
4150 


4160 
4170 
4180 
4190 


4210 
4220 
4230 


4240 


4250 
4260 


4270 
4280 
4290 
4300 
4310 


4320 


433 


4340 








GOSUE 11000 
X = XX 
Y = YY 
FPRINT B$(NC): 
0 = 1 
IF RIGHTS (B$(NC>,1) = PD$ 
THEN 3780 
RETURN 
REM ====== 
REM BORRADO 
PRE AR 
IF TP(NC) < > 1 THEN 3940 
IF MID$ (B$(NC),2,1) = PD$ 
AND CC = 1 THEN RETURN 
IF CC < 1 THEN FRINT BF$: 
RETURN 
IF CC = LC(NC) THEN DS$ = "": 
GOTO 4000 
N = LC(NC) - CC: 
DS$ = RIGHTS (B$(NC),N) 
IF CC = 1 THEN SN$ = "": 
GOTO 4010 
SN$ = LEFTS (B$(NC),CC - 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN C$ = NS$: 
GOTO 4030 
C$ = AS$ 
B$ (NC) = SN$ + DS$ + C$ 
XX =X: 
YY = Y 
X = CX(NC): 
Y = CY(NC): 
GOSUB 11000 
X = XX: 
Y = YY 
PRINT B$(NC): 
SO = 1: 
RETURN 
RE AR 
REM ALINEADOS 
REN == es==== 
IF LC(NC) = 1 THEN RETURN 
Ni = LC(NC) - CC + 1 
IF CC = 1 THEN B$(NC) = ""z 
GOTO 4150 
B$(NC) = LEFT$ (B$(NC),CC 
a) 
IF TP(NC) = 4 OR TP(NC) = 2 
THEN 4200 
FOR 1 = 1 TO Ni 
B$(NC) = E$(NC) + BL$ 
NEXT I 
GOTO 4240 
FOR 1 = 1 TO Ni 
B$(NC) = BL$ + B$(NC) 
NEXT 1 
IF.” RIGHT$ (B$(NC),1) = FD$ 
THEN B$(NC) = BL$ + LEFTS (ES (N 
C),LC(NC) - 1) 
X = CX(NC):3 
Y = CY (NC) 
GOSUB 11000 
PRINT E$ (NC): 
RETURN 
EA ———————= 
REM CTRL.PUNTO 
ASS 
SWP = 0 
IF CC = 
= 1: 
RETURN 
FOR I = 1 TO LC(NC) 
IF MID$ (B$(NC),1,1) = FD$ 
THEN 1 = LC(NC): 
SWP = 1: 
RETURN 
NEXT 1: 
RETURN 


1 OR CC = LC(NC) THEN SWP 


so10 


5030 


5040 


5050 


5060 
5070 


5075 


5090 
5100 
s110 


5130 


5140 
5150 
5160 
5170 


5180 
5190 


5205 


5210 
5220 
5230 
5240 


5260 


5270 


5290 





REM 
REM ACTUALIZACION 
REM 
NF$ = "ARC": 
LR = 141: 
GOSUB 6000 
NR = 1: 
GOSUB 5200: 
RE = VAL (AA$) 
NF$ = "VOC": 
LR = 20: 
GOSUB 5000 
GOSUB 6200: 
MX = VAL (AA$) 
LM = 1: 
GOSUB 7000 
IN$ = "ACTUALIZACION": 
CO =0 
NUC = 4: 
GOSUB 2000: 
GOSUB 3000 
IF FS = 7 THEN RETURN 
IF FS = 6 THEN 5070 
DD = VAL (B$(2)): 
MM = VAL (B$(3)): 
AA = VAL (B$(4)) 
NFS = "ARC": 
LO = 213 * 
AS = B$(1) + B$(2) + B$(3) 
+ B$(4) 
FOR IR = 2 TO RE: 
RR = IR 
NR = IR: 
GOSUB 6200 
C$ = LEFTS (AA$,21): 
GOSUB 18500 
IF K9 = LO THEN 5200 
NEXT IR 
HOME; 
YT = 13: 
TI$ = "LOS DATOS PEDIDOS NO ESTAN 
INVERSE : 
GOSUB 11200: 
GOSUB 11100: 
GOTO 5070 
NUC = 9; 
GOSUB 8500 
FOR I = 1 T0 9: 
TP(I) = 4: 
NEXT 1 
AC$(1) = B$(2) + B$(3) + B$(4): 
AC$(2) = B$(5) 
GOSUB 2000: 
GOSUB 7000: 
GOSUB 3000 
IF FS = 7 THEN RETURN 
IF FS = 6 THEN 5070 
IF B$(5) = AC$(2) THEN 5340 
NFS = "VOC": 
LO = 20: 
A$ = B$(5) 
FL =0: 
GOSUB 17500 
IF K9 = LO THEN 5340 
HOME : 
YT = 13: 
TI$ = "SINTOMA NUEVO, LO MEMORIZO 
2 (S/N "sz 
INVERSE : 
GOSUB 11200: 
NORMAL 
GET A$: 
IFAS< > "S" ANDAS< > "N" 
THEN 5290 
IF A$ = "N" THEN 5205 
MX = MX + 1: 
NR = MX: 








3330 


5360 


5370 


6000 
6010 
6420 
6030 
6040 


6050 


6965 
6970 
6980 


7010 


7030 
7040 






G0SUB 

NR = 1: 

ARAS = STRS (MX): 

GOSUB 6400 

IF AC$(1) = B$(2) + B$(3) + B$(4) 
THEN 5370 

= VAL (B$(2)): 

= VAL (B$(3)): 

= VAL (B$(4)) 

DD < 1 OR DD > 31 OR MM 

1 MM > 12 THEN GOSUB 11900 


8 


3 


PRINT D$; "OPEN"¿NF$ + ",D" 

+ DR$;",L"¿LR + 2 

PRINT D$ 

RETURN 

RE ——_—_—_—_—_—— 

REM LECTURA REGISTRO 

REA —_——_——— NN 

PRINT D$ 

PRINT DS; "READ"¿NF$;",R";NR 
INPUT AAS 

PRINT DS 

RETURN 

E === 

REM ESCRITURA REGISTRO 

2 === == 
PRINT DS 

PRINT DS; "WRITE"; NF$;",R"5NR 
PRINT— CHR$ (34) + AAS 
PRINT D$ 

RETURN 

REM _>”—_—_——— == 

REM CIERRA FICHERO 

REN 

PRINT DS 

PRINT D$;"CLOSE";NF$ 

PRINT D$ 

RETURN 

REM A A A AAA A AA AAA AS 
REM_ CIERRA TODOS LOS FICHEROS 





REM SELECCION 
RE 
ll=1 
FOR RE = 2 TO MX 
ISZ (RE) = 0 
NR = RE: 
GOSUB 6200 
AS = MIDS (AA$,NI,NL) 
IF AS< > COS THEN 6970 
n=-1+1 
1S%(11) = RE 
NEXT RE 
RETURN 
REM 
REM LECTURA DE LOS DATOS 











READ NV 
FOR 1 = 1 TO NV + 15: 
DA$: 





7060 
7070 


7073 


7080 
7085 


7090 
7092 
7095 


7100 


7110 


7120 
8000 
go10 
8020 
8030 


8045 
80355 
8070 
8090 
8100 


e110 


8120 


8130 
8140 


8150 


3160 


8170 


8180 


IF LM = O THEN 7075 


ND = 0: 

FOR 1 = 0 TO LM- 1: 
READ DA: 

ND = ND + DA + (DA € 7): 
NEXT 1 

READ NUC: 


IF NUC = O THEN RETURN 
IF NV -— LM- 1 = 0 THEN 7090 
FOR I = 1 TO NV — LM - 1: 
READ DA$: 
NEXT 1 
IF LM = O THEN 7100 
IF ND = O THEN 7100 
FOR I = 1 TO ND: 
READ DAS$: 
NEXT I 
FOR 1 = 1 TO NUC: 
READ D$(1): 
NEXT 1 
FOR I = 1 TO NUC: 
READ TP(1),LC(1),ND(1),DX(1),D 
Y(D,CX(D,CY (1): 
NEXT 1 
RETURN 
REM 
REM INTRODUCCION DA 
REN _—_n _—_—————_—_—_—_— 
NF$ = "VOC"; 
LR = 20: 
GOSUB 6000: 
NR = 1: 
GOSUB 6200: 
MX = VAL (AAS$) 
NFS = "ARC": 
LR = 141: 
GOSUB 6000: 
GOSUB 6200: 
RE = VAL (AA$) 
IN$ = "INTRODUCCION N." 
GOSUB 7000 
CO = RE 
G0SUB 2000 
GOSUB 3000 
IF FS = 7 THEN RETURN ? 
IF FS = 6 THEN 8050 
DD = VAL (B$(2)): 
MM = VAL (B$(3)): 
AA = VAL (B$(4)) 
IF DD< 1 OR DD > 31 OR MM 
¿< 1 OR MM > 12 THEN GOSUB 11900 


GOTO 8050 
NF$ = "VOC": 

FL = 0: 

AS = BS(S): 

Lo = 20: 

GO0SUB 11500: 

GOSUB 17500: 

GOSUB 11500 

IF K9 = 20 THEN 8190 

YT = 23: 

TIS = "SINTOMA NUEVO, LO MEMORIZO 
2 (S/N) "sz 

ÍNVERSE : 

GOSUB 11200 

NORMAL: 

GET A$: 

IF AS$<X > "S" ANDAS< > "N" 
THEN 8140 

PRINT AS: 

IF AS = "N" THEN GOSUB 11900: 

6o0To 8050 

MX = MX + 1: 

NR = MX: 

AAS = BS(S): 

GOSUB 6400 
NR = 1: 


8190 


8200 


8210 
8300 
8510 

520 
8530 
8540 
8550 


8570 
8580 


8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 


9000 
9010 
9020 
10000 
10010 
10020 
10030 
10040 
10050 


10060 


10070 
10080 
10090 
10100 


10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 


10210 
10220 
10230 
10240 
10250 
10260 
11000 
11010 


11020 
11030 


11040 
11100 
11110 
11120 


EDSUB 6400 
NFS = "ARC": 
RE = RE + 1: 
NR = RE: 
GOSUB 8700 
NR = 1: 
AA$ = STR$ (RE): 
GOSUB 6400 
GOTO 8050 
REM -——- 
REM LECTURA FICHEROS 
REM. —- — 
GOSUB 6200 
FOR 19 = 1 TO NUC 
IF TP(19) = 4 THEN LC(I9) 
= LC(I9 - 1): 
GOTO 8570 
B$(19) = "MIDS (AM$,1 + LC(I9 
- 1),LC(19)) 
LC(I9) = LC(19) + LO(IO 
-1) 
NEXT 19 








REM_ ESCRITURA FICHEROS 
REN a o 
ARS = 
FOR 19 = 1 TO NUC 
IF TP(19) = 4 THEN 8770 
AAS = ARAS + BS$(19) 
NEXT 19 
GOSUB 6400: 
RETURN 
REM A 
REM CALCUL 
REM 





REM —---- 

DATA "DATA BASE MEDICA" 

DATA 5 

DATA "VOCABULARIO", "INTRODUCCION 
DATOS", "ACTUALIZACION", "SELECCION 
", "GENERACION SISTEMA" 

DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 

DATA 1,9,6,0,0 

DATA "SINTOMA" 

DATA 3,20,0,6,14,16,14 

DATA "NOMBRE", "FECHA", 1/9, 9/0, 5] 
NTOMA", "FARMACO", "POSOLOGIA",""," 
NOTAS" 

DATA 3,15,0,3,10,10,10 

DATA 1,2,0,27,10,33,10 

DATA 1,2,0,35,10,36, 10 

DATA 1,2,0,38,10,39,10 

DATA 3,20,0,3,12,13, 12 

DATA 3,25,0,3,14,13,14 

DATA 3,25,0,3,16,13,16 

DATA 3,25,0,1,1,13,18 

DATA 3,25,0,3,20,13,20 

DATA "NOMBRE", "FECHA", *1,%/%, "SIN 
TOMA", "SINTESIS" 

DATA 3,15,0,9,11,18,11 

DATA 3,1,0,9,13,18,13 

DATA 1,2,0,1,1,20,13 

DATA 1,2,0,22,13,23,13 

DATA 3,20,0,9,15,18,15 

DATA 3,1,0,9,18,18,18 


REM ESPERA CARACTER 
REM 


11130 


11140 


11150 
11200 
11210 
11220 
11230 
11235 


11240 
11250 


11260 


11300 REM 


11310 
11320 
11325 
11330 
11340 


11350 
11355 
11340 


11370 
11380 


11390 


11400 


11410 


11420 
11500 


11510 
11520 
11530 


11540 


11350 
11560 
11600 
11610 
11620 
11630 


11640 


11450 
11700 
11710 
11720 
11730 
11735 
11740 


11750 


11760 
11770 


GOSUB 11600: 

NOS: 235 

TI$ = "PULSAR UNA TECLA": 
FLASH : 

GOSUB 11200 

PRINT BP$;: 

Xx = 20: 

Y = 23: 

GOSUB 11000: 

GET AS: 

GO0SUB 11400 

RETURN 
NEAR 

REM CENTRA EN VIDEO 
SAS 

IF TI$ = THEN RETURN 
A0$ = Tl$: 

GOSUB 11300: 

A0$ = LEFT$ (A0$,40) 

XT = (42 - LEN (A0$)) / 2 
HTAB XT: 

VTAB YT 

PRINT A0$;: 

RETURN 





REM A 
"" THEN RETURN 
1 TO LEN (A0$) 
IF MID$ (A0$,20,1) < >" " 
THEN 11340 
NEXT 20 
RETURN 
A0$ = RIGHTS (A0$, LEN (A0$) 
=520:+:1) 
FOR 70 = 1 TO LEN (AO$) 
IF MID$ (A0$,20,1) < >" " 
THEN 11400 
IF MIDS (A0$,70 + 1,1) 
= " " THEN 11410 
NEXT 20: 
IF MID$ (A0$,Z0 - 1,1) =" " 
THEN 20 = 20 - 1 
A0$ = LEFT$ (A0$,Z0 - 1) 
RETURN 
REM 
REM PETICION DE ESFERA 
REM 
GOSUB 11600: 
YT = 23 
TI$ = "ESPERAR, POR FAVOR": 
INVERSE : 
GO0SUB 11200 
NORMAL 
RETURN 
REM —-- 
REM BORRA ULTIMA LINEA 


NORMAL : 

PRINT — LEFTS$ (BA$,40);: 
Y = 10: 

GOSUB 11000 

RETURN 


REM 


REM ALIN. DERECHA EN VIDEO 
A 
IF TIS = "" THEN RETURN 
IF XT > 40 THEN XT = 40 
AO$ = TI$: 

GOSUB 11300 

LEN (A0$) : 

A 

YT 

IF X < 1 THEN X = 1 

GOSUB 11000: 

PRINT A0$; 


. uo" 


Xx 
XxX 
Y 


11780 
11800 
11810 
11820 
11830 
11840 


11850 
11860 


11870 
11880 
11900 
11910 
11920 
11930 


11940 
12000 
12010 
12020 
12030 


12040 


12050 


12060 


12070 


12080 
12090 
13000 
13010 
13020 
13030 


13040 
13050 
13060 


13070 
13080 
13090 
13100 
13110 
13120 


13130 
13140 


13150 


13160 
13170 


13180 
14000 
14010 
14020 
14025 


14027 


RETURN 

REM 
REM ALIN. IZQUIERDA EN VIDEO 
REN ————_—— SAA 
IF TIS = "" THEN RETURN 

A0$ = TI$: 

GOSUB 11300 

IF XT < 1 THEN XT = 1 

X = XT: 

Y = YT: 

GOSUB 11000 

PRINT A0$; 

RETURN 

RENA Ro 

REM AVISO DE ERROR 

REM === 

HOME : 

YT = 13: 

TI$ = "ERROR DE INTRODUCCION": 
INVERSE : 

GOSUB 11200: 

GOSUB 11100 

RETURN 

BEN: =—===-==== 

REM GENERACION 

5 — 
HOME : 
GOSUB 11500 
NF$ = "VOC": 
LR = 20: 
GOSUB 6000 
NR = 1: 

ARAS = "1": 
GOSUB 6400: 
GOSUB 4600 
NF$ = "ARC": 
LR = 141: 
GOSUB 4000 
GOSUB 6400: 
GOSUB 6600 
GOSUB 11100 
RETURN 
REA 
REM AYUDA 





- 
nn... 


GOSUB 11000 

PRINT HES$(K)5 

B= FEEK ( - 16384) 
POKE - 16368,0 

IF B < 128 THEN 13080 
IF B< > 160 THEN 13080 
K=K<+d: 

IF K > 8 THEN 13140 
GOTO 13060 

Y =5: 

X= 1: 

GOSUB 11000; 

PRINT LEFTS (BA$,40); 
YT =5: 

TIS$ = HE$: 

GOSUB 11200 


NF$ = "ARC": 

LR = 141: 

GOSUB 6000 

IN$ = "SELECCION": 
Co =0 


14030 LM = 2: 
GOSUB 7000: 
GOSUB 2000 
14040 GOSUB 3000 
14050 IF FS = 6 THEN 14030 
14060 IF FS = 7 THEN RETURN 
14065 SS$ = B$(2): 
MM = VAL (B$(3)): 
YY = VAL (B$(4)): 
BD = "o": 
BH) =" *": 
BS(4) ==" ": 
DI =YY12+M: 
SIS = B$(6): 
N$ = B$(1): 
S$ = B$(5) 
14067 LM = 1: 
GOSUB 7000: 
NUC = 5: 
GOSUB 11500 
14070 Q = 0: 
W=i: 
NR = 1: 
GOSUB £200: 
MX = VAL (AA$) 
14080 IF TP(W) > 2 AND ( LEFTS (B$(W),1 
) = "-" OR LEFTS (B$(W),1) 
= " ") THEN 14200 
14090 IF TP(W) = 1 AND LEFTS (B$(W),1) 
= " " THEN 14200 ¿ 
14110 CO$ = B$(W): 
MD = 1: 
NI = 0: 
NL =0 
14120 FOR D = 
14130 IF D 
14140 NI = 
14150 NEXT D 
14160 NL = LC(D): 
NI=N +1 
14170 GOSUB 4900 
14180 IFQ< > 0 THEN 14220 
141850 =1 
14190 FOR I = 1 TO MX: 
ISA) = IS%(D): 
AT E 


1 TO NUC 
= W THEN 14160 
NI + LC(D) 


NE 
14200 IF W = NUC THEN 14290 
14210 W = W + 1: 
GOTO 14080 
14220 K = 2 
14230 L = 2 
14240 IF IS%(K) = ISZ(L) THEN 14270 
14250 IF L < >MX THEN L =L +41: 
GOTO 14240 
14260 JS%(K) = 0 
14270 IF K = MX THEN 14200 
14280 K =K + 1: 
GOTO 14230 
14290 IF SS$ = " " THEN 14340 
14293 FOR IR = 2 TO MX 
14300 IF JSZ%(IR) = O THEN 14350 
14310 NR = JSZ(IR): 
GOSUB 8500: 
M= VAL (B$(3)): 
Y = VAL (B$(4))z 
D=sYr2+M 
14320 IF SS$ = "<" AND D > = DI 
THEN JS%(IR) = 0 
14330 IF SS$ = "=" AND DI< >D 
THEN JSZ(IR) = O 
14340 IF SS$ = ">" ANDD< = DI 
THEN JSZ(IR) = 0 
14350 NEXT IR 
14360 HOME : 
YT =.13: 
TI$ = "EN VIDEO O IMPRESORA? (V/1 
*s 
GOSUB 11200 
14370 GET A$: 


14380 


14385 


14387 


14400 


14410 


14415 


14420 


14421 


14422 


14423 


14424 


14425 


14426 
14440 


14450 


14460 
14455 


14470 


14500 
14510 
14520 
14530 
143550 


14560 
14570 


14380 


IF AS< > "V" ANDAS< >"I* 
THEN 14360 
IF A$ = "I" THEN IM = 1: 
PRINT D$: 
PRINT DS; "PRR1": 
PRINT D$ 
IF SIS = "I" AND LEFTS (N$,1) 
< >" " THEN X = 1S: 
Y =7: 
GOSUB 11000: 
FRINT N$: 
POKE 34,7 
IF SIS = "1" AND LEFTS (N$,1) 
= " " THEN X = 11: 
Y=7 
GOSUB 11000: 
PRINT S$: 
POKE 34,7 
R = 1: 
HOME : 
FOR IR = 2 TO MX: 
IF JIS%(IR) = O THEN 14440 
NR = JSZ(IR): 
GOSUB 8500 
IF SIS = "S" THEN GOSUB 14500 
GOTO 14460 
HOME : 
X= 1: 
Y =7: 
GOSUB 11000: 
PRINT "CODIGO: 
"5 TAB( 11)¿NR - de 
PRINT 
PRINT "NOMBRE. "; TAB( 11);B$(1 
): 
PRINT 
PRINT "FECHA. "; TAB( 11);B$(2) 
GU/M GB) 3"/"5BS(4): 
PRINT 
PRINT "SINTOMA."; TAB( 11);B$( 
5): 
PRINT 
PRINT "FARMACO. "; TAB( 11);BS( 
6): 
FRINT 
PRINT "POSOLOG. "; TAB( 11);B$ 
(7): 
PRINT— TAB( 11);B$(8):2 
PRINT 
PRINT "NOTAS."i TAB( 11);B$(9) 


IF IM< > 1 THEN GOSUB 11100 


IF Im 
PRINT 
PRINT 
PRINT 

NEXT IR 

IF IM< > 1 AND SIS = "1" 

THEN GOSUB 11100 

POKE 34,5: 

RETURN 

REM HA A A 

REM IMPRESION ABREVIADA 

0 

IF LEFTS (N$,1) = " " THEN 14400 

PRINT : 

PRINT "SINT."; TAB( 6);B$(5); 

TAB( 27); "FECHA. ";B$(2)5"/";B$(3 

I3"/"3BS(4)5: 

IF IM = 1 THEN PRINT 

PRINT "FARM. "; TAB( 6);B$(6) 

R=Re il: 

IFR< = 4 THEN RETURN 

R=1: 

IF IM< > 1 THEN GOSUB 11100: 

HOME : 

X=1 


1 THEN PRINT : 





Y = 8: 
GOSUB 11000 
14590 RETURN 
14600 PRINT : 
PRINT “NOMBRE. “; TAB( 10);B$(1); 
TAB( 27); "FECHA.";B$(2);"/"5B$(3 
13"/"5BS(4)3: 
IF IM = 1 THEN PRINT 
14510 PRINT "FARMACO: 
"; TAB( 10);B$(6) 
145820 R =R + 1: 
IFR< =4 THEN RETURN 
14630 R = 1: 
IF IM< > 1 THEN GOSUB 11100: 
HOME : 
X= 1: 
Y = 8: , 
GOSUB 11000 
14640 RETURN 
16700 REN. —————— — 
16910 REM VOCABULARIO 
16720: REM: ————= 
16930 NF$ = "YOC": 


16940 NR = 1: 


16950 HOME 
16960 X = 12: 
Y = 11: 
G0SUB 11000 
16970 PRINT "1. INTRODUCCION": 
Y = 13: 
GOSUB 11000: 
PRINT "2. ACTUALIZACION": 
Y = 15: 
GOSUB 11000; 
PRINT "3. IMPRESION": 
Y =17: 
GOSUB 11000: 
PRINT "4, FIN DE TAREA" 
16980 Y = 19: 
GOSUB 11000: 
PRINT "CUAL 2"; 
16990 GET A$: 
IF AS <,"1" OR AS > "4" THEN 1698 
0 
17000 PRINT A$: 
FL = VAL (A$): 
IF FL = 3 THEN 17080 
17005 IF FL = 4 THEN RETURN 
17010 IN$ = "VOCABLO N.": 
CO = MX 
17020 IF FL = 2 THEN IN$ = "ACTUALIZACI 
ON": 
co =0 
17025 BS$(1) = "" 
17030 GOSUB 7000: 
GO0SUB 2000: 
GOSUB 3000: 
IF FS = 7 THEN 16950 


17040 IF FS = 6 THEN 17030 
17050 A$ = B$(1): 


Lo = 20 
17060 GOSUB 11500: 
GOSUB 17500 
17070 GOTO 17010 
17080 HOME : 
YT = 13: 
TI$ = "EN VIDEO O IMPRESORA? (V/I 
e 
GO0SUB 11200 
17090 GET A$: - 
IF ASX > "V" ANDAS < > "I" 
THEN 17080 
17100 IF A$ = "I" THEN IM = 1: 
PRINT D$: 
PRINT DS; "PRH1": 





A 


17110 


17115 


17117 
17118 
17120 


17130 


17140 


17150 


17160 


17170 
17175 


17180 


17500 RE] 


17510 
17520 
17525 
17330 
17540 


17550 
17560 
17570 
17580 
17590 


17600 


17610 


17620 


17630 
17540 


17650 


17660 
17670 


PRINT D% 
HOME : 
R=i 
Xx =.8: 
Y = 8: 
GOSUB 11000; 
PRINT "COD."; TAB( 15); "VOCABLO": 
GOSUB 11000: 
FPRINT : 
PRINT : 
Y = 10 
POKE 34, 
IF MX < 
FOR I = 
NR = 
GOSUB_£200 
GOSUB 11000: 
PRINTNR - 1; TAB( 15);AA$ 
Yard 
td 
TFR < = 10 THEN 17170 
1F IM< > 1 THEN GOSUB 11100 


O MX: 


8 

2 THEN 17175 
aan 

1 


Dn 
5 
m 


DIXIT 
- O.» 


-1 
dl 
=8 
NEXT 1 
IF IM = 1 THEN IM = 0: 
PRINT DS: 

PRINT DS; "PRHO": 
PRINT_D$ 

GOSUB 11100: 

POKE 34,53 


REM BUSCA VOCABLO 
A 
IF MX = 1 THEN 17580 
FOR IR = 2 TO MX 

NR = IR: 

GOSUE 6200: 

C$ = AAS 

GOSUB 18500 

IF K9 = LO THEN 17630 
NEXT_IR 
IF FL = 0 THEN RETURN 
IF FL = 2 THEN HOME : 
YT = 13: 
TI$ = "EL VOCABLO NO EXISTE": 
INVERSE + 
GOSUBR 11200: 
GOSUB 11100: 
RETURN 
MX = MX + 13 
NR = MX: 
AA$ = BS(1)1 
GOSUB_ 6400 
NR = 1: 
AAS = STR$ (MX): 
GOSUB 6400 
RETURN 
IF FL = 0 THEN RETURN 
IF. FL. = 1 THEN HOME : 
YT = 13: 
TI$ = "EL VOCABLO YA EXISTE": 
INVERSE +: 
GOSUB 11200: 
GOSUB 11100: 
RETURN 
B$(1) = AMS: 
TP (1) =.4: 
GOSUB 2000: 
TPL). = 32 
GOSUB 3000: 
IF FS = 7 THEN. RETURN 
IF FS = 6 THEN 17650 
AAS = B$(1): 
GOSUB 6400 


17680 RETURN 
18500 REM ----------- 
18510 REM CONPARACION 


18520 REM --— 





18530 IF A$ = C$ THEN K9 = LO: 


N 
18540 K9 = 0: 
1 


RETURI 


10 


18550 C1$ = MID$ (A$,10,1) 
18560 IF C1$ = " " THEN K9 =K9 + 1: 


GOTO 18590 


18570 C2$ = MID$ (C$,10,1) 
18580 IF C1$ = C2$ THEN K9 = K9 + 1 
18590 IF IO < LO THEN IO = 10 + 1: 


GOTO 18550 


18500 RETURN 
Crecimiento 


10 
20 
30 
40 
45 
50 
60 


70 


80 


100 
110 
120 
130 
140 
150 
160 


170 
172 


174 
176 
178 


180 
190 


REM AAA A A e 2 

REM FACTOR DE CRECIMIENTO 

REM VERSION DOS 

REMO — 
ONERR GOTO 40000 

REM INICIALIZACIONES 

DIM TF (15), TP(20),LC(20) ,ND(20),C 
X (20) ,CY (20) ,DX (20) ,DY (20) ,B$(20) 
,D$(20),V0$ (10), HES (8) 

BP$ = CHRS (7): 

NS$ = "4": 

AS$ = CHR$ (95): 

PDS = "2 

BLS = "o" 

D$ = CHR$ (4): 

US$ = CHR$ (13): 

ES = "0": 

GIUs =" "z 

Sig = "/" 

BS =" ": 

BAS = B$ + BS + B$ + Bó: 

es. 

HES = "AYUDA. CTRL - Y" 

HE$(1) = "CTRL Y, AYUDA (ESPACIO 
PARA CONTINUAR)" 

HES(2) = "ESC. ANULA TODA LA INTR 
ODUCCION " 

HE$(3) = "RETURN. ALINEA Y CONVALI 
DA INTRODUCCION " 

HES(4) = "CTRL 1. PERMITE LA INSE 
RCION DE ESPACIOS" 

HES(5) = "CTRL D, BORRA UN CARACT 
ER » 

HES(6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL * 

HES(7) = "CTRL 4W,A, S,Z.MUEVEN EN 
LAS 4 DIRECCIONES" 

HES$(8) = "CTRL E. INTRODUCCION EN 


DISCO 
TEXT : 


HOME + 

YT = 12: 

TI$ = "CUANTAS UNIDES HAY (1/2) ? 
"y 

GOSUB 11200 

GET Ab: 

IF A$ < "1" OR AS > "2" THEN 172 

DR$ = A$:; 

PRINT DR$ 

HOME : 

YT = 12: 

TI$ = "INTRODUCIR DISCO DATOS EN 

LA UNIDAD " + DR$: 

GOSUB 11200: 

GOSUB 11100 

MP$ = "FACTOR DE CRECIMIENTO" 

DIM MT(12),PT(2,12),HT(2,12),CT(2 
,12),M(20) ,P (20) ,H(20),CF(20),P18 
(20) ,P2$ (20) ,P3$ (20) 


230 


260 


330 


390 


410 


460 
510 


520 
530 


550 


GOSUB 500 

RESTORE : 

READ PROG$: 

READ NV: 

MA = NV +1 

FOR I = 1 TO NV: 
READ VOS$(1)2 

NEXT 1 

VO$(MA) = "FIN DE TAREA" 

FOR I = 1 TO 15: 
READ TF(1): 

NEXT 1 

L=0: 

FOR 1 = 1 TO 


LL + 3 

XC = (42 - L) / 2 

YC. = (25 - (NV. 2+1)) / 2 
GOSUB 1300 

IF OPZ <> (MA) THEN 390 
IF DR$ = "1" THEN HOME + 

YT = 13: 

TI$ = "INTRODUCIR DISCO PROGRAMAS 
G0SUB 11200: 

GOSUB 11100 

HOME + 

GOSUB 11500: 

PRINT DS: 

FRINT D$; "RUN MAIN-MEDICINA, D1" 
LM = 0PZ - 1: 

ON OPZ GOSUB 8000,5000, 14000, 1600 
0,12000 

GOSUB 6700: 

IF IM = 1 THEN PRINT D$s 
FRINT D9;"PRHO": 

PRINT DS; 

IM =0 

Y =3: 

X.=.18 

GOSUB 11000: 

INVERSE : 

PRINT— LEFTS (BA$,40)3+ 
NORMAL. 

GOTO 230 
A 

REM PRESENTA CABECERA 


POKE 34,0: 
HOME: 
INVERSE + 
PRINT" E. G. S. "+ LEFTS (BAS 
+65) + "EDICIONES FORUM, S.A." 
om 
NORMAL: 

YT = 31 

TIS = MPG: 
GOSUB 11200 
Y =2: 

X= 1: 
INVERSE + 
GOSUB 11000: 
PRINT " ": 

X = 40: 
GOSUB 11000: 
PRINT " "za 
Y =3: 

X= 1e 
GOSUB 11000: 
PRINT " "a 
X = 40: 
GOSUB 11000: 
PRINT " "31 
Y =. 4: 
X= 11 

GOSUB 110001 
PRINT " "s 


570 

1300 
1310 
1320 
1330 
1350 
1360 


1370 
1380 
1390 
1400 
1410 
1415 


1440 
1450 


1460 
1470 


1480 


1490 
1500 


1510 


1520 
1530 


1550 


1560 
1570 
1580 
1590 
2000 
2010 
2020 


2035 


2040 


Xx = 40: 

GOSUB 11000: 

PRINT * "5: 

Y 

X= 1: 

GOSUB 11000 a 
PRINT— LEFTS$ (BA$,40)5: 
NORMAL: 

POKE 34,5 

RETURN 

REM A A 
REM_ MENU PRINCIPAL 
REM A A o 
HOME 

FOR 1 = 1 TO MA 

11 2+YC: 
XC: 
B 1 


o Mia 


Y 
Xx 
GO: 1000 
11 =1 


IF 11 = (MA) THEN 11 = 0 
PRINT 113"- "¿VOS (1) 

NEXT 

I=1 

XS = XC - 2: 

SP = XC - XS 

Y =1%2+YC: 

X = XS: 

GOSUB 11000 

PRINT "->"3 

GET 0PZ$: 


OPZ = VAL (0PZ$): 
IF OPZ$ = US$ THEN 1530 
IF OPZ > NV THEN 1450 
IF OPZ$ = ZE$ THEN X = XS: 
GOSUB 11000: 
PRINT_ SPC( SP)33 
I = MA: 
GOTO 1420 
IF ASC (0P7$) > 48 AND ASC (0PZ 
$) < 58 THEN X = XS: 
GOSUB 11000: 
PRINT_ SPC( SP)53 
I = 0PZs 
GOTO 1420 
IF OPZ2$ < > GIU$ THEN 1450 
X = XS: 
GOSUB 11000: 
PRINT_ SPC( SP); 
1=1+42 
1F 1 > (MA) THEN 1410 
GOTO 1420 
X = XC: 
Y=13% 2 + YC 
11 = 1; 
IF 1 > NV THEN 11 = O 
PRINT 1I5"- ";s 
INVERSE 
PRINT VO$(1) 
NORMAL. 
OPZ = 1 
RETURN 
O 
REM PRESENTA MASCARA 
BESO 5 — 
HOME : 
Y =7: 
X= 1: 
GOSUB 11000: 
PRINT " VOZ "¡OPZ 
YT =3: 
TIS = HES: 
INVERSE : 
GOSUB 11200: 
NORMAL. 
YT =7: 
TIS = INS: 
GOSUB 11200 
Y = 


2060 
2070 
2080 
2090 


2100 
2110 


2120 


2130 
2140 
2150 
2160 
2170 
2180 

2240 
2250 

2260 
2270 


2280 
2290 


2300 


2310 
2320 
2330 


2340 
2345 


2350 


2360 


2370 
2380 


2390 


2400 
2410 
2420 
2430 
2440 
2450 


2460 
2470 
2480 
2490 


2510 
2610 
2620 


2630 
2640 


2650 


GO0SUB 11000: 
PRINT CO 
SP = 33 - LEN (VO$(0PZ)) 
SPg = "" 
IF SP = O THEN 2100 
FOR J = 1 TO SPz 
SP$ = SP$ + BL$: 
NEXT 
LP = LEN (PROG$) 
SI = INT ((40 - LP) / 2): 
DE = 40 - LP - SI 
SIS = "": 
DES = "" 
FOR J = 1 TO SI 
SI$ = SIS + BLS$ 
NEXT 
FOR J = 1 TO DE 
DES = DES + BL$ 
NEXT 
REM _ MASCARA 
FOR J = 1 TO NUC 
AS =“" 
X = DX(J): 
Y = DY(J): 
GOSUB 11000: 
PRINT D$(J) 
NORMAL 
IF TP(J) <> 5 AND TP(J) 
< > 4 THEN 2330 
Xx = CX(J): 
Y = CY(J): 
GOSUB 11000 
PRINT B$(J) 
GOTO 2500 
N1 = LC(J): 
N2 = ND(J): 
IF TP(J) = 1 OR TP(J) = 2 
THEN C$ = NS$: 
GOTO 2350 
C$ = AS$ 
IF Ni = 1 THEN A$ = C$2 
GOTO 2390 
FOR 1 = 1 TO Ni - N2 - 1: 
AS = AS + CS: 
NEXT I 
IF N2 = O THEN A$ = A$ + CS 
GOTO 2390 
A$ = A$ + PDS 
FOR I = 1 TO N2: 
AS = AS + ZEb: 
NEXT 1 
Xx = CX(J): 
Y = CY(J): 
G0SUB 11000 
PRINT A$ 
BSD) ="" 
FOR K = 1 TO N1 - N2 - 1 
B$(J) = B$(J) + BLS$ 
NEXT K 
IF N2 = O THEN B$(J) = B$(J) 
+ BL$: 
6GoTOo 2500 
B$(J) = B$(J) + PDS 
FOR K = 1 TO N2 
BS$(J) = B$(J) + BLS 
NEXT K 
NEXT J 
RETURN 





REA --—_He—_uaa———Á 
IF LM< >0 THEN 2670 
X = 25: 

Y = 15: 

GOSUB 11000: 

PRINT "(CM)" 

Y = 172 

GOSUB 11000: 


A 





2660 
2670 
2680 


2690 
2700 


2900 


3010 
3020 
3030 
3040 


3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 


3140 


3150 


3160 


3170 


3180 


3190 


3200 


3210 
3220 


3230 
3240 
3250 
3260 
35270 
3280 
3290 


3300 


3310 


520 


RETURN 

IF LM< > 5 THEN 2700 
X = 142 

Y = 14: 

GO0SUB 11000: 

PRINT "NACIMIENTO" 
RETURN 

IF LM = 4 THEN X = 10: 
Y = 14: 

GOSUB 11000: 


PRINT "FECHA DE NACIMIENTO" 
RETURN 

RTS 

REM DATA ENTRY 

REMO 

J=1 

NC = y: 

X = CX(NC): 

Y = CY(NC) 

cc =1 

GOSUB 3240 

IF FS = O THEN 3100 

IF FS > 4 THEN 3210 

GOTO 3120 

J=J+1: 

IF J > NUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 
IF J >1 THEN J=J- 1: 
GOTO 3040 

PRINT BP$;: 

FS = 0: 

Y = NUC; 

GOTO 3040 

IF J < NUC THEN J =J + 1: 
GOTO 3040 

PRINT BP$;: 

FS = 0: 

GOTO 3030 

IF CC < LC(J) THEN SO = 1: 
CC = CC + 1: 
X= X +1: 
GOSUB 11000: 
GOTO 3060 
PRINT BP$: 

FS = 0: 

GOTO 3100 

IF CC > 1 THEN SO 
CC = CC - 11 
La os de 
GOSUB 11000: 
GOTO 3060 
PRINT BP$;+ 

FS. = 03 

GOTO 3040 

IF FS > 8 THEN FS = 0: 
GOTO 3060 

IF FS = 8 THEN FS 
GOTO 3100 
RETURN 

REA _A— 


REM LECTURA DE UN CAMPO 


n 
' 
- 


" 
2 


IF TP(NC) = 4 THEN RETURN 

IF TP(NC) = 2 THEN GOSUB 9000: 
B$(NC) = LEFTS (B$(NC),LC(NC)): 
CC = LEN (B$(NC)) + 1: 

GO0SUB 4080: 

RETURN 

IF MID$ (B$(NC),CC,1) = PD$ 
THEN X = X + SO: 

CC = CC + SO 

GOSUB 11000 

GET A$: 

IF A$ = "" THEN 3320 

CA = ASC (A$): 


IF CA > 31 THEN 3380 
FOR 1 = 1 TO 15 


3410 
3420 
3430 
3440 


3450 
3460 


3520 
3530 
3550 


3560 
3570 


3580 


3390 
3620 


3630 
3640 
3650 
3670 


3680 
3690 


3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 


3790 
3800 


3820 
3830 


3860 


3870 


3880 


3900 
3910 


3930 
3940 


1F 1 AT = (CA) THEN FS 


GOSUB 3630: 
RETURN 
NEXT 1 
GOTO 3320 
IF TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 46 OR (CA 
> = 48 ANDCA< = 57) THEN 341 
o 
PRINT BP$;: 
GOTO 3320 
IF CAX > 46 THEN 3440 
GOSUB 4270 
IF SWP = 1 THEN 3400 
So = 1: 
GOSUB. 3520 
IF CC = LC(NC) THEN RETURN 
CC = CC + 1: 
X= X +1: 
GOTO 3300 
RE 
REM TRANSFERENCIA AL BUFFER 
REM A A 
IF CC = 1 THEN SN$ = ""z 
GOTO 3570 
SN$ = LEFTS (B$(NC),CC - 1) 
IF CC = LC(NC) THEN DS$ = ""z 
GOTO 3590 
N = LC(NC) - CCz 
DS$ = RIGHTS (BS$(NC),N) 
B$ (NC) = SN$ + A$ + DS$ 
PRINT A6: 
RETURN 
REM 
REM COMANDOS 
REM —— 
IF FS > =5 THEN 3690 
IF FS = 5 AND TP(NC) = 1 THEN 
GOSUB 4080 
RETURN 
IF FS = 9 THEN GOSUB 13000: 
RETURN 
IF FS = 8 THEN GOSUB 4080: 
RETURN 
IF FS < 8 THEN RETURN 
ON FS - 9 GOSUB 3740,3910 
RETURN 
REM 
REM INSERCION 
REMERA 
IF CC = LC(NC) THEN PRINT BP$: 
RETURN 
IF CC = 1 THEN SNS = ""z 
GOTO 3800 
SN$ = LEFTS (B$(NC),CC -— 1) 
N = LC(NC) - CC + 12 
DS$ = RIGHTS (B$(NC),N) 
C$ = BLS 
AS = SN$ + C% + DS$ 
BS$(NC) = LEFTS (A$,LC(NC)) 
XX =X: 
YY = Y 
X = CX(NC):z 
Y = CY(NC): 
GOSUB 11000 
X = XX: 
Y = YY 
PRINT BS (NC): 
s0= -1 
IF RIGHTS (B$(NC),1) = PDS 
THEN 3780 
RETURN 
REM A 
REM BORRADO 
REM ——-—-- 
IF TP(NC) < > 1 THEN 3960 
IF MIDS (B$(NC),2,1) = PD$ 
AND CC = 1 THEN RETURN 





3970 


4010 


4020 
4030 
4040 


4050 


4060 


4070 


4080 
4090 
4100 
4110 
4120 
4130 


4140 


4150 
4170 
4180 
4190 

200 
4210 


4230 


4250 
4260 


4270 
4280 
4290 
4300 
A310 


4320 
4330 


4340 


5010 
5020 
3030 


5060 


5070 


1F CC < 1 THEN PRINT BP$: 
RETURN 

IF CC = LC(NC) THEN DS$ = “"z 
GOTO 4000 

N = LC(NC) - CCz 

DS$ = RIGHTS (B$(NC),N) 
IF CC = 1 THEN SN$ = "": 
GOTO 4010 

SN$ = LEFTS (B$(NC),CC — 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN C$ = NS$: 

GOTO 4030 

C$ = AS$ 

B$ (NC) = SN$ + DS$ + C$ 

XX =X: E 

YY = Y 

X = CX(NC)2 

Y = CY(NC): 

GO0SUB 11000 

X = XX: 

Y = YY 

PRINT B$(NC): 

SO = 1: 

RETURN 

REM PS 

REM _ ALINEADOS 

REM -—— 
IF LC(NC) = 1 THEN RETURN 

Ni = LC(NC) - CC + 1 

IF CC = 1 THEN B$(NC) = ""z 
GOTO 4150 

B$(NC) = LEFTS (B$(NC),CC 

=1) 

IF TP(NC) = 1 OR TP(NC) = 2 
THEN 4200 

FOR 1 = 1 TO Ni 

B$(NC) = B$(NC) + BL$ 

NEXT 1 

GOTO 4240 

FOR I = 1 TO Ni 

B$ (NC) = BL$ + B$(NC) 

NEXT 1 

IF RIGHTS (B$(NC),1) = PD$ 
THEN B$(NC) = BL$ + LEFTS (B$(N 


C).LC(NC) - 1) 
X = CX(NC): 


Y = CY (NC) 
GOSUB 11000 
PRINT B$ (NC): 
RETURN 
A 
REM CTRL.PUNTO 
a 
SsWP = 0 
IF CC = 1 OR CC = LC(NC) THEN SWP 
=1: 
RETURN 
FOR 1 = 1 TO LC(NC) 
IF MIDS (B$(NC),1,1) = PD$ 
THEN 1 = LC(NC): 
SWP = 1: 
RETURN 
NEXT 1: 
RETURN 
REM ?5->->-__—_aamm_mu———— 
REM VARIACION DATOS 
REM AAA AA A AAA 
HOME : 
YT = 13: 
TI$ = "NOMBRE (”0” PARA SALIR) "s 
GOSUB 11200 
INPUT N$: 
IF N$ = "" THEN 5030 
IF N$ = "O" THEN RETURN 
HOME : 
TI$ = "NUMERO REGISTRO A VARIAR": 
GOSUB 11200 
INPUT C$: 
E = VAL (CS): 





5073 


5080 


5090 


s100 


5110 


5115 


5120 


5125 


5130 


5140 
5150 


5160 


6000 
6010 
6020 
6030 
6040 


6050 
6060 
6200 
6210 
4220 
6230 

240 
6250 
6260 
6270 
6400 
6410 
5420 
6430 
6440 
6450 
6450 
6470 
6600 
6610 
6620 
6630 
6640 


6660 
6700 
6710 
6720 
6730 


6740 


IF C< 1 OR C > 20 THEN 5060 
LM = 0: - 
GOSUB 7000 
NFS = LEFTS (N$,3): 
LR = 20: 
GOSUE 6000 
NR = 1: 
GOSUB 6200: 
MX = VAL ( MID$ (AA$,14,2)) 
IF MX < C + 1 THEN HOME : 
YT = 13: 
TI$ = "NUMERO REGISTRO NO VALIDO" 
INVERSE : 
GOSUB 11200: 
GOSUB 11100: 
GOTO 5060 
NR =C + 1: 
GOSUB 5200: 
Bs (1) N$: 
B$(2) LEFTS (AA$,2): 
B$ (3) MIDS (AA$,3,2): 
B$(4) MIDS (AA$,5,2): 
Bs (5) MIDS (AA$,7,3): 
B5$(6) MIDS$ (AA$, 10,4): 
Bs (7) MID$ (AA$, 14,2) 
FOR I = 1 TO 7: 
TP(1) = 4: 
NEXT 1 
GOSUB 2000: 
GOSUB 2600: 
GOSUB 7000 
TP(1) = 4 
GOSUB 3000: 
IF FS = 7 THEN RETURN 
IF FS = 6 THEN 5115 
AAS = B$(2) + B$(3) + B$(4) 
+ B$(5) + BS(6) + B$(7):2 


GOSUB 6400 
GOSUB 6600: 


GOTO 5030 

REM 
REM APERTURA FICHEROS 
REM a e e 
PRINT D$ 

PRINT DS; "OPEN"¿NF$ + ",D" 
+ DR$5",LUGLR + 2 

PRINT D$ 

RETURN 

REM ===> 

REM LECTURA REGISTRO 

REM === 
PRINT DS 

PRINT DS; "READ"¿NF$;",R"¿NR 
INPUT ARS 

PRINT DS 

RETURN 

REM 
REM ESCRITURA REGISTRO 

REM 


.n.... 4... 


PRINT DS 

PRINT DS; "WRITE"¿NF$3",R"¿NR 
PRINT — CHR$ (34) + AAS 

PRINT Ds 

RETURN 

a 

REM CIERRA FICHEROS 

REM === 

PRINT D$ 

PRINT D$;"CLOSE"¿NF$ 

PRINT D$ 

RETURN 

REN ——————— 
REM CIERRA TODOS LOS FICHEROS 
€ AAA 
GOSUB 6600: 

NFS = "TABV": 

GOSUB 6600 

NF$ = "TABH": 


7000 
7010 


7030 
7040 
7050 
7060 
7070 


7075 
7080 
7085 


7090 


7095 
7100 
7110 


7120 


8010 
8020 
8030 


8060 
8070 


8080 


8090 


8100 


8110 


8120 


8130 
8140 


GOSUB 6600 
RETURN 
REM —_ _———— 
REM — LECTURA DE LOS DATOS 
A 
RESTORE 
READ DA$: 
READ NV 
FOR 1 = 1 TO NV + 153 
READ DA$: 
NEXT 1 
IF LM = O THEN 7075 
ND = O: 4 
FOR 1 = O TO LM - 1: 
READ DA: 
ND = ND + DA + (DA 4 7)1 
NEXT 1 
READ NUC: 
IF NUC = O THEN RETURN 
IF NV - LM - 1 = O THEN 7090 
FOR I = 1 TO NV - LM- 13 
READ DA$: 
NEXT 1 
IF LM = O THEN 7100 
IF ND = O THEN 7100 
FOR I = 1 TO ND: 
READ DA$: 
NEXT 1 
FOR I = 1 TO NUCs 
READ D$(1): , 
NEXT 1 
FOR 1 = 1 TO NUC: 
READ TP(1),LC(1),ND(1),DX(1),D 
Y(D,CX(1),CY (1D): 
NEXT 1 4 
RETURN 
REM 
REM INTRODUCCION DATOS 
REM 
IN$ = “INTRODUCCION DATOS": 
GOSUB 7000 
GOSUB 2000: 
GOSUB 2600 
GOSUB 3000: 
IF FS = 7 THEN RETURN 
1F FS = 6 THEN 8040 
DD = VAL (B$(2)):3 
MM= VAL (B$(3)): 
AA = VAL (B$(4)) 
IF DD < 1 OR DD > 31 OR MM 
< 1 OR MM > 12 OR LEFTS (B$(1), 
1) = " " THEN GOSUB 11900: 
FOR 1 = 1 TO 7: 
TP(D = 4: 
NEXT ls 
GOSUB 2000: 
GOSUB 2600: 
G0SUB 7000: 
GOTO 8050 
NFS = LEFTS (B$(1),3): 
LR = 20: 
6G0SUB 6000 
NR = 1: 
GOSUB 6200: 
MX = VAL ( MIDS (AA$,14,2)) 
IF MX > 21 THEN HOME : 
YT = 13: 
TI$ = "FICHERO COMPLETO": 








GO0SUB 11200: . 
GOSUB 11100: 

RETURN 

NR = MX: 

GOSUB £200: 

PG = VAL ( LEFTS (AA$,2)): 
PM = VAL ( MIDS (AA$,3,2)): 
PA = VAL ( MIDS (AA$,5,2)) 
Di = DD + MM £ 31 + AA $ 345 
DF = PG + PM 3 31 +PA 2 365 


8150 


8160 


8170 


8570 
8580 


8700 
8710 


8740 


8760 
8770 


9010 
9020 


10010 
10020 
10030 
10040 
10050 


10060 


10070 
10080 


10090 
10100 
10110 
10120 
10130 
10140 
10150 
10900 


10910 
10920 
10930 
10940 
10950 
11000 
11010 
11020 
11030 


IF Dí < = DF THEN G0SUB 11900: 
FOR 1 = 1 TO 7: 

TP(1) = 4: 
NEXT 1: 
S0SUB 2000: 
GOSUB 2600: 
G0SUB 7000: 
GoTo 8oso 
MX = MX + 1: 
NR = MX: 
AAS = B$(2) + B$(3) + B$(4) 
+ BS(S) + B$(6) + B$(7): 
GOSUB 6400 
NR = 1: 
GOSUB 6200: 
AAS = LEFTS (AA$,13) + STR$ (MX 
d: 
G0SUB 6400 
GOSUB 6600: 
GOTO 8040 
REM 
REM LECTURA FICHEROS 
REM ————— 
GOSUB 6200 
FOR 19 = 1 TO NUC 

IF TP(19) = 4 THEN LC(19) 





= LOCO - 1)1 
GOTO 8570 
BS(19) = MIDS (AAS,1 + LC(19 
- 1),LC(19)) 
LC(19) = LE(I9) + LCC19 
-1 
NEXT 19 
GOSUB 7000: 
RETURN 
REM 
REM ESCRITURA FICHEROS 
REM 
Ras“. 


FOR 19 = 1 TO NUC 
IF TP(19) = 4 THEN 8770 
ARAS = ARS + BS(19) 

NEXT 19 

GOSUB 6400: 


REM —-- 

DATA "FACTOR DE CRECIMIENTO" 

DATA 5 

DATA "INTRODUCCION DATOS", "VARIAC 
IONES", "IMPRESION", "LISTA PERSONA 
S", "GENERACION SISTEMA" 

DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 

DATA 7,0,0,0,5 

DATA "NOMBRE", "DIA", "MES", "ANO", " 
ALTURA", "PESO", "CRANEO" E 

DATA 3,6,0,5,9,13,9 

DATA 1,2,0,5,11,13,11 

DATA 1,2,0,17,11,23,11 

DATA 1,2,0,27,11,33, 11 

DATA 1,3,0,10,15,19,15 

DATA 1,4,1,10,17,19,17 

DATA 1,2,0,10,19,19,19 

DATA "NOMBRE", "SEXO", "DIA", "MES", 
"ANO" 

DATA 3,6,0,13,9,20,9 

DATA 3,1,0,13,11,20,11 

DATA 1,2,0,5,16,13,16 

DATA 1,2,0,17,16,22,16 

DATA 1,2,0,26,16,31,16 

REM _— 


VTAB Y 
11040 RETURN 
11100: REA 
11110 REM ESPERA CARACTER 
A A 
11130 GOSUB 11600: 

YT = 23: 

TI$ = "PULSAR UNA TECLA": 

FLASH : 

60SUB 11200 
11140 PRINT BPS$;: 

xXx = 20: 

Y = 233 

GOSUB 11000: 

GET AS: 

GOSUB 114600 
11150 RETURN 
11200 REM_————--—-—- 
11210 REM CENTRA EN VIDEO 
11220 REM -----------=-=-- 
11230 IF TIS = "" THEN RETURN 
11235 A0$ = TIS:; 

GOSUB 11300: 

A0$ = LEFTS (A0$,40) 
11240 XT = (42 - LEN (A0$)) / 2 
11250 HTAB XT: 

VTAB YT 
11260 PRINT A0$;: 


11300 
11310 
11320 
11325 IF A0$ = "" THEN RETURN 
.11330 FOR 20 = 1 TO LEN (A0$) 
11340 IF MIDS$ (A0$,Z70,1) < >" " 
THEN 11360 
11350 NEXT Z0 
11355 RETURN 
11360 A0$ = RIGHTS (A0$, LEN (A0$) 
=29.+ 1) 
11370 FOR 70 = 1 TO LEN (A0$) 
11380 IF MIDS (A0$,20,1) < >" " 
THEN 11400 
11390 IF MID$ (A0$,Z0 + 1,1) 
= " " THEN 11410 
11400 NEXT ZO: 
IF. MIDS (A0$,Z0 - 1,1) =" " 
THEN Z0 = 20 - 1 
11410 AO0$ = LEFTS (A0$,Z0 - 1) 
11420 RETURN 
11500 REM 
11510 REM PETICION DE ESPERA 
11520 REM 
11530 GOSUB 11600: 
YT = 23 
11540 TI$S = "ESPERE, POR FAVOR": 
INVERSE : 
G0SUB 11200 
11550 NORMAL 
11560 RETURN 
11500 REM 
11610 REM BORRA ULTIMA LINEA 
11620 REM 
11630 Y = 23: 
“X =1: 
G0SUB 11000 
11640 NORMAL : 
PRINT_ LEFTS (BA$,40)5: 
Y = 10: 
GO0SUB 11000 
11650 RETURN , 
11700 REM_——-—---—=——--= 
11710 REM ALIN. DERECHA EN VIDE! 
11720 REM —— - 
11730 IF TIS = "" THEN RETURN 
11735 IF XT > 40 THEN XT = 40 
11740 AO$ = TIS$: 
GOSUB 11300 
11750 X = LEN (A0$): 























ENTRES 
Y = YT 
11760 IF X < 1 THEN X = 1 
11770 GOSUB 11000: 
PRINT A0$; 
11780 RETURN 
11000 EA AAA 
11810 REM ALIN. IZQUIERDA EN VIDEO 
OR AAA AAA 
11830 IF TIS = "" THEN RETURN 
11840 A0$ = TI$: 
GOSUB 11300 
11850 IF XT < 1 THEN XT = 1 
11860 X = XT: 
Y = YT: 
GOSUB 11000 
11870 PRINT A0$; 
11830 RETURN 
11900 REM -———-—— 
11910 REM AVISO DE ERROR 
HITA 
11930 HOME : 
YT = 13: 
TI$ = "ERROR DE INTRODUCCION”: 
INVERSE : 
GO0SUB 11200: 
GO0SUB 11100 
11940 RETURN 
A 
12010 REM GENERACION FICHEROS PERSONAS 
42020" REM romeo 
12023 IN$ = "GENERACION": 
co=0 
12030 LM = 4: 
GOSUB 7000: 
GOSUB 2000: 
G0SUB 2600 
12040 GOSUB 3000: 
IF FS = 7 THEN RETURN 
12050 IF FS = 6 THEN 12030 





12060 DD = VAL (B$(3)): 
MM = VAL (B$(4)): 
AA = VAL (B$(5)) 


12070 IF DD < 1 OR DD > 31 OR MM 
< 1 OR MM> 12 0R LEFTS (B$(1), 
a 0 OR RO) € YA 
AND B$(2) < > "H") THEN 
GOSUB 11900: 
GOTO 12030 
12080 NF$ = LEFTS (B$(1),3): 
LR = 20: 
GOSUB 6000 
12090 NR = 1: 
AAS = B$(1) + B$(2) + B$(3) 
+ B$(4) + BS(5) + "1" 
12100 GOSUB 6400 
12110 LM = 0: 
GOSUB 7000: 
FOR 1 = 1 TO 4: 
TP(1) = 4: 
NEXT 1 
12120 B$(2) = B$(3): 
B$(3) = B$(4): 
B$(4) = B$(5) 
12130 GOSUB 2000: 
GOSUB 2600 
12140 GOSUB 3000: 
IF FS = 7 THEN RETURN 
12150 IF FS = 6 THEN 12130 
12160 NR = 2: 
AAS = B$(2) + B$(3) + B$(4) 
+ BS(5) + BS(6) + B$(7) 
12170 GOSUB 64400: 
NR = 1: 
G0SUB 6200 
12180 AA$ = LEFTS (AA$,13) + "2": 
GOSUB 4400 
12190 (SUB 6600: 
EJTO 12030 


13000 REM --—- 
13010 REM AYUDA 
13020 REM --—--- 
13030 XX = Xz 
YY = Y 
13040 INVERSE 
13050 K = 1 
13060 X = 1: 
Y =53: 
60SUB 11000 
13070 PRINT HES(K)5 
13080 B= PEEK ( - 16384) 
13090 POKE - 16368,0 
13100 IF B< 128 THEN 13080 
13110 IF B< > 160 THEN 13080 
13120 K =K + 1: 
IF K > 8 THEN 13140 
13130 GOTO 13060 
13140 Y = 5: 
X= 1: 
G0SUB 11000: 
FRINT LEFTS (BA$,40); 
13150 YT = 5: 
TIS = HES: 
GOSUB 11200 
13160 NORMAL 
13170 


13180 RETURN 
14000 REM ——----- 
14010 REM IMPRESION 
14020 REM ----—--- 
14030 HOME : 


14040 INPUT N$: 
IF N$ = "" THEN 14030 
14060 NF$ = LEFTS (N$,3):2 
LR = 20: 
GOSUB 6000: 
NR = 1: 
GOSUB 6200 
14070 A$ = MIDS (AA$,7,1) 
14080 NF$ = "TABV": 
IF AS = "H" THEN NFS = "TABH" 
14085 LR = 20: 
GOSUB 6000 
14090 FOR NR = 1 TO 12 
14100 GOSUB 6200: 
MT(NR) = VAL ( LEFTS (AA$,2)) 


14110 HT(1,NR) = VAL ( MID$ (AAS$,3, 
3)): 
HT(2,NR) = VAL ( MIDS (AAS,6, 
3)) 
14120 PT(1,NR) = VAL ( MIDS (AA$,9, 
4): 
PT(2,NR) = VAL ( MIDS (AA$,13 
2) 
14130 CT(1,NR) = VAL ( MID$ (AA$,17 
,2)): 
CT(2,NR) = VAL ( MIDS (AA$,19 
,2)) 
14140 NEXT NR 
14150 NF$ = LEFTS (N$,3) 
14160 NR = 1: 
GO0SUB 6200: 
MX = VAL ( MID$ (AA$,14,2)) 
14170 NG = VAL ( MIDS (AA$,8,2)): 
NM = VAL ( MID$ (AA$,10,2)): 
NA = VAL ( MIDS (AA$,12,2)) 
14180 FOR RE = 2 TO MX 
14190 NR = RE: 
GOSUB £200 


14200  DD= VAL ( LEFTS (AA$,2)): 
MM = VAL (MIDS (AA$,3,2)): 
AA = VAL ( MIDS (AAS,5,2)) 
14210 AP. = AA - NA: 


MP = MM - NM: 
GP = DD - NG: 
P=0: 


IF GP > 15 THEN P = 1 

14220 MNR — 1) = 12% AP + MP 
3 

14230 HINR — 1) = VAL ( MIDS (AAS,7 
133): 
PINR — 1) = VAL ( MIDS (AAS,1 
0,4)): 
CF(NR — 1) = VAL ( MIDS (ARAS, 
14,2)) 

14240 NEXT RE 

14250 FOR I = 1 TO MX - 1 

14260 FOR J = 1 TO 12 


14270 IF M(1) = MT(J) THEN 14350 
14280 IF MT(J) < M(1) THEN 14300 
14290 J=J-1: 

GOTO 14350 


14300 NEXT J 
14310 PIS(D = ".": 
P2S(1) = ".": 
P3S(D) = ".“: 
GOTO 14430 
14350 HM = (HT(1,J) + HT(2,3)) 
1 23 
PM = (PT(1,3) + PT(2,J)) 
/ 23 
cm 
/ 
14360 H5 


(CT(1,3) + CT(2,3)) 


(HM / 100) k S: 
PS (PM / 100) XK S: 
C5 = (CM / 100) 45 
14370 IF ABS (H(1) - HM< =H5 
THEN P1$(D) = "Y"; 
GOTO 14390 
14380 PSI) = "*"s 
IF H(1) - HM< O THEN P1$(1) 
==. 
14390 IF ABS (P(1) - PM< =PS 
THEN P2$(D) = "Y": 
GOTO 14410 
14400 P25(D) = "e: 
IF P(1) - PM< O THEN P2$(1) 
IZ 
14410 IF ABS (CF(1) - CM) < 
= CS THEN P3$(1) = "V": 
GOTO 14430 
14420 P3S(1) = "ez 
IF CF(1) - CM< O THEN P3$(1) 
Zo” 
14430 NEXT 1 
14440 YT = 13: 
TI$ = "EN VIDEO O IMPRESORA ? (V/ 
DD": 
GOSUB 11200 
14450 GET A$: 
IF AS< > "UV" ANDAS < > "I" 
THEN 14440 
14460 IF As = "1" THEN IM = 1: 
PRINT DS: 
PRINT DS; "PRH1": 
PRINT DS 
14470 POKE 34,0: 
HOME 3 
PRINT "NOMBRE "¿N$: 
INVERSE : 
IF IM = 1 THEN PRINT 
14480 PRINT " EDAD "; TAB( 11);"ALT.*; 
TAB( 16);"P"; TAB( 21); "PESO"; 
TAB( 27);"P"; TAB( 31); "C.CR."; 
TABLA IR 
14485 NORMAL 
14490 IF IM = 1 THEN PRINT 
14500 FOR 1 = 1 TO MX - 1 
14510 PRINT — TAB( 4)5M(1);5 TAB( 11); 
H(1)5 TAB( 16);P1$(1)5 TAB( 21 
PL); TAB( 27)5P25(1); 
TAB( 31):CF(1): TAB( 37): P35( 


IS] 


14520 
14530 
145340 


14550 


16000 
16010 
16020 
16030 


16040 
16045 
16050 


16060 


16070 


16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 


16160 


16170 


16180 


40000 
40010 
40020 
40030 
40040 
40050 


40060 


D 
NEXT 1 
IF IM< > 1 THEN GOSUB 11100 
GOSUB 6600: 
IF IM = 1 THEN IM = 0: 
PRINT D$: 
PRINT D$;"PRHO": 
PRINT D$ 
GOSUB 500: 
RETURN 
REM 
REM LISTA PERSONAS 


HOME : 

YT = 13: 

TI$ = "NOMBRE (*0” PARA SALIR)": 
G0SsuB 11200 

INPUT N$: 

IF N$ = "" THEN 16030 

IF N$ = "0" THEN RETURN 
NF$ = LEFTS (N$,3)2 

LR = 20: 

GOSUB 4000 

NR = 1: 

GOSUB 6200: 

MX = VAL ( MID$ (AA$,14,2)) 


NR = 2: 

GOSUB 6200: 

DD = VAL ( LEFT$ (AA$,2)): 
MM = VAL ( MIDS (AA$,3,2)):3 
AA = VAL ( MID$ (AA$,5,2)) 
AL = VAL ( MIDS (AA$,7,3)): 
FE = VAL ( MID$ (AA$,10,4)): 
Cl = VAL ( MID$ (AA$,14,2)) 
NR = MX: 


GOSUB 6200: 

D= VAL ( LEFT$ (AA$,2)): 

M= VAL ( MID$ (AA$,3,2)): 

A = VAL ( MID$ (AA$,5,2)) 

HOME 

X= 1: 

Y = 8: 

GOSUB 11000 

PRINT "NOMBRE ";N$; TAB( 13); "FEC 
HA DE NACIMIENTO ";DD;"/";MM;"/"; 
AA 

Y = 10: 

Yo 11: 

GOSUB 11000 

FRINT "ALTURA "¿AL;" CM": 

Y = 13: 

GOSUB 11000 

PRINT "PESO "; TAB( 19);PE;" KG": 
Y = 15: 

GOSUB 11000 

PRINT "CRANEO "; TAB( 19);CI3" CM 
"o 

X=7: 

Y = 19: 

GOSUB 11000 

PRINT "FECHA ULTIMA MEDIDA ";D;"/ 
MUA 

GOSUB 11100: 

GOSUB 6600: 

GOTO 16030 

o 

REM GESTION ERROR 

REM > ——_—_ == . 

IF. FEEK (222) = 5 THEN 40130 

IF. PEEK (222) £ > 8 THEN 40060 
HOME : 

YT 132 

TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 

GOSUR 11200: 

GOSUB 11100: 

GOTO 400 

IF” PEEK (222) 2 > 13 AND 

PEEK (222) < > 11 THEN 40080 


40070 


40080 
40090 


40100 
30110 


40120 
40130 


40140 


40150 


HOME : 

YT = 13: 

TI$ = "NOMBRE FICHERO NO VALIDO": 
INVERSE : 

G0SUB 11200: 

GOSUB 11100: 

NES = "X"s 

GOTO 400 

IF. PEEK (222) < > 9 THEN 40100 
HOME : 

YT = 13: 

TI$ = "DISCO LLENO": 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 

IF. PEEK (222) < > 4 THEN 40120 
HOME : 

YT = 13: 

TI$ = "DISCO PROTEGIDO": 

INVERSE : 

GOSUB 11200: 


GOSUB 11100: 

GOTO 400 

IF. FEEK (222) < > 6 THEN 40140 
HOME : 

TIS = "NOMBRE FICHERO NO EXISTE": 
YT = 13: 

INVERSE + 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 

L = PEEK (218) + 256 * PEEK (21 
2) 

HOME : 

YT, =.13: 

TI$ = "ERROR "+ STR$ ( PEEK (22 
It it Bd 

GOSUB 11200: 

END 


Vacunaciones 


10 
20 
30 
40 
so 
60 


70 


90 
100 


110 


120 


130 


140 


150 


150 


REM ES 
REM CALENDARIO VACUNAC IONE: 
REM VERSION DOS 

REM 
REM INICIALIZACIONES 

DIM TF(15),TP(20),LC(20),ND(20),C 
X (20) ,CY (20) ,DX (20) ,DY(20),R$(20) 
,D$(20),V0$(10),HE$ (9) 

BPS = 








PD% = 
Sn 

D$ = CHR$ (4): 

US$ = CHR$ (13): 

ZES$ = "0": 

GIUS = " ": 

SL$ = "/" 

Bs = " E 

BA$ = BS + B$ + B$ + B$: 

Bs ="" 

HES = "AYUDA. CTRL - Y" 

HE$(1) = "CTRL Y. AYUDA (ESPACIO 

PARA CONTINUAR)  " 

HE$(2) = "ESC. ANULA TODA LA INTR 

ODUCCION * 

HE$(3) = "RETURN. ALINEA Y CONVALI 

DA INTRODUCCION " 

HE$(4) = "CTRL 1. PERMITE LA INSE 

RCION DE ESPACIOS" 

HE$(3) = "CTRL D. BORRA UN CARACT 

ER Én 

HE$(6) = "CTRL R. VUELVE AL MENU 

PRINCIPAL A 

HE$(7) = "CTRL W,A,S,Z.MUEVEN EN 


174 
176 


178 


180 
190 
220 


230 


330 
340 
3530 
370 


382 


385 


390 


410 


460 


500 
510 
320 
330 


LAS 4 DIRECCIONES" 

HE$(8) = "CTRL E. INTRODUCCION EN 
DISCO s 

TEXT : 

HOME : 

YT = 12: 

TI$ = "CUANTAS UNIDADES HAY (1/2) 
GOSUR 11200 

GET Ab: 

IF AS < "1" OR AS > "2" THEN 172 
DR$ = A$: 

PRINT DR$ 

HOME : 

YT = 12; 

TI$ = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD " + DR$: 

GOSUB 11200: 

GOSUB 11100 


MP$ = "CALENDARIO VACUNACIONES" 
DIM V(100) 
GOSUB 500 
RESTORE : 
READ PROG$: 
READ NV: 
MA = NV +1 
FOR 1 = 1 TO NV: 
READ VO$(1): 
NEXT 1 
VO$ (MA) = "FIN DE TAREA" 
FOR I = 1 TO 153 
READ TF(1): 
NEXT 1 
L=0: 
FOR I = 1 TONY +1 
L1 = LEN (VO$(1)):2 


IF Li > L THEN L = Li 
NEXT 1 


L=L+s 

XC = (42 - 1) /2 

YC = (25 - (NU 2410) /2 
GOSUB 1300 

IF OPZ < > (MA) THEN 390 

IF DR$ = "1" THEN HOME : 

YT = 13: 

TI$ = "INTRODUCIR DISCO PROGRAMAS 
” 


GOSUB 11200: 

GOSUB 11100 

HOME : 

GOSUB 11500: 

FRINT D$: 

PRINT D$; "RUN MAIN-MEDICINA, Di" 
LM = 0PZ - 1; 

a OPZ GOSUB 8000, 14000, 15000, 120 
GOSUB 6700: 

IF IM = 1 THEN PRINT DS: 

PRINT DS; "PRHO": 

PRINT D$: 


GOSUB 11000: 

INVERSE : 

PRINT— LEFTS (BA$,40)5: 
NORMAL 

ST =0: 

GOTO 230 

REMO03> 


REM PRESENTA CABECERA 
REM 


POKE 34,0: 

HOME : 

INVERSE : 

PRINT " E. G. S. "+ LEFTS (BAS 
,6) + "EDICIONES FORUM, S.A." 
+ 


NORMAL. 


540 


560 


570 

1300 
1310 
1320 
1330 
1350 
1360 


1370 
1380 
1390 
1400 
1410 
1415 


1420 


1440 
1450 


1460 
1470 


1480 


1490 


1500 


1510 


1520 
1530 


1540 


1550 


YT = 3: 

TI$ = MPS: 

GOSUB 11200 

Y = 2: 

X= 13 

INVERSE : 

GOSUB 110003 

PRINT " ": 

X = 40: 

GOSUB 11000: 

PRINT-*=%33 

Y = 3: 

X= 1: 

GOSUB 11000: 

PRINT " "s 

X = 40: 

GOSUB 11000: 

PRINT " "se 

Y = 4: 

X= t: 

GOSUB 11000: 

PRINT " ": 

X = 40: 

GOSUB 11000: 

PRINT " "z: 

Y =3: 

X= 1: 

GOSUB 11000 

PRINT— LEFTS (BA$,40)5:2 

NORMAL : 

POKE 34,5 

RETURN 

E o ra 

REM MENU PRINCIPAL 

REM ———— ns 

HOME 

FOR 1 = 1 TO MA 
Y AN 
X = XC: 
GOSUB 11000 
1 =1 
IF 11 = (MA) THEN II = 0 
PRINT 11;"- ";VOS(I) 

NEXT 


C 

C - XS 
=112+YC: 

X = XS: 

GOSUB 11000 

PRINT "->"3 

GET 0PZ%: 

OPZ = VAL (0PZ$): 

IF 0PZ$ = US$ THEN 1530 

IF OPZ > NV THEN 1450 

IF 0P7$ = ZE$ THEN X = XS2 

GOSUB 11000: 

PRINT— SPC( SP);2 

I = MA: 

GOTO 1420 

IF. ASC (0PZ%) > 48 AND ASC (0PZ 

$) < 58 THEN X = XS: 

GOSUB 11000: 

PRINT— SPC( SP)z2 

I = 0PZ: 

GOTO 1420 

IF 0PZ7$ < > GIU$ THEN 1450 

X = XS: 

GOSUB 11000: 

PRINT_ SPC( SP); 

I=1+1: 

IF 1 > (MA) THEN 1410 

GOTO 1420 

X = XC: 

Y=142+YC 

11 = 1: 

IF 1 >NV THEN II = 0 

PRINT II3"- "3: 

INVERSE 


1560 
1570 
1580 
1590 
2000 
2010 


2030 


2040 


2050 


2060 
2070 
2080 
2090 


2100 
2110 


2120 


2130 
2140 
2150 
2160 
2170 
2180 
2240 
2250 
2260 
2270 


2280 
2290 
2300 


2310 
2320 


2330 


2340 


2345 


2330 


2370 


2380 


2390 


2400 


PRINT VO$(1) 

NORMAL 

OPZ = 1 

RETURN 

HA 
REM_ PRESENTA MASCARA 


Y =7: 
X=1: 


GOSUB 11000: 
PRINT " VOZ "¿OPZ 
YT = 5: 
TI$ = HES: 
INVERSE : 
GO0SUB 11200: 
NORMAL 
YT =7: 
TIS = INS: 
GOSUB 11200 
IF CO< >0 THEN Y = 7: 
X= XT+ LEN (IN$) + 1: 
GOSUB 11000: 
PRINT CO 
SP = 33 - LEN (VO$(0PZ)) 
SPS$ = "" 
IF SP = O THEN 2100 
FOR J = 1 TO SP: 
SP4 = SP$ + BLó$: 
NEXT 
LP = LEN (PROG$) 
SI = INT ((40 - LP) / 2): 
DE = 40 - LP - SI 
SIS = ""; 
DES = "" 
FOR J = 1 TO SI 
SI$ = SIS + BL$ 
NEXT 
FOR J = 1 TO DE 
DE$ = DE$ + BLS$ 
NEXT 
REM MASCARA 
FOR J = 1 TO NUC 
AS ="" 
X = DX(J): 
Y = DY(J): 
GOSUB 11000: 
PRINT D$(J) 
NORMAL 
IF TP(J) < > 5 AND TP(J) 
< > 4 THEN 2330 
Xx = CX(J): 
Y = CY(J): 
G0SUB 11000 
PRINT B$(J) 
GOTO 2500 
Ni = LC(J): 
N2 = ND(J): 
IF TP(J) = 1 OR TP(J) = 2 
THEN C$ = NS$: 
GOTO -2345 
C$ = AS$ 
IF TP(J) = 1 AND Ni = 1 
THEN A$ = Có$: 
GOTO 2390 
FOR 1 = 1 TO Ni - N2 - 1: 
AS = AS + C$: 
NEXT 1 
IF N2 
GOTO 
AS = 
FOR 1 
As 
NEXT 1 
X = CX(J): 
Y = CY (J): 
GOSUB 11000 
PRINT AS 


'" 135. 
0 
D-=-+O00O 


PD$ 
TO N2 
$ + ZE 


. 


THEN A$ = AS + Có$: 


2410 
2420 
2430 
2440 
2450 


2460 
2470 
2480 
2490 
2500 
2510 
2600 
2610 
2620 
2630 
3000 
3010 
3020 
3030 
3040 


3050 
3060 
3070 
3080 
3100 
3110 
3120 
3130 


3140 


3150 


3160 


3170 


3180 


3190 


3200 


3210 


3220 


3230 
3240 
3250 
3260 
3270 
3280 
3290 


3300 


3310 


BSD = "" 
FOR K = 1 TO Ni - N2 - 1 
B$(J) = B$(J) + BLS$ 
NEXT K 
IF N2 = O THEN B$(J) = B$(J) 
+ BL$: 
GOTO 2500 
B$(J) = B$(J) + PDS 
FOR K = 1 TO N2 
B$ (3) = B$(J) + BL$ 
NEXT K 
NEXT y 
RETURN 
REM: == 58 
REM COMPLETA MASCARA 
REN === 
RETURN 
REM > 
REM DATA ENTRY 
REM ------—-- 
J=-1 
NC = J: 
X = CX(NC): 
Y = CY (NC) 
cc=1 
GOSUB 3240 
IF FS = O THEN 3100 
IF FS > 4 THEN 3210 
GOTO 3120 
J=J+1: 
IF J > NUC THEN 3030 
GOTO 3040 
ON FS GOTO 3130,3150,3170,3190 
IF J >1 THENJ=J- 1: 
GOTO 3040 
PRINT BP5;: 
FS = 0: 
J = NUC: 
GOTO 3040 
IF J < NUC THEN J =J+ 13 
GOTO 3040 
PRINT BP$;: 
FS = 0: 
GOTO 3030 
IF CC < LC(J) THEN SO = 1: 
CC = CC + 1: 
X=X +1: 
GOSUB 11000: 
GOTO 30650 
PRINT BP$: 
FS = 0: 
GOTO 3100 
IF CC > 1 THEN SO = - 12 
CC = CC - 1: 
X= X- 12 
GOSUB 11000: 
GOTO 3060 
PRINT BP$;: 
FS = 0: 
GOTO 3040 
IF FS > 8 THEN FS = 0: 
GOTO 3060 
IF FS = 8 THEN FS = O: 
GOTO 3100 
RETURN 
- === S 
REM LECTURA DE UN CAMÍ 
REM AAA A o. 
FS =0 
IF TP(NC) = 4 THEN RETURN 
IF TP(NC) = 2 THEN GOSUB 9000: 
B$(NC) = LEFTS (B$(NC),LC(NC)): 
CC = LEN (B$(NC)) + 1: 
GOSUB 4080: 
RETURN 
IF MID$ (B$(NC),CC,1) = PD$ 
THEN X = X + SO: 
CC = CL + SO 
GOSUB 11000 





3320 
3330 


3340 


=70, 


3350 


3360 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3520 
3530 
3550 


3560 
3370 


3580 


3590 
3620 


3630 
3640 
3650 
3660 
3670 


3680 
3690 


3790 
3800 


3820 


3830 
3840 


3860 


3870 


3880 


3890 


3900 


GET A$: 
IF A$ = "" THEN 3320 
CA = ASC (A$): 
IF CA > 31 THEN 3380 
FOR I = 1 TO 15 
IF TF(1) = (CA) THEN FS 
= 1: 
GOSUB 3630: 
RETURN 
NEXT 1 
GOTO 3320 
IF TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 44 OR (CA 
> = 48 ANDCA< = 57) THEN 341 
0 
PRINT BP$;: 
GOTO 3320 
IF CAX > 46 THEN 3440 
GOSUB 4270 
IF SWP = 1 THEN 3400 
SO = 41: 
GOSUB 3520 
IF CC = LC(NC) THEN RETURN 
CC = CC+ 1 
SL 
GOTO 3300 
REA ES 
REM TRANSFERENCIA AL BUFFER 
REM A A AAA 
IF CC = 1 THEN SNS = ""; 
GOTO 3570 
SN$ = LEFTS (B$(NC),CC - 1) 
IF CC = LC(NC) THEN DS$ = "":z 
GOTO 3590 
N = LC(NC) - CCs 
DS$ = RIGHTS (B$(NC),N) 
B$(NC) = SN$ + AS + DS$ * 
PRINT A$: 
RETURN 
REN 
REM COMANDOS 
SES 
IF FS > = 5 THEN 3690 
IF FS = 5 AND TP(NC) = 1 THEN 


GOSUB 4080 
RETURN 


IF FS = 9 THEN GOSUB 13000: 

RETURN 

IF FS = 8 THEN GOSUB 4080: 

RETURN 

IF FS < 8 THEN RETURN 

ON FS - 9 GOSUB 3740,3910 

RETURN 

REN 

REM INSERCION 

REA 

IF CC = LC(NC) THEN PRINT BP$: 

RETURN 

IF CC = 1 THEN SN$ = ""; 

GOTO 3800 

SN$ = LEFTS (B$(NC),CC - 1) 

N = LC(NC) - CC + 1: 

DS$ = RIGHTS (BS(NC),N) 

C$ = BL$ 

AS = SN$ + C$ + DS$ 

B$(NC) = LEFTS (A$,LC(NC)) 

XX = X:z 

YY = Y 

X = CX(NC): 

Y = CY(NC): 

GOSUB 11000 

X = XX: 

Y = YY 

PRINT BS$(NC): 

so = -1 

IF RIGHTS (B$(NC),1) = FD$ 
THEN 3780 

RETURN 


3920 
3930 
3940 
3930 


3960 


3970 


3980 


4000 
4010 


4020 
4030 
4040 


4050 


4060 


4070 


4080 
4090 
4100 
4110 
4120 
4130 


4140 


4150 


4150 
4170 
4180 
4190 
4200 
4210 
4220 
4230 


4240 


4250 
4260 


4270 
4280 
42790 
4300 
4310 


4320 
4330 


6000 
6010 
6020 
6030 
6040 


6050 
6060 
$200 


REM BORRADO 

REM ———_—— 

IF TP(NC) < > 1 THEN 3960 
IF MIDS (B$(NC),2,1) = PD$ 
AND CC = 1 THEN RETURN 
IF CC < 1 THEN PRINT BP$: 
RETURN 

IF CC = LC(NC) THEN DS$ = "";z 
GOTO 4000 

N = LC(NC) - CC: 

DS$ = RIGHTS (B$(NC),N) 

IF CC = 1 THEN SNS = "":z 
GOTO 4010 

SN$ = LEFTS (B$(NC),CC — 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN C$ = NS$:, 

GOTO 4030 

C$ = AS$ 

BS(NC) = SN$ + DS$ + C$ 

XX =.X: 

YY = Y 

X = CX(NC): 

Y = CY (NC): 

GOSUB 11000 

X= XX: 

Y = YY 

PRINT B$(NC): 

SO = 1: 

RETURN 

REM ormmmemnene 

REM ALINEADOS 

REM memes 

IF LC(NC) = 1 THEN RETURN 

Ni = LC(NC) — CC + 1 

IF CC = 1 THEN BS(NC) = "": 

GOTO 4150 

Sp = LEFT$ (B$(NC),CC 


IF TP(NC) = 1 OR TP(NC) = 2 
THEN 4200 
FOR 1 = 1 TO Ni 

B$ (NC) = B$(NC) + BLS$ 
NEXT 1 
GOTO 4240 
FOR 1 = 1 TO Ni 

BS$(NC) = BL$ + B$(NC) 
NEXT 1 
IF. RIGHTS (B$(NC),1) = PD$ 
THEN B$(NC) = BL$ + LEFTS (BS(N 
C),LC(NC) - 1) 
X = CX(NC)=2 
Y = CY (NC) 
GOSUB 11000 
PRINT B$ (NC): 
RETURN 


IF CC = 1 OR CC = LC(NC) THEN SWP 
=1: 
RETURN 
FOR 1 = 1 TO LC(NC) 
IF  MIDS (B$(NC),1,1) = PD$ 
THEN 1 = LC(NC) + 
SWP = 1: 
RETURN 
NEXT 1: 
RETURN 
REN AA _— 
REM APERTURA FICHERO 
RAZAS 
PRINT DS$ 
PRINT D$;"OPEN"¿NF$ + ",D" 
+ DR$3",L“¿LR + 2 
PRINT D$ 
RETURN 
Es __—_—_—_—_—_—_—_———————————————————_—_—= 
REM LECTURA REGISTRO 


A A 2 


6220 
6230 
6240 
6253 

6260 
6270 


6410 
6420 
6430 


6450 
6450 
6470 


6610 
6620 
6630 
6640 
6650 
6660 
6700 
6710 
6720 
6730 


6800 
7000 
7010 
7020 
7030 
7040 
70590 


7060 
7070 


7073 


7085 


7090 
7092 
70935 


7100 


7110 


7120 
8000 
8010 
8020 
8030 


8035 


8037 


8040 





REM 
PRINT D$ 

PRINT DS; "READ";NF$;",R";NR 
INPUT AAS 

PRINT D$ 

RETURN 

REM AS 
REM ESCRITURA REGISTRO 

A A RA 

PRINT D$ 

PRINT DS; "WRITE"¿NF$3",R"3NR . 
PRINT CHR$ (34) + AA$ 

PRINT DS 

RETURN 

RE 

REM_ CIERRA FICHEROS 
REMEAAS 

PRINT D$ 

PRINT D$;"CLOSE"¿NF$ 

PRINT D$ 

RETURN 

REO q OA 
REM CIERRA TODOS LOS FICHEROS 





REM 


FOR I = 1 TO NV + 15; 
READ DA$: 


IF LM = O THEN 7073 


FOR 1 = O TO LM - 1: 
READ DA: 
ND = ND + DA + (DA £ 7): 
NEXT 1 
READ NUC: 
IF NUC = O THEN RETURN 
IF NY —- LM - 1 = 0 THEN 7090 
FOR I = 1 TO NV - LM - 1: 
READ DA$: 
NEXT 1 
IF LM = O THEN 7100 
IF ND = O THEN 7100 
FOR 1 1 TO ND: 
READ DA$: 
NEXT 1 
FOR I = 1 TO NUC; 
READ D$(1):2 
NEXT 1 
FOR 1 = 1 TO NUC: 
READ TP(1),LC(1),ND(1),DX(1),D 
Y(D,CX(1),CY (1) 
NEXT 1 
RETURN 


REM 


REM INTRODUCCION Y CALENDARIO 
a. xr—>— 
NF$ = "VACU": 

LR = 62: 

GOSUB 6000 

NR = 1: 

GOSUB 6200: 

MX = VAL (A4$) 


NOOO. 
AS 


$ = ">0” PARA SALIR": 
GOSUB 11200: 

T=0 

YT = 13: 

TIS = "NOMBRE"s 


2355 


8050 


8060 


8070 


8075 
8080 


8085 


8093 


8100 
8105 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8175 
8177 


8180 
a190 


8198 


8201 


8202 


8203 


8204 
8205 


8207 


8208 


GOSUB 11200 

INPUT A$: 

AS = LEFT$ (A$,10): 

N$ = Ab: 

HOME : 

IF N$ = "0" THEN RETURN 

TIS$ = "VACUNA": 

GOSUB 11200 

INPUT A$: 

As = LEFTS (A$,15): 

V$ = A$: 

IF V$ = "0" THEN RETURN 

IF N$ = "" THEN 8085 

IF LEN (N$) < 10 THEN N$ = N$ 
+ LEFTS (BA$,10 — LEN (N$)) 
IF VS = "" THEN 8095 ' 

IF LEN (V$) < 15 THEN VS = VS 
+ LEFT$ (BA$,15 — LEN (V$)) 
GOSUB 7000: 


IF (ST = 1 AND N$ = "" AND V$ 
= "") OR (ST = 1 AND MX = 1) 


THEN RETURN 
IF (N$ = "" AND VS = "") OR MX 
= 1 THEN 8200 
HOME : 
GOSUB 11500 
FOR IR = 2 TO MX: 
NR = IR 
GOSuB 8500 
IF N$ = "" THEN 8160 
IF B$(1) < > N$ THEN 8170 
IF VS = "" THEN 8190 
IF B$(2) = V$ THEN 8190 
V(IR) = 0 
NEXT IR 
IF ST = 1 THEN RETURN 
GOTO 8200 
IF ST = 1 THEN V(IR) = VAL (B$(1 
0): 
T=1: 
GOTO 8175 
FOR 1 = 1 TO NUC: 
TP(1) = 43 
NEXT 1: 
AG =1 
IN$ = "INTRODUCCION N."s 
CO = MX: 
IF AG = 1 THEN IN$ = "ACTUALIZACI 
ON DEL N."s 
CO = NR - 1 
IF AG = 0 AND N$ < > "" THEN BS( 
1) = Nó$: 
TP(1) = 4 
IF AG = 0 AND V$ < > "" THEN BS( 
2) = VS: 
TP (2) = 4 
GOSUB 2000: 
GOSUB 7000: 
GOSUB 3000: 
IF FS = 7 THEN RETURN 
IF FS = 6 THEN 8037 
DD = VAL (B$(4))s 
MM = VAL (B$(5))2 
AA = VAL (B$(6)): 
IF DD < O OR DD > 31 OR MM 
< 0 OR MM > 12 THEN GOSUB 11900 
GOTO 8203 
DD = VAL (B$(7))2 
MM = VAL (B$(8)): 
AA = VAL (B$(9)): 
IF DD < O OR DD > 31 OR MM 
< 0 OR MM > 12 THEN GOSUB 11900 


G0TO 8203 

IF LEFTS (B$(1),1) = " " OR 
LEFTS (B$(2),1) = " * THEN 
GOSUB 11900: 

GOTO 8203 


8233 
8237 
8240 


8250 


8260 
8500 
8510 
8520 
8530 
8540 
8550 


8560 


8565 


8570 
8580 


8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 


9000 
9010 
9020 
10000 
10010 
10020 
10030 
10040 
10050 


10060 


100653 
10070 


10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
11000 
11010 
11020 
11030 


11040 
11100 
11110 
11120 
11130 


11140 


IF AG 
IF AG 
NUC = 10: 
GOSUB 8700 
IFAG< >1 THEN NR = 1: 
MX = MX + 1: 
AAS = STR$ (MX): 
G0SUB 6400 
G0TO 8037 
REM ¡q€_ Á--—_——— 
REM LECTURA FICHEROS. 
REM ———————— === 
GOSUB 6200 . 
FOR 19 = 1 TO NUC 
IF TP(19) = 4 THEN LC(1I9) 


O THEN NR = MX + 1 
O THEN B$(10) = "1" 


Dm no 





= LC(19 - 1): 
G0TO 8570 
B$(19) = MID$ (AA$,1 + LC(I9 
- 1),LC419)) 
eo = LC(19) + LCCIO 
E 
NEXT 19 
GOSUB 7000: 
RETURN 
REN ->z>-_———_—- 
REM ESCRITURA FICHEROS 
REM — A 
ARAS = "" 


FOR 19 = 1 TO NUC 
IF TP(19) = 4 THEN 8770 
ARS = AS + BS(I9) 
NEXT 19 
GOSUB 6400: 
RETURN 
REM — 
REM CALCULOS 
REM ————— 
REM -——-—- 
REM DATOS 
REM -—-- 
DATA "CALENDARIO VACUNACIONES" 
DATA 4 
DATA "GESTION CALENDARIO”, "BUSQUE 
DA E IMPRESION", “IMPRESION CAL.", 
"GENERACION SISTEMA" 
DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 
DATA 10,0,0,0 
DATA "NOMBRE", "VACUNA", "NOTAS", "F 
ECHA", 9/9, 9/0) "PROXIMA=, 9/0, 9/0, 0 
INDICADOR" 
DATA 3,10,0,7,10,17,10 
DATA 3,15,0,7,12,17,12 
DATA 3,20,0,7,14,17,14 
DATA 1, 
DATA 1, 
DATA 1, 
1, 
1, 
1, 
1, 





DATA 
DATA 


2 
2 
2 
2, 
2 
2 
DATA 1,2 
1 


YT = 22: 

TIS = "PULSAR UNA TECLA": 
FLASH : 

60SUB 11200 

PRINT BP$;: 

Xx = 20: 

Y = 22: 

60SUB 11000: 


11150 
11200 
11210 
11220 
11230 


11235 


11240 
11250 


11260 


11300 
11310 
11320 
11325 
11330 
11340 


11350 
11355 
11350 


11370 
11380 


11390 


11400 


11410 
11420 
11500 
11510 
11520 
11530 


11540 


11350 
11560 
11600 
11610 
11620 
11630 


11640 


11650 
11700 
11710 
11720 
11730 
11735 
11740 


11750 


11760 
11770 


11780 
11800 
11810 
11820 
11830 
11840 


11850 
11850 


GET As: 

G0SUB 11600 

RETURN 

REM 

REM CENTRA EN VIDEO 

REM == 

IF TIS = "" THEN RETURN 
A0$ = TIS: 

GOSUB 11300: 

A0$ = LEFT$ (40$,40) 
XT = (42 - LEN (A0$)) / 2 
HTAB XT: 

VTAB YT 

PRINT A0$;: 

RETURN 


REM AJUSTA CADENA' 
RA 
IF A0$ = "" THEN RETURN 
FOR 70 = 1 TO LEN (A0$) 
IF MID$ (A0$,20,1) < >" " 
THEN 11360 
NEXT 20 
RETURN 
AO$ = RIGHTS (A0%, LEN (A0%$) 
=.20:+1] 
FOR 70 = 1 TO LEN (A0$) 
IF MIDS (A0$,720,10) < >" " 
THEN 11400 
IF MID$ (A0$,70 + 1,1) 
= " " THEN 11410 
NEXT 70: 
IF MIDS (A0$,20 - 1,1) =" " 
THEN 70 = Z0 - 1 
AO$ = LEFTS (A0$,Z0 - 1) 
RETURN 


REM PETICION DE ESFERA 
REM A e o e e e e e e. 
GOSUB 11600: 

YT =23 ' 

TI$ = "ESPERE, POR FAVOR": 
INVERSE : 

GOSUB 11200 





GOSUB 11000 

NORMAL. : 

PRINT— LEFTS (BA$, 40); 
RETURN 


REM 


REM ALIN. DERECHA EN VIDEO 
RE: =—__=_ ==> 
IF TIS = "" THEN RETURN 
IF XT > 40 THEN XT = 40 
AO0$ = TI$: 


IF X < 1 THEN X= 1 

GOSUB 11000: 

PRINT A0$; 

RETURN 

RE  _—_—_————— 
REM ALIN. IZQUIERDA EN VIDEO 
REM a a a 
IF TIS = "" THEN RETURN 


11870 
11880 
11900 
11910 
11920 
11930 


11940 
11950 
12000 
12010 
12020 
12030 


12040 


12050 


12060 
12070 


13000 
13010 
13020 
13030 


13040 
13050 
13060 


13070 
13080 
13090 
13100 
13110 
13120 


13130 
13140 


PRINT A0$; 

RETURN 

A o 
REM AVISO DE ERROR 
A DES 
HOME : 

YT = 13: 

TI$ = "ERROR DE INTRODUCCION": 
INVERSE : 

GOSUB 11200 

GOSUB 11100 


GOSUB 11500 
NFS = "VACU": 
LR = 62: 
GOSUB 6000 
ARAS = "1% 
NR = 13 
GOSUB 6400 
GOSUB 6600: 
GOSUB 11600 
GOSUB 11100: 
RETURN 
ARAÉkÑ 
REM AYUDA 


Y =5 

GOSUB 11000 

PRINT HES(K) 5 

B= PEEK ( - 16384) 
POKE - 16368,0 

IF B< 128 THEN 13080 
IFB< > 160 THEN 13080 
K=K+ 1: 

IF K > 8 THEN 13140 
GOTO 13060 

Y =53 

X= 1: 


14560 


14570 


14580 


13150 


13160 
13170 


13180 
14000 
14010 
14020 
14030 


14040 
14050 


14060 


14070 
14080 


14090 
14100 
14110 


14120 
14130 
14500 


14510 
14520 


PRINT : 

PRINT TAB( 9);"VACUNA"; TAB( 18) 
¡B$(2) 

PRINT : 

PRINT — TAB( 9);"NOTAS"; TAB( 18); 
B$ (3) 

PRINT : 

PRINT — TAB( 9);"FECHA"; TAB( 18); 
G0SUB 11000: 

PRINT  LEFTS (BA$,40); 

YT = 5 

TIS = HES: 

GOSUB 11200 

NORMAL. 

X = XX: 

Y = YY 


IF T = 0 THEN RETURN 
HOME : 
YT = 13: 
TI$ = "EN VIDEO O IMPRESORA ? (V/ 
1D. 
GOSUB 11200 
GET AS: 
IF AS > "V" ANDAS< > "I" 
THEN 14050 
IF A$ = "1" THEN IM = 1 
IF IM = 1 THEN PRINT DS: 
PRINT DS; "PRA1": 
PRINT DS 
FOR IR = 2 TO MX 
IF V(IR) = O THEN 14130 
NR = IR: 
GOSUB 8500: 
GOSUB 14500 
IF IM< > 1 THEN GOSUB 11100 


NEXT IR: 

RETURN 

REM 
REM IMPRIME CALENDARIO 
REN >-_——_—————- sad 


14530 
14540 


14350 


14590 


14600 


14610 


15010 


15020 


15030 


15040 


15050 


15060 


15070 


15080 


15090 
15100 


15102 
15105 


15110 


HOME 

X= 9: 

Y = 10: 

GOSUB 11000 

PRINT "NOMBRE "; TAB( 18);B$(1) 
B$(4); TAB( 20);"/"5BS(5)5 

TAB( 23)3"/";BS(6) 

PRINT : 

PRINT— TAB( 9); "PROX."; TAB( 18): 
B$(7); TAB( 20);"/";B$(8); 

TAB( 23)3"/":B$(9) 

IF IM= 1 THEN PRINT : 

PRINT 
PRINT 
PRINT 


REM IMPRESIOM COMPLETA 
REN —— _—_—_—__—_——__—_—_——— 
NFS = "VACU": 
LR = 62; 
GOSUB 6000: 
LM = O: 
GOSUB 7000 
NR = 1: 
GOSUB 6200: 
MX = VAL (AA$) 
IF MX = 1 THEN RETURN 
HOME 
YT = 13: 
TI$ = "EN VIDEO O IMPRESORA ? (V/ 
1) 
GOSUB 11200 
GET Ab: 
IF AS< > "V" ANDAS< > "I" 
THEN 15060 
IF A$ = "I" THEN IM = 1: 
PRINT D$: 
PRINT DS; "PRH1": 
PRINT DS 
FOR IR = 2 TO MX 
NR = IR: 
G0SUB 8500: 
IF B$(10) = "0" THEN 15110 
GOSUB 14500 
IF IM< > 1 THEN GOSUB 11100 


NEXT IRz 
RETURN 


RELACION PRINCIPALES VARIABLES - COMMODORE 64 


Calendario vacunaciones 


AAS$ =buffer de comunicación con disco 

AG =si es igual a 1 indica que se está 
en una actualización 

GG =día de las fechas 

INS =0peración en curso (introducción, 
actualización, etc.) 

LM =máscara presentada 

LR =longitud del registro 

MA =número voces menú + 1 

MM =mes de las fechas 

MPS =nombre programa 

MX =número de registros del fichero 

NC =número del campo actual 

NFS =nombre del fichero 

NR =número de registros 

I =si es igual a 1 indica habilitación 
de la impresora 

sT =impresión habilitada 

TIS =para la presentación de mensajes 
en centro pantalla 

v$ =nombre de la vacuna 

V(x) =número registros en que ha sido 
positiva una búsqueda 


Data Base médica 


Cc1$ =apunta a un carácter del interior 
de A$ para la comparación 
=apunta a un carácter del interior 
de C$ para la comparación 
=cCopia de! registro del fichero 
=días de distancia entre dos fechas 
=unidad seleccionada 
=código de tecla función pulsada 
=día de las fechas 
=apunta al registro 
=utilizada para la búsqueda del fi- 
chero 
=utilizada para la búsqueda del fi- 
chero 
MM =mes de las fechas 
MPS =nombre del programa 
=apunta hacia el último registro del 
fichero 
=nombre del programa 
=número de registros 
=apunta al registro 
=si es igual a 1 indica habilitación 
de la impresora 
=para la presentación de mensajes 
en centro pantalla 


15% (») 


JS% (+) 


Factor de crecimiento 


CF(«) =contiene las c. cráneo medidas 

CM =circunferencia cráneo media 

CT(«) =límite mín. y máx. de la circunfe- 
rencia cráneo 

DR$ =unidad seleccionada 

FS =código de tecla función pulsada 

G =Qía de la fecha última medida 

GG =día de la fecha 

H(x) =alturas medidas 

HT(+) =mín. y máx. de las alturas 

INS =0peración en curso (introducción, 
actualización, etc.) 

MM =mes de la fecha 

MPS$ =nombre programa 

MX =apunta al último registro 

NFS =nombre del fichero 

NR =número de registros 

P(x) =pesos medidos 


Tablas comparativas 


AS$ =cCarácter que identifica los campos 
de introducción alfanuméricos 

NS$ =carácter que identifica los campos 
de introducción numéricos 


Gráficos 


B =Uusada para la construcción de los 
caracteres en pantalla. 
Cc =usada para la construcción de los 

caracteres en pantalla 

=contiene las c. cráneo medidas 

=cCircunferencias cráneo medidas 

=para construcción de caracteres 

=unidad seleccionada 

=Uusada para la construcción de los 
caracteres 

=para construcción de caracteres 

=usada para la construcción de los 
caracteres 

=alturas medidas 

=mín. y máx. altura 

=apunta al último registro del fiche- 
ro 

=nombre del fichero 

=número de registros 

=mín. y máx. pesos 

=Uusada para la construcción de los 
caracteres 
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Menú principal. La foto muestra la máscara del menú 
principal para la versión MSX. También en este caso 
valen las mismas observaciones, puesto que se trata de 
un módulo cargador cuya misión sólo es la de activar un 
determinado número de programas, cada uno con su 
propio menú principal. 


Data Base médica. Del correspondiente menú (ver foto 
2 del C-64) puede seleccionarse la función deseada. 
Para las introducciones y las actualizaciones se 
presenta una máscara análoga a la indicada en la foto 
de al lado. Naturalmente, para la introducción, todos los 
campos (menos el del código que es el puntero al 
registro) están en blanco. Obsérvese la diferente 
simbología entre los campos de contenido alfa- 
numérico (-) y numérico (=). 


Máscara de selección. La foto muestra la data entry 
para la implantación de los parámetros de selección. Es 
análoga a la foto correspondiente de la versión C-64. 
Las únicas diferencias que hay sólo son formales, y 
residen en la estructura de la máscara. Por ejemplo, en 
esta versión se presentan, como recordatorio, los 
posibles operadores lógicos (que tienen significado 
para el campo numérico). 


Calendario de vacunaciones. Seleccionando la voz 1 
del menú principal, se tiene la activación del módulo 
previo a la gestión del calendario de vacunaciones. 
Como ya se ha indicado, se realiza con un programa 
existente y, por tanto, prevé su propio menú principal. 
Para la inicialización de la cinta datos se requiere la 
activación de la voz 4 (Generación del sistema). 
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.«S. Ediciones Forum, S.A. 
SL ! 


El Calendario "vacunaciones 
2 -Data base medica 


ES E£.G.S. E II 
ER Introduccion de los datos 


phd 2 











SINTESIS  -- ES ED 


SS DION 
SS SS PS iS 


CTRL Y CAYUDA) 


Gestión calendarios. La foto muestra la fase de 


implantación en la Gestión calendarios. Con los datos 
así introducidos, el programa selecciona el registro 


correspondiente a la vacuna “antisarampión” de 


nombre Juana. Los datos correspondientes, si existen, 


se presentarán en pantalla, preparados para 
eventuales actualizaciones. 


Factor de crecimiento. La foto muestra el menú 
principal del programa para el control del factor de 


sí mismo, su activación requiere, en este orden: 
— Generación del sistema (voz 5) 

= Introducción o variación de las tablas (voz 6) 
— Creación lista de personas (voz 4) 


Sólo al final de estas fases, el sistema está preparado 


para su utilización. 


Generación del sistema. Activando la voz 5 del menú 
principal, se envía a ejecución la subrutina Generación 
del sistema. La máscara pide la introducción de los 
datos personales (nombre, sexo, fecha de nacimiento) 
que ocuparán el primero de los dos registros del fichero 


datos correspondiente a la persona especificada. 


que muestra las evoluciones de los diversos 
parámetros. 
El mejor método para poner de manifiesto una 





a la gama identificada de valores normales. 


de las tablas), y los puntos en su interior son las 
medidas del niño. 


de las magnitudes controladas; el mostrado 
corresponde al peso. 


crecimiento. Como también se trata de un programa en 


| Presentación de los gráficos. Como se ha indicado, 

| los datos obtenidos con las medidas previstas en el 

| control del factor de crecimiento se memorizan en el 

| fichero correspondiente al niño y constituyen una tabla 


| evolución es la presentación gráfica. Por tanto, en el 
| programa hay incluida una subrutina que presenta en 
pantalla el gráfico de los valores medidos, con respecto 


La zona de color es el campo de normalidad (obtenida 


Naturalmente, existe un gráfico diferente para cada una 


Ediciones Forum, S.A. 
Gestion calendario 


AT) CAE A AS 
EXA AS 
=> 1 -Introduccion de los datos 
O 
E 
SN 
-Generacion del sistema 
SAS AS 
-=Fin de tarea 


E.6.S. Ediciones Forum, S.A. 


Generacion del sistema 


| 
SEXO H 


SS 17 == A 


CAS 


GRAFICO o PESO DE ANA 








rd a 
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Medicina/Versión Philips VG 8010 


Main general 


10 REMO 
20 REM MAIN MEDICINA 
30 REM Version MSX 


A o 

50 W1$="REBOBINAR LA CINTA":W3$="DE LOS PROGRAMAS" 

60 W4$="APRETAR LA TECLA PLAY":WS$="A1 final de la carga escribir en-el teclado el co 
mando RUN" : 


70 KEY OFF:WIDTH 40 

80 REM CONSTANTES 

90 BP$="0D4L30DFR": AS$=CHR$ (45) :BL$=" | MENU po 
100 SZ=2:MI=1 

110 X0=5:YO=1: XC=3:YC=4: XS=1:LH=8: 

120 US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$ (32) 

130 Hi$="E.G.S. Ediciones Forum, S.A." 

140 REM CARGA VOCES 

150 RESTORE 

160 READ PROG$ 

170 READ NV 

180 FOR I=1 TO NV:READ VO$(1):NEXT 

190 MA=NV+1 

200 VO$(MA)="Fin de tarea" 

210 FOR I=1 TO 15 

220 NEXT 1 

230 REM MAIN 

240 GOSUB 1300: REM MENU 

250 IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS: END 
260 ON OPZ GOSUB 20000, 20000, 20000 

270 GOTO 240 

1300 REM 

1310 REM MENU PRINCIPAL 

LSO REM 

1330 CLS 

1340 X=1:Y=0:GOSUB 11000:PRINT "1% . 
1350 X=XC+7:Y=0:GOSUB 11000:PRINT Hi$:X=1:Y=Y+1:GOSUB 11000:FPRINT MP$:Y=Y+1;X=1:GOSUB 11000:PRIN 
Tr] |"; :PRINT SPACES (6);:PRINT PROG$+DE$ 

1360 X=1:Y=Y+1 : GOSUB 1 1000: AIN 
1370 FOR 1 = MI TO MA 

1380 Y=1I4SZ+YC:X=XC:GOSUB 11000 

1390 II=1 

1400 IF Il= (MA) THEN II=0 

1410 PRINT I1;"-";3V0$(1) 

1420 NEXT 

1430 I=MI 

1440 Y=I*SZ+YC:X=XS:GOSUB 11000 

1450 SP=YC-1 

1460 PRINT "->"; 

1470 0PZ$=INKEY$: IF OPZ$="" THEN 1470 

1480 OPZ=VAL (0PZ$): IF OPZ$=US$ THEN 1540 

1490 IF OPZ >NV THEN 1470 

1500 IF OPZ$=ZE$ THEN X=XS:GOSUB 11000:PRINT SPC( SP);:I=MA:GOTO 1440 
1510 IF ASC(0PZ$)>48 AND ASC (0PZ$) <S58 THEN X=XS:GOSUB 11000:PRINT SPC( SP);:I=0PZ:GOTO 1440 
1520 IF OPZ$ <> GIU$THEN 1470 

1530 X=XS:GOSUB 11000:PRINT SPC( SP);5 

1540 I=I+1:1F 1> (MA) THEN 1430 

1550 GOTO 1440 

1560 X=XC: Y=1I*SZ+YC 

1570 II=I:1F 1 > NV THEN II=0 

1580 FRINT 11;"-";V0$(1) 

1590 OPZ =1 

1600 RETURN 

10000 REM --—- 

10010 REM DATOS 

10020 REM -—-—--—- 

10030 DATA "MAIN - MEDICINA" 

10040 DATA 4 






10050 DATA "Calendario vacunaciones","Data base medica" 
10060 DATA "Factor crecimiento", "Graficos" 

11090 REN => 

11010 REM POSICIONA CURSOR 

11020 REM 












RETURN 

REM 

REM carga programa 

REM === 

CLS: X=11:Y=8:GOSUB 11000:PRINT Wi$ 


20040 Y=Y+2:GOSUB 11000:PRINT W3$ 

20050 FOR I=1 TO SO0: NEXT 1 

20060 X=11:Y=20:GOSUB 11000:PRINT "CONTINUO (S/N)" 

20070 R$=INKEYS$: IF R$<>"" THEN 20100 

20080 X=25:GOSUB 11000: PRINT" Mi": cosu 11000: PRINT"  " 

20090 GOTO 20070 

20100 IF R$="N" OR R$="n" THEN RETURN 

20110 IF R$="S" OR R$="s" THEN 20130 

20120 IF R$<>"S" OR R$<>"s"DR R$<> "N" OR R$<>"n" THEN 20070 . 
20130 CLS:X=9: Y=10:GOSUB 11000: PRINT W4$ :X=5:Y=Y+8:GOSUB 11000: PRINT"pulsar RETURN para conti 
nuar" 

20135 R$=INKEYS: IF R$="" THEN 20135 

20137 IF R$ <> CHR$(13) THEN 20135 

20140 CLS:X=3: Y=10:GOSUB 11000: PRINTWS$ 

20150 FOR I=1 TO 3000:NEXT_I:CLS 

22000 ON OPZ GOTO 22010,22020,22030, 22040 

22010 CLOAD "PROG/1" 

22020 CLOAD "PROG/2" 

22030 CLOAD "PROG/3" 

22040 CLOAD "PROG/A" 





Prog/1 
EZRA 
13 REM CALENDARIO VACUNACIONES 
15 REM Version MSX 
A A 
20 MAXFILES=1 
21 CLEAR 8000 
22 DEFINT A-S, U-W 
23 DEFDBL T,Z 
24 6S=0 
27 W1$="PREPARE EL GRABADOR APRETANDO":W2$="PLAY Y RECORD":W3$="REBOBINE LA CINTA Y APRIETE" 
29 W4$="ESPERAR":WS$="ESTA PREPARADO? (pulse S para continuar pulse N para volver al menu)" 
40 DIM TF(15),TP(20),LC (20) ,ND(20) ,CX (20) ,CY (20) ,DX (20) , DY (20) 
50 DIM B$(20),D$(20),V0$(10),C$(14),AA$(81),J5(80), I1S(80) 
55 KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16) :KEY 3,CHR$(17):KEY 4,CHR$(19) :KEY 5,CHR$(20): WIDTH 40 
60 REM CONSTANTES 
65 A1=1:A2=31: BP$="04L30DFB":NS$="=":AS$=CHR$ (45): PD$=". ":BL$=" ":ER$="E":MP$=" | MENU Ivisig="/" 
70 F$=CHR$ (1) +CHR$ (87) 
72 Fi$="": FOR 1=0 TO 39:F1$=F1$+F$: NEXT 1 
73 Q$=STRINGS$ (39, AS$) 
80  SZ=2:MI=1 
90 X0=5: YO=1: XC=3: YC=3: XS=1:L1=62 


100 US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$ (32) 
110 HE$="CTRL Y (AYUDA) " 

115 Hi$="E.G.S. Ediciones Forum, S.A.” 
120 REM CARGA VOCES 

130 RESTORE 

140 READ PROG$ 

150 READ NV 

150 “FOR I=1 TO NV:READ VO$(1):NEXT 
170 MA=NV+1 

180 VOS$(MA)="Fin de tarea" 

190 FOR I=1 TO 15 

200 READ TF (1) 

210 NEXT I 

220 REM MAIN 


23 
23 


GOSUB 1300:REM MENU 


240 IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS: END 

250 1F 0PZ=2 OR 0PZ=3 OR OPZ =4 OR OPZ=5 THEN GOSUB 7000 
260 ON OPZ GOSUB 8000, 15000, 16000, 12000 

290 GOTO 230 


IRENE 
1310 REM MENU PRINCIPAL 
IAEA 








3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 


CcLs 

X=1:Y=0:GOSUB 11000:PRINT " "1% 

X=X0+7:Y=0:GOSUB 11000:PRINT H1$:X=1:Y=Y+1:GOSUB 11000:PRINT MP$: Y=Y+1:X=1:GOSUB 11000:PRIN 
l"s:PRINT SPACES (3);:PRINT PROG$+DE$ 

X=1: Y=Y+1 : GOSUB 1 1000: "NT A — 

FOR 1 = MI TO MA 

Y=I1SZ+YC: X=XC:GOSUB 11000 

11=1 

IF Il= (MA) THEN II=0 

PRINT 11;"-";VO$(1) 

NEXT 

I=MI 

Y=1I4SZ+YC: X=XS:GOSUB 11000 

SP=YC-1 

PRINT "->"; 

OPZ$=INKEY$: IF OPZ$="" THEN 1450 

OPZ=VAL (0PZ$): 1F OPZ$=US$ THEN 1530 

IF OPZ >NY THEN 1450 É 

IF OPZ$=ZE$ THEN X=XS:GOSUB 11000:PRINT SPC( SP);:I=MA:GOTO 1420 

IF ASC(0PZ$)>48 AND ASC (0P2$) <58 THEN X=XS:GOSUB 11000:PRINT SPC( SP);:I=0PZ:GOTO 1420 

IF OFZ$ <> GIU$THEN 1450 ] 

X=XS:GOSUB 11000:PRINT SPC( SP); 

I=I+1:1F 1> (MA) THEN 1410 


GOTO 1420 

X=XC: Y=I*SZ+YC 
II=1:1F 1 > NV THEN I1=0 
PRINT 113 "-";VO$ (1) 
0PZ =1 

RETURN 

REM === -—-— 
REM PRESENTA MASCARA 
REM === 
CLS 
L=LEN (VOS (0PZ))-3 


FM=(29-L) /2 

X=1:Y=0:GOSUB 11000:PRINT "————1%; X=XC+7:GOSUB 11000:PRINT H1$: 
OPZ$=LEFTS (STR$(0PZ),2) 

Y=Y+1:X=1:GOSUB 11000:PRINT"|VOZ "¿OPZ$;:PRINT "|" 

=1 : GOSUB 1 1000: PRINT  ->——— ——————" 
:X=1:GOSUB 11000:PRINT "| Ie :PRINT SPC (FM)5:PRINT VOS (0PZ)5:PRINT SPC(FM) 
IF M=1 THEN RETURN 

IF N=1 THEN 2240 

Y=21:X=0:GOSUB 11000: PRINTF1$ 

X=25: Y=22:GOSUB 11000:PRINT HE$ 

FOR J=1 TO NUC 

As= "" ] 

X=DX (3) : Y=DY(J):GOSUB 11000:PRINT D$(J) 

IF TP(J) <>5 AND TP(J) <> 4 THEN 2310 

X=CX (3): Y=CY(J) :GOSUB 11000 

PRINT B$(J):GO0TO 2500 

N1=LC(J):N2=ND(J): 1F TP(J)=1 OR TP(J)=2 THEN C$=NS$:GOTO 2350 
C$=AS$ 

A$=STRING$ (NI-N2-1,C$) 

IF N2=0 THEN A$= A$+C$:GOTO 2390 

A$=A$+PDS : 

X=CX (J) : Y=CY (J) : GOSUB 11000 

PRINT As 

B$ (3) =SPACE$ (N1-N2-1) 

B$ (J)=BS (J)+RIGHTS (A$,N2+1) 

NEXT J 

RETURN 

REM -=-=------ 

REM DATA ENTRY 

REM ---—----- 

J=1 

NC=J: X=CX (NC) : Y=C Y (NC) 

CC=1 

GOSUB 3240 

IF FS=0 THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

J=J+1: 1F JANUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 

IF J>1 THEN J=J-1:GOTO 3040 

PLAY BP$ :FS=0:J=NUC:GOTO 3040 

IF J< NUC THEN J=3+1:GOTO 3040 

PLAY BP$:FS=0:GOTO 3030 

IF CC<LC(J) THEN S=1:CC=CC+1:X=X+1:G0SUB 11000:G0TO 3060 


3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 


PLAY  BPS$:FS=0:GOTO 3100 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:G0SUB 11000:G0TO 3060 
PLAY BP$:FS=0:GOTO 3040 

IF FS>8 THEN FS=0:GOTO 3060 

IF FS=8 THEN FS=0:GOTO 3100 

RETURN 

REM A 
REM LECTURA DE UN CAMPO 

ASA 

FS=0 

IF TP(NC)=4 THEN RETURN 

IF TP(NC)=2 THEN RETURN 

IF MID$(B$(NC),CC,1)=PD$ THEN X=X+S:CC=CC+S 

GOSUB 11000 

AS=INKEYS: IF A$= "" THEN PRINT"f';:GOSUB11000:PRINTMID$ (B$ (NC) ,CC, 1); :G0SUB11000: 60TO3320 
IF A$="," OR A$="." THEN PLAY BP$:GOTO 3320 

CA=ASC(A$): IF CA > A2 THEN 3380 

FOR I=1 TO 15 

IF TF(1)= CA THEN FS = I: GOSUB 3630: RETURN 

NEXT 1 

GOTO 3320 

IF TP(NC)<>1 THEN 3440 

IF CA=45 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 

PLAY BP$:GOTO 3320 

IF CA <> 44 THEN 3440 

GOSUB 4270 

IF SWP=1 THEN 3400 

S=1: GOSUB 3520 

IF CC=LC(NC) THEN RETURN 

CC=CC+1:X=X+1:GOTO 3300 

PMA 

REM TRANSFERENCIA AL BUFFER 

A 
IF CC=1 THEN SN$= "":GOTO 3570 
SN$=LEFTS (B$ (NC) , CC-1) 

IF CC=LC(NC) THEN DS$= "":GOTO 3590 
N=LC(NC)=CC: DS$=RIGHTS (B$(NC),N) 
B$ (NC) =SN$+A$+DS$ 


PRINT A$: RETURN 
REM 


REM COMANDOS 

REA: == 

IF FS>5 THEN 3690 

RETURN 

IF FS=9 THEN GOSUB 13000: RETURN 
IF FS=8 THEN GOSUB 4080: RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 












REM -—------- 

IF CC=LC(NC) THEN PLAY BP$: RETURN 

IF CC=1 THEN SN$= "":GOTO 3800 
SN$=LEFTS (B$ (NC), CC-1) 

N=LC (NC)-CC+1:DS$=RIGHTS (B$(NC),N) 
IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 
C$=BL$ 

AS=SN$ +C$+DS$ 

B$ (NC)=LEFT$(A$,LC(NC)) 

XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 

X=XX2 Y=YY 

PRINT BS (NC): S=-1 

IF RIGHT$(B$(NC),1)= PD$ THEN 3780 
RETURN 

REM AS 

REM BORRADO 

REM —— 

IF TP(NC)<>1 THEN 3960 

IF MIDS (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 
IF CC<1 THEN PRINT BP$: RETURN 

IF CC=LC(NC) THEN DS$= "": GOTO 4000 
N=LC (NC) -CC:DS$ =RIGHT$ (B$(NC),N) 
IF CC=1 THEN SN$= "": GOTO 4010 
SN$=LEFT$  (B$(NC),CC-1) 

IF TP(NC)=1 OR TP(NC)=2 THEN C$=NS$ 
C$=AS$ 

BS (NC)= SN$ +DS$ +C$ 


4040 XX=X: YY=Y 

4050 X=CX (NC) : Y=CY (NC) : GOSUB 11000 

4060 X=XX: Y=YY Ñ 

4070 PRINT B$(NC);:S=1:RETURN 

4080 REM -----— 

4090 REM ALINEADOS 

4100 REM ----—--- 

4110 IF LC(NC)=1 THEN RETURN 

4120 N1=LC(NC)-CC+1 

4130 IF CC=1 THEN B$(NC) = "": GOTO 4150 

4140 B$(NC)= LEFTS (B$(NC),CC-1) 

4150 IF TP(NC) =1 OR TP(NC)=2 THEN 4200 

4160 FOR I=1 TO Ni 

4170 B$(NC)=B$ (NC) +BL$ 

4180 NEXT 1 

4190 GOTO 4240 

4200 FOR I=1 TO Ni 

4210 BS(NC)=BL$ +B$(NC) 

4220 NEXT 1 

4230 IF RIGHT$ (B$(NC),1) =PD$ THEN BS(NC)= BL$ +LEFTS (B$(NC),LC(NC)-1) 
4240 X=CX (NC) : Y=CY (NC) 

4250 GOSUB 11000 

4260 PRINT B$(NC):RETURN 

4270 REM ---—----- 

4280 REM CTRL PUNTO 

4290 REM -————-=--- 

4295 RETURN 

6000 REM -— 
6005 REM CARGA DATOS 

6007 REM ----===---- 

6009 IF GS=1 THEN RETURN 

6010 CLS: X=1:Y*18:GOSUB 11000:PRINTW3S 

6015 Y=Y+1:GOSUB 11000:PRINT LEFTS(W2$, 4) 

6020 FOR I=1 TO 1000:NEXT 1:Y=22:GOSUB 11000; PRINTUSS; 
6025 Ró=INKEYS: IF R$="" THEN 6025 

6027 1F R$="S" OR R$="s" THEN 6032 

6028 IF Ré="N" OR R$="n" THEN RETURN 

$070 IF R$<>"S" OR R$<>"s" OR R$<>"N" OR R$<>"n" THEN 6025 


6032 CLS:X=15:Y=10:GOSUB 11000: PRINTW4$ 
6160 OPEN "cas:VAC" FOR INPUT ASH1 


6163 INPUT H1,AA$(0) 

6165 RE=VAL (AA$(0)) 

6167 IF RE=0 THEN 6180 

6170 FOR L=1 TO RE 

6172 INPUT H1,AAS(L) 

6175 NEXT L 

6180 CLOSE $1 

6200 RETURN 

6500. REM —————— 

6505 REM GRABACION DATOS 

6510 REM —————————— 

6520 CLS:X=1:Y=18: GOSUB 11000:PRINT W3$:Y=Y+1:GOSUB 11000: PRINTW28 
6525 FOR I=1 TO 1000:NEXT I:Y=22:GOSUB 11000: PRINTWSS; 

6530 R$=INKEYS: IF R$="" THEN £530 

6535 1F R$="S" OR R$="s" THEN 6550 

6540 IF R$="N" OR R$="n" THEN RETURN 

6545 IF R$<>"S" OR R$(>"s" DR R$C>"N" OR R$C>"n" THEN 6530 

6550 CLS: X=15: Y=10:GOSUB 11000: PRINTW4$ 

6680 OPEN "cas:VAC" FOR OUTPUT ASH1 

6682 FOR K=0 TO RE 

6685 PRINT $1, AA$(K) 

6687 NEXT k 

6690 CLOSE $1 

6695 RETURN 

6900 REM —————-— 

6905 REM SELECCION 

6907 REM 
6910 11=0 
6920 RE=1 
6930 AS=MIDS (AAS (RE) ,NI,NL) 

6940 IF A$=COS THEN I1=11+1:15(11)=RE 
6950 IF RE>=MX THEN RETURN 

6960 RE=RE+1:GOTO 6930 

7000 REM === 

7010 REM LECTURA DE LOS DATOS 

ZO2O REN AE 

7030 RESTORE 10040 
7040 READ NV 

7045 RESTORE 10090 














7050 FOR 1 = 1 TO NV:READ NUC(1) 

7060 NEXT 1 

7066 IF OPZ=1 OR OPZ=2 THEN GOSUB 7200:GOTO 7071 

7067 RETURN 

7071 NUC=NUC (OPZ) 

7072 FOR I=1 TO NUC 

7074 READ D$(1) 

7076 NEXT 1 

7080 FOR 1 = 1 TO NUC 

7090 READ TP(1),LC(1),ND(1),DX(1),DY(1),CX(1),CY (1) 

7110 NEXT 1 

7120 RETURN 

7200 RESTORE 10100: RETURN 

IO A PP > 

8002 REM INTRODUCCION DATOS 

8003 REN ———_—___—_—_—_——- 

8010 GOSUB 6000 

8020 IF R$="N" OR R$="n" THEN RETURN 

8030 FOR I=1 TO RE: 1S(1)=0:NEXT 1 

8040 IF REXBOTHEN 8050 

8045 CLS:X=4:Y=10:GOSUB 11000:PRINT "EL FICHERO VACUNAS ESTA AGOTADO": X=5:Y=20:GOSUB 11000:PRINT 
"Pulsar una tecla para continuar" 

8047 R$=INKEY$: IF R$="" THEN 8047 

8048 RETURN 

8050 CLS:6S=0:B$="":G6$="":X=10:Y=10:GOSUB 11000: INPUT"NOMBRE ";B$ 
8052 IF B$="" THEN 8060 > 

8055 H=LEN(B$): IF H<10 THEN FOR I=1 TO 10-H:B$=B$+" ":NEXT 

8057 IF H>10 THEN B$=LEFTS (B$, 10) 

8060 CLS:X=10:Y=10:GOSUB 11000: INPUT"VACUNA  ";G$ 

8062 IF G$="" AND B$="" THEN CLS:GOTO 8300 

8063 IF G$="" THEN 8070 

8065 B=LEN(G$): IF B<15 THEN FOR I=1 TO 15-B:G$=G$+" ":NEXT 

8067 IF B>15 THEN G$=LEFT$(G$, 15) 

8070 CLS:X=14:Y=12:GOSUB 11000:PRINT "CONFIRMACION (S/N) ":Y=10;X=X-5:GOSUB 11000:PRINT"(0) PARA 
VOLVER AL MENU” 

8072 R$=INKEY$: IF R$="" THEN 8072 

8074 IF R$="0" THEN RETURN 

8073 IF R$="N" OR R$="n" THEN 8050 

8077 IF R$="S" OR R$="s" THEN 8090 

8078 IF R$<>"S" OR R$<>"N" OR R$<>"s" OR R$<>"n" THEN 8072 

8090 IF B$="" THEN 8150 

8092 IF G$="" THEN 8095 ELSE 8180 

8095 FOR I=1 TO RE 

3097 IF B$=LEFTS(AA$(1),10) THEN IS(I)=I:GOTO 8100 

8098 IS(1)=0 

3100 NEXT:GOTO 8205 

8150 FOR I=1 TO RE 

8155 IF G$=MIDS(AA$(1),11,15) THEN IS(1)=1:GOTO B165 

81650 IS(1)=0 

8165 NEXT:GOTO 8205 

8180 FOR I=1 TO RE 

8185 IF BS$=LEFTS$(AA$(1),10) AND G$=MID$(AA$(1),11,15) THEN IS(1)=1:GOTO 8195 
8190 IS(I)=0 

8195 NEXT 

8205 H=0:P=0 

8210 FOR I=1 TO RE 

8220 IF IS(1)=0 THEN H=1:GOTO 8230 

8225 P=1 

8230 NEXT 1 

8240 IF P=1 THEN 8500 

8300 RE=RE+1: IF RE<=80 THEN 8302 

8301 GOSUB 8045: CLS: X=3: Y=12:GOSUB1 1000: GOTO8720 

8302 GOSUB 7000 

8305 B$(14)="1": TP (14)=1(4) 

8307 N=0:M=0:GO0SUB 2000 

8310 X=7:Y=5:G0SUB 11000:PRINT "INTRODUCCION" 

8312 X=7:Y=6:G0SUB 11000:PRINT LEFT$(F1$,20) E 
8315 GOSUB 3000 

8320 IF FS=6 THEN 8300 

8330 IF FS=7 THEN RETURN 

8340 IF LEFTS(B$(1),1)=CHR$(45)0R LEFT$(B$(1),1)=CHR$(32) THEN GOSUB 9150:GOTO 8305 
8343 IF LEFT$(B$(2),1)=CHR$(45)0R LEFT$(B$(2),1)=CHR$(32) THEN GOSUB 9150:G0T0 83 
8345 IF VAL(B$(4)) > 31 OR VAL(B$(6)) > 12 THEN GOSUB 9150:GOTO 8302 
8350 IF VAL(B$(9)) > 31 OR VAL(B$(11)) > 12 THEN GOSUB 9150:G0TO 8302 
8400 AAS(RE)=B$(1)+B$(2)+B$(3)+BS(4)+B$ (6)+B$ (8)+B$(9)+B$ (11)+B$(13)+B$(14) 
8430 AAS(0)=STR$(RE) 


8440 CLS:X=3: Y=10: 11000:PRINT "(0) PARA GRABAR EN LA CASSETTE": Y=Y+2:GOSUB 11000:PRINT "(1 
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8455 IF R$="1" THEN GOTO 8300 11030 LOCATE X,Y 

8460 IF R$<>"0" OR R$<>"1" THEN 8445 11040 RETURN 

8465 GOSUB 6500 12000 REM. ———--—--— 

8470 CLS: RETURN 12004 REM GENERACION SISTEMA 

8500 REM === 12008 REM ———————— 

8505 REM PRESENTACION DATOS : 12012 CLS:M=1:GOSUB 2000 3 
$507. REM === 12015 X=10:Y=10:G0SUB 11000:PRINT "GENERACION EN CURSO": Y=Y+3:GOSUB 11000:PRINT "CONTINUO (S/N)" 
8510 FOR A=1 TO RE+1 12020 R$=INKEYS: IF R$="" THEN 12020 

8512 IF IS(A)=0 THEN 8700 12025 IF R$="N" OR R$="n" THEN CLS: RUN 

8513 K=IS(A) 12030 IF R$="S" OR R$="s" THEN 12040 

8515 B$(1)=LEFT$ (ARS (K) ,10):B$(2)=MIDS (AA$ (K) 11,15) 12035 IF R$<>"S" OR R$<>"s" OR R$ <>"N" OR Rs<>"n" THEN 12020 
8517 B$(3)=MIDS (AA$ (K) ,26,20) :B$(4)=MIDS (ARS (K), 46,2) :B$ (6)=MID$(AAS (K) 48,2): B$(8)=MIDS (ARS (K), 12040 CLS: X=1:Y=18:GOSUB 11000: PRINTW1$ 

50,4) 12045 Y=Y+1:GOSUB 11000:PRINT W2$ 

8520 B$(9)=MIDS (AA$ (K) ,54,2):B$(11)=MIDS (AA$ (K) ,55,2) : B$ (13)=MID$ (AA$ (K) ,58, 4) :B$(14)=RIGHTS (AAS 12050 FOR I=1 TO 1000:NEXT I:Y=22:GOSUB 11000: PRINTWS$; 
(K),1) 12055 R$=INKEYS: IF R$="" THEN 12055 

8550 CLS: GOSUB 7000 5 12050 IF R$="S" OR R$="s" THEN 12100 

8555 FOR I=1 TO 14:TP(1)=5:NEXT 1 12065 IF R$="N" OR R$="n" THEN RETURN 

8560 N=0:M=0:GOSUB 2000 12068 IF R$<>"S" OR R$<>"s" OR R$<>"N" OR R$<>"n" THEN 12055 
8565 B$(5)=SL$:TP(S)=4:B$(7)=SL$: TP (7)=4 12100 CLS: Y=10:X=5:GOSUB 11000:PRINT"Este programa preve un maximo de 80 movimento 
8570 B$(10)=SL$:TP(10)=4:B$(12)=SL$:TP(12)=4 s" 

8572 X=7:Y=5:G0SUB 11000: PRINT"VARIACION" 12110 Y=22:GOSUB 11000:PRINT"Pulsar RETURN para continuar" 
8573 X=7:Y=6:GOSUB 11000:PRINT LEFT$(F1$,20) 12120 R$=INKEYS: IF R$="" THEN 12120 

8574 TP(14)=1 a 12130 IF R$<>CHR$(13) THEN 12120 

8575 GOSUB 3000 12170 CLS:X=12:Y=10:GOSUB 11000:PRINT"ESPERE POR FAVOR" 

8580 IF FS=6 THEN 8515 12176 OPEN "cas:VAC" FOR OUTPUT ASH1 

IF FS=7 THEN RETURN 12180 AA$(0)="" 

8590 IF B$(14)="1" OR B$(14)="0" THEN 8595 12184 AA$(0)=STRING$ (L1,AS$) 

8592 GOSUB 9150:GOTO 8513 12188 PRINT $1,AA$(0) 

8595 CLS:X=5:Y=10:GOSUB 11000:PRINT"CONFIRMA LA VARIACION ? (S/N)" 12192 CLOSE +1 

8600 R$=INKEY$: IF R$="" THEN 8600 12196 CLS:X=15:Y=10:G0SUB 11000:PRINT "TERMINADO!":FOR I=1 TO 1000:NEXT 1 
8610 IF R$="n" OR R$="N" THEN 8630 12200 RETURN 

8615 IF R$="S" OR R$="s" THEN 8620 13000 REM ——— 

8617 IF R$<>"S" OR R$<>"N" OR R$<>"s" OR R$<>"s" THEN 8600 13010 REM AYUDA 

8620 AAS(K)=B$(1)+B$(2)+B$ (3)+B$(4)+B$ (6)+BS (8) +B$(9)+B$(11) +B$(13)+B$(14) 13020 REM ———- 

8630 CLS:X=3: Y=10: GOSUB 11000: PRINT"(1) PARA UNA NUEVA VARIACION":Y=Y+2:GOSUB 11000 13030 LOCATE 0,22 

8635 PRINT"(2) PARA GRABAR EN LA CASSETTE": Y=Y+2:GOSUB 11000 13040 PRINT "AYUDA (barra espaciadora para continuar)"; 

8637 PRINT"(3) PARA VOLVER AL MENU" 13050 GOSUB 13220 

8640 D$=INKEY$: IF D$="" THEN 8440 13060 PRINT "FLECHAS: mueven en las 4 direcciones El 

8645 IF D$="1" THEN 8700 13070 GOSUB 13220 

8650 IF D$="2" THEN A=RE:GOTO 8810 13080 PRINT "RETURN: alinea y convalida introduccion "; 

8652 IF D$="3" THEN RETURN . 13090 GOSUB 13220 

8655 IF VAL(D$)<1 OR VAL(D$)>3 THEN 8640 13100 PRINT "Fi: vuelve al menu principal =4 

8700 NEXT A 13110 GOSUB 13220 

8710 CLS:X=7:Y=7:G0SUB 11000:PRINT"LAS VARIACIONES HAN TERMINADO": X=3: Y=Y+5:GOSUB 11000 13120 PRINT "F2: anula toda la introduccion s; 

8720 PRINT"(1) PARA GRABAR EN LA CASSETTE": Y=Y+2:GOSUB 11000 13130 GOSUB 13220 

8723 PRINT"(2) PARA VOLVER AL MENU" 13140 PRINT "F3: borra un caracter ” 

8730 S$=INKEYS: IF S$="" THEN 8730 13150 GOSUB 13220 

8735 IF S$="1" THEN 8810 13150 PRINT "F4: permite la insercion de espacios a] 

8740 1F S$="2" THEN RETURN 13170 GOSUB 13220 

87435 IF VAL(S$)<1 OR VAL(S$)>2 THEN 8730 13180 PRINT "FS: introduccion en cassette 25 

8810 GOSUB 6500:6S=1:R$="A": RETURN 13190 GOSUB 13220 

9150 CLS:X=16: Y=10:GOSUB 11000: PRINT "ERROR!"*FOR I=1 TO 1500: NEXT Iz CLS:RETURN 13200 PRINT * CTRL Y (AYUDA) "; 

10000 REM ----- 13210 RETURN 

10010 REM DATOS 13220 A$=INKEY$:IF A$= "" THEN 13220 

10020 REM —--- 13230 IF A$<> CHR$(32) THEN 13220 

10030 DATA "CALENDARIO VACUNACIONES" 13240 LOCATE 0,22 

10040 DATA 4 13250 RETURN 

10050 DATA "Gestion calendario", "Impresion calendario por nombres" 14000 REM —-—— $ 
10060 DATA "Impresion calendarios", "Generacion del sistema" 14010 REM BUSQUEDA 

10070 DATA 30,31,28,27,20,16,15,13,25,19,17,0,0,0,0 14020 REM ——-—-- 

10090 DATA 14,14,0,0 14140 CLS:X=12:Y=10:GOSUB 11000:PRINT"ESPERAR, POR FAVOR" 
10100 DATA "NOMBRE", "VACUNA", "NOTAS", "FECHA", "/",,"/%, ,"PROXIMA","/%,,"/7",, "INDICADOR" 14150 0=0:G=1:MX=RE 

10110 DATA 3,10,0,7,9,17,9 14155 IF TP(G)>2 AND (LEFT$(B$(G),1)=CHR$(45) OR LEFTS(B$(G),1)=CHR$(32)) THEN 14220 
10120 DATA 3,15,0,7,11,17,11 14160 IF TP(G)=1 AND (RIGHT$(B$(G),1)=CHR$(32) OR RIGHTS (B$(G),1)=CHR$(61)0R RIGHT$(B$(G), 1)=CHR 
10125 DATA 3,20,0,7,13,17, 13 $(45)) THEN 14220 

10130 DATA 1,2,0,7,15,17,15 : 14162 IF B$(G)=B$(7) OR B$(G)=B$(9) THEN 14220 

10135 DATA 4,1,0,19,15,19,15 14165 CO$=B$(G) :MD=1:NI=0:NL=0 

10140 DATA 1,2,0,20,15,20,15 14170 FOR D=1 TO NUC 

10145 DATA 4,1,0,22,15,22,15 14175 IF D=G THEN 14190 

10150 DATA 1,4,0,23,15,23,15 14177 IF D=7 OR D=9 THEN 14185 

10245 DATA 1,2,0,7,17,17,17 14180 NI=NI+LC(D) 

10250 DATA 4,1,0,19,17,19,17 14185 NEXT D 

10255 DATA 1,2,0,20,17,20,17 14190 NL=LC(D):NI=NI+1 

10260 DATA 4,1,0,22,17,22,17 14200 GOSUB £900 

10265 DATA 1,4,0,23,17,23,17 14205 IF .Q <> O THEN 14235 

10270 DATA 1,1, 


0,7,19,19,19 14210 0=1:FOR I=1 TO MX:JS(1)=IS(1):NEXT 1 





11000 REM --—--——— aaa 14220 IF G= NUC THEN 14280 
11010 REM POSICIONA CURSOR 14230 G=6+1:G0T0 14155 


14235 K=1 16290 FRINT"Vacuna 3 "¡B$(2):Y=Y+2:GOSUB 11000 





a 16300 PRINT"Notas 2 "¡B$(3):Y=Y*+2:GOSUB 11000 

14245 1F IS(K)=IS(L) THEN 14260 16310 PRINT"Fecha 2 "¡B$(4):X=13:G0SUB 11000:PRINT"/"5B$(6):X=16:GOSUB 11000:PRINT"/"5B$(8):X 
14250 IF L<> MX THEN L=L+1: GOTO 14245 =0: Y=Y+2:GOSUB 11000 

14255 IS (K)=0 16320 PRINT"Proxima : "¿B$(9):X=13:GOSUB 11000:PRINT"/"5B$(11):X=16:GOSUB 11000:PRINT"/"5B$(13) 
14260 IF K>= MX THEN 1422 ¿Y=Y+3 

14270 K=K+1:GOTO 14240 - 16322 NEXT G 

14280 REM 16333 X=0:Y=10:GOSUE 11000:PRINT "MI 

14500 CLS: RETURN 16333 REM 

EAS E 16340 X=0:Y=21:GOSUB 11000:PRINTF1$: X=3: Y=Y+1:GOSUB 11000:PRINT"Pulsar RETURN para otro nombre": 
15010 REM IMPRESION FOR NOMBRE Y=Y+2:GOSUB 11000:PRINT"Dtra tecla para volver al menu"; 

ISO 20 REN == a 16345 IF V=1 THEN RETURN 

15030 GOSUB 4000 16350 R$=INKEY$: IF R$="" THEN 16350 

15040 IF R$="N" OR R$="n" THEN RETURN 16360 IF R$<>CHR$(13) THEN 16440 

15045 GOSUB 7000 z 16370 GOTO 16430 

15047 NUC=1:N=0: M=0; GOSUB 2000 16380 FOR G=1 TO 2 

15050 X=7:Y=5:GOSUB 11000:PRINT"IMPRESION CON SELECCION": Y=Y+1:GOSUB 11000:PRINT LEFTS(F1$,40) 16382 IF G=2 THEN FOR F=1 TO 13:B$(F)=C$(F):NEXT F 

15060 GOSUB 3000 16385 LPRINT TAB(2); "NOMBRE —: "¡B$(1) 

15065 1F FS=6 THEN 15045 16390 LPRINT TAB(2); "VACUNA 2 "¿B$(2) 

15070 1F FS=7 THEN GS=1:R$="A":RETURN 16400 LPRINT TAB(2);"NOTAS — : "¡B$(3) : 

15075 1F LEFTS(B$(1),1)=CHR$(32) OR LEFT$(B$(1),1)=CHR$(45) THEN 15045 16405 LPRINT TAB(2);"FECHA —: "¡BS(4)3TAB(13)3"/"3B$(6);TAB(16)3"/"5B$(8) 
O IS OOO 16410 LPRINT TAB(2)5"PROXIMA : "¿BS(9)3TAB(13)3"/"B6(11)5TAB(16)3"/"B$(13) 
15110 PA=1:V=1:GOSUB 16120 16415 LPRINT¿LPRINT:LPRINT 

15120 IF SC=3 THEN RETURN 16420 NEXT G 

15150 FE=0:FOR A=0 TO RE 16430 IF V=1'THEN RETURN 

15160 IF 15(A)=0 THEN 15380 16432 IF H<>50 THEN I=I+H 

15165 IF RIGHT$(AA$(IS(A)),1)="0" THEN 15380 y 16433 I=1+1 

15170 I=IS(A) 16435 NEXT 1 

15171 IF IS(A+1)=0 THEN JJ=81:GOTO 15174 16440 CLS:GOTO 16120 

15172 IF RIGHT$(AA$(1S(A+1)),1)="0" THEN JJ=81:GOTO 15174 /2 

15173 JI=IS(A+1) 

15174 GOSUB 16230 Prog 

15175 1F SC=1 THEN 15370 10 REM RÁ A ÁÉ 

15180 R$=INKEY$: IF R$="" THEN 15180 13 REM DATA BASE MEDICINA 

15190 IF R$<>CHR$(13) THEN A=RE:GOTO 15380 15 REM Version MSX 

15370 A=A+1 18 REA ——————— 

15380 NEXT A 20 MAXFILES=1 

15390 FOR I=1 TO RE:IS(1)=0:NEXT 1 21 CLEAR 6000 

15400 GOTO 15045 22 DEFINT A-S,U-W 

16000 REM —--=======—===========- 23 DEFDBL T,Z 

16010 REM IMPRESION DE TODOS LOS 24 GS=0 

16015 REM CALENDARIOS 27 W1$="PREFARE EL GRABADOR APRETANDO":M2%$="PLAY Y RECORD":W3$="REBOBINE LA CINTA Y APRIETE" 
16020 REM oo in — 29 W4$="ESPERAR":WS$="ESTA PREPARADO? (pulse S para: continuar pulse N para volver al menu)" 
16030 GOSUB 4000 35 DIM DH$(2) . 

16040 IF R$="N" OR Ré="n" THEN RETURN 40 DIM' TF(15),TF(20),LC(20),ND(20),CX(20) ,CY (20), DX (20), DY (20) 

16050 PA=0 50 DIM B$(20),D$(20),VOS(10),AA$(21),BB$(65),JS(65), 15(65) 

16120 CLS:M=1:GOSUB 2000 52 DH$(0)="FECHAS NO CUMPLIDAS": DH$(1)="FECHAS CUMPLIDAS" 

16130 X=1:Y=7:G0SUB 11000:PRINT"INTRODUCIR OPCION DE IMPRESION DESEADA" SS KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16):KEY 3,CHR$(17):KEY 4,CHR$(19):KEY S,CHR$(20): WIDTH 40 
16140 X=12:Y=Y+4:GOSUB 11000:PRINT"1) EN IMPRESORA": Y=Y+2:GOSUB 11000 $0 REM CONSTANTES 

16150 PRINT"Z) EN VIDEO": Y=Y+2:G0SUB 11000 65 A1=1:A2=31: BP4="D4L3ODFB":NS$="=";AS$=CHR$ (45) :PD$=", "¡BLG=" "sERS="E":¿mpg="] MENU |":sLs="/" 
16160 PRINT"3) VUELVE AL MENU": X=X+3: Y=Y+3:GOSUB 11000:PRINT"ELIJA" 70 F$=CHR$ (1)+CHR$ (87) 

16170 SC$=INKEY$: IF SC$<>"" THEN 16200 72 Fi$="": FOR I=0 TO 39:F1$=F1$+F$:NEXT 1 

16180 X=22:GOSUB 11000:PRINT" ff": GOSUB 11000:PRINT" " 75 D$=STRING$ (39, AS$) 

16190 GOTO 16170 80  SZ=2:MI=1 

16200 SC=VAL(SC$):IF SC<1 OR SC>3 THEN 16170 90 XO=5: YO=1:XC=3: YC=3:XS=1:L1=15:L2=121 

16210 IF SC=3 THEN GS=1:R$="A":RETURN 100 US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$ (32) 

16212 IF PA=1 THEN RETURN 110 HES="CTRL Y (AYUDA)" 

16215 V=0 115 H1$="E.G.S. Ediciones Forum, S.A." 

16220 FOR I=1 TO RE 120 REM CARGA VOCES 

16225 H=0:JJ=1+1 130 RESTORE 

16230 B$(1)=LEFT$ (AA$ (1) ,10):B$(2)=MID$(AA$(1),11,15) 140 READ PROG$ 

16235 B$(3)=MIDS(AA$(1),26,20):B$(4) =MID$(AAS(1),46,2):B$(6)=MIDS(AA$(1),48,2):B$(8)=MIDS (AA$(1) 150 READ NV 

,50,4) 160 FOR I=1 TO NV:READ VO$(1):NEXT 

16240 ES(9)=MID$ (AA$(1),54,2):B$(11)=MIDS(AA$(1),56,2) :B$(13)=MID$ (AA$ (1) ,58,4) :B$ (14) =RIGHTS (AA 170 MA=NV+1 

$(D,1) 180 VOS(MA)="Fin de tarea" 

16250 C$(1)=LEFTS(AA$(JJ),10):0$(2)=MIDS (AA$ (JJ) ,11,15) 190 FOR I=1 TO 15 

16252 C$(3)=MID$ (AA$ (JJ) ,26,20):C$(4)=MIDS (AA$(I3),46,2):08(6)=MIDS (AA$(J3),48,2):0$(8)=MIDS(AAS 200 READ TF(D) 

(33),50,4) 210 NEXT 1 

16255 C$(9)=MIDS$(AA$(J3),54,2):0$(11)=MID$(AA$(JJ),56,2):0$(13)=MIDS (AA$(JJ),58,4):0$(14)=RIGHTS 2 REN AIN 

(BAS (II), 1) 230 GOSUB 1300: REM MENU 

16257 1F B$(14)="0" THEN 16435 240 IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS: END 

16258 IF 0$(14)="0" THEN JJ=JJ+1:H=H+1:GOTO 16230 250 IF 0PZ=2 OR OPZ=3 OR OPZ =4 OR OPZ=3 THEN GOSUB 7000 

16259 IF JJ>80 THEN FOR K=1 TO 14:C$(K)="":NEXT K 260 ON OPZ GOSUB 16900,8000,8500, 15000, 12000 

16260 IF PE=1 THEN FOR K=1 TO 14:B$(K)="":NEXT K 290 GOTO 230 

16265 IF SC=1 THEN CLS:GOTO 16380 1300 REM -——-———— 

16270 CLS: X=3: Y=0:GOSUB 11000 1310 REM_ MENU PRINCIPAL 

16272: FOR G=1 TO 2 ERES 


16275 IF G=2 THEN FOR F=1 TO 13:B$(F)=C$(F):NEXT F y 330 LS. 





1340 
qe] 

1345 
1350 
1350 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1430 
1435 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1560 
1580 
1590 
2000 
2010 
2020 
2030 
2130 
2140 
2150 
2190 
2195 
2200 
2215 
2216 
2217 
2218 
2220 
2240 
2243 
2270 
2280 
2290 
2300 
2310 
2340 
2350 
2360 
2370 
2390 
2400 
2410 
2492 
2300 
2510 


3000 REM 


3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 


X=XC+7:Y=0:G0SUB 11000:FRINT Hi$:X=1:Y=Y+1:GO0SUB 11000:PRINT MP$: Y=Y+1:X=1:G0SUB 11000: PRIN 
IG: PRINT SPACES (6);:PRINT PROG$+DES 

EEE OOO PRI A E CR 

FOR 1 = MI TO MA 

Y=1*5Z7+YC: X=XC:G60SUB 11000 

LS 

IF 1I= (MA) THEN II=0 - 

PRINT 113"-"5VO$(1 

NEXT 

I=5MI 

Y=14SZ+YC:X=XS:GOSUB 11000 

SP=YC-1 

PRINT "->"3 

OPZ$=INKEYS: IF OPZ$="" THEN 1450 

OPZ=VAL (0PZ$):1F OPZ$=US$ THEN 1530 

IF OPZ >NV THEN 1450 

IF OPZ$=Z2E% THEN X=XS:GOSUB 11000:PRINT SPC( SP);:I=MA:GOTO 1420 

IF ASC(OPZ$)>48 AND ASC (0PZ$) <58 THEN X=XS:GOSUB 11000:PRINT SPC( SP);:1=0PZ:GOTO 1420 

IF 0PZ$ <> GIUSTHEN 1450 

X=XS:GOSUB 11000:PRINT SPC( SP); 

I=1+1:1F 1> (MA) THEN 1410 E 

GOTO 1420 

X=XC: Y=IXSZ+YC 

Tl=I:1F 1 > NV THEN II=0 

PRINT I17"-";V0$(1) 

OPZ =I 

RETURN 

REM > — 

REM PRESENTA MASCARA 

REM > — 

CLS 

L=LEN(VO$ (OPZ))-3 

FM=(29-L)/2 

X=1:Y=0:G0SUB 11000:PRINT "M1"; X=XC+7:GOSUB 11000:PRINT Hi$: 

OPZ$=LEFTS (STR$(OPZ), 2) 

Y=Y+1:X=1:GOSUB 11000:PRINT"ÍVOZ ";0PZ$;:FRINT Po 

Y=Y+2 +GOSUB 11000: "AIN —————> 

Y=Y-1:X=1:GOSUB 11000:PRINT "| "s:PRINT SFC(FM);:PRINT VO$(0PZ)3:PRINT SPC(FM) 

IF M=1 THEN RETURN 

IF N=1 THEN 2240 

Y=21:X=0:GOSUB 11000: PRINTF1% 

X=25:;Y=22;G08UB 11000:PRINT HE$ 

FOR J=1 TO NUC 

Ag= 0 

X=DX (3) + Y=DY(J):GOSUB 11000:PRINT D$(J) 

IF OTP(J) <>5 AND TF(J) <> 4 THEN 2310 

X=CX (3) + Y=0Y (3) :GOSUB 11000 

PRINT B$(J):G0T0 2500 

NI=LC (3): N2=ND(J) + 1F TP(J)=1 OR TP(J)=2 THEN C$=NS5$:GOTO 2350 

C$=AS$ 

A$=STRINGS (N1-N2-1,0$) 

IF _N2=0 THEN A$= A$+C$:GOTO 2390 

AS=A$+PD$ 

X=CX (9): Y=CY (1) : GOSUB 11000 

PRINT As 

ES (J) =SPACES (N1-N2-1) 

BS (J)=B$(J) +RIGHTS (A4,N2+1) 

NEXT_J 

RETURN 


REM ===> 

J=1 

NC=J + X=CX (NC) : Y=C Y (NC) 

GESf 

GOSUB 3240 

IF FS=0 THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

J=J+1: IF JANUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 

IF J>1 THEN J=3-1:G0TO 3040 

PLAY BP$ :FS=0: J=NUC:GOTO 3040 

IF J< NUC THEN J=J+1:GOTO 3040 

PLAY BP$:FS=0:G0T0 3030 

IF CC<LC(J) THEN S=1:CC=CC+1:X=X+1:GOSUB 11000:60T0 3040 
PLAY BP$:FS=0:GOTO 3100 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:GOSUB 11000:G0TO 3060 





3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3520 
3330 
3540 
3550 
3560 
3570 
3580 
3590 
3620 
3630 
3640 
3650 
3660 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3780 
3990 
4000 
4010 
4020 
4030 
4040 


PLAY BP$:FS=0:G0TO 3040 





IF FS>8 THEN FS=0:GOTO 30460 
IF FS=8 THEN FS=0:GOTO 3100 
O RETURN 

A == 
REM LECTURA DE UN CAMPO 
REA AAA 
FS=0 

IF TP(NC)=4 THEN RETURN 


IF TP(NC)=2 THEN RETURN 

IF MIDS$(B$(NC),CC,1)=FD$ THEN X=X+S: CC=CC+S 

GOSUB 11000 

AS=INKEY$: IF A$= "" THEN PRINT"f";:GOSUB 11000:PRINT MID$(R$ (NC),CC,1);:GOSUB 11000:GOTO 3 


IF A$="," OR A$="." THEN PLAY BP$:GOTO 3320 


CA=ASC(A$): IF CA > A2 THEN 3380 

FOR I=1 TO 15 

IF TF(I)= CA THEN FS = l: GOSUB 3630: RETURN 
NEXT I 

GOTO 3320 

IF TP(NC)<>1 THEN 3440 


IF CA=43 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 
PLAY BP$:GOTO 3320 

IF CA <> 46 THEN 3440 

GOSUB 4270 

IF SWP=1 THEN 3400 

S=1: GOSUB 3520 

IF CC=LC(NC) THEN RETURN 

CC=CC+1:X=X+1:GOTO 3300 









REM no 
REM TRANSFERENCIA AL BUFFER 
REM > 
IF CC=1 THEN SN$= "":GOTO 3570 


SN$=LEFTS (B$ (NC), CC-1) 

IF CC=LC(NC) THEN DS$= "":GOTO 3590 
N=LC (NC)-CC: DS$=RIGHT$ (B$(NC),N) 
BS (NC)=5N$+A$+DS$ 

PRINT A$: RETURN 

a 

REM COMANDOS 

REM === 

IF FS>5 THEN 3690 

RETURN 

IF FS=9 THEN GOSUB 13000: RETURN 

IF FS=8 THEN GOSUB 4080:RETURN 

IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 

REM ——=----- 

REM INSERCION 

REM ———==- 

IF CO=LC(NC) THEN PLAY BP$: RETURN 
IF CC=1 THEN SN$= "":G0TO 3800 
SNS=LEFT$ (B$ (NC) ,CC-1) 

N=LC (NC)=CC+1: DS$=RIGHTS (BS (NC) ,N) 
IF TP(NC)=1 OR TP(NC)=2 THEN CS=BL$:GOTO 3830 
C$=BL$ 

A$=SN$ +C$+DS$ 


B$ (NC) =LEFTS (A$, LC(NC)) 

XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 
X= XX: Y=YY 

PRINT B$ (NC) :S=-1 

IF RIGHTS (B$(NC),1)= PD$ THEN 3780 
RETURN 

>= 

REM BORRADO 

== === 

IF TP(NC)<>1 THEN 3960 


IF MID$ (B$(NC),2,1) = PD* AND CC=1 THEN RETURN 
IF CC<i THEN PRINT BP$: RETURN 

IF CC=LC(NC) THEN DS$= "": GOTO 4000 

N=LC (NC) —CC:DS$ =RIGHT$ (B$(NC),N) 

IF CC=1 THEN SN$= "": GOTO 4010 

SN$=LEFT$ — (B$(NC),CC-1) 

IF TF(NC)=1_OR TP(NC)=2 THEN C$=NS$ 

C$=A48$ 

B$ (NC)=_SN$_+DS$ +C$ 


XX=X: YY=Y 


4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 


6545 
6550 
4680 


X=CX (NC) 3 Y=CY (NC): GOSUB 11000 
X=XX: Y=YY 

PRINT B$ (NC); :S=1: RETURN 

REN: == 

REM ALINEADOS 

EAS 

IF LC(NC)=1 THEN RETURN > 
N1=LC (NC) -CC+1 

IF CC=1 THEN B$(NC) = ""z GOTO 4150 
B$(NC)= LEFT$ (B$(NC),CC-1) 

IF TP(NC) =1 OR TP(NC)=2 THEN 4200 
FOR I=1 TO Ni 

B$ (NC)=B$ (NC) +BL$ 

NEXT 1 

GOTO 4240 

FOR I=1 TO Ni 

B$(NC)=BL$ +B$ (NC) 

NEXT 1 

IF RIGHTS (B$(NC),1) =PD$ THEN B$(NC)= BL$ +LEFTS (B$(NC),LC(NC)-1) 
X=CX (NC) : Y=CY (NC) 

GOSUB 11000 

PRINT B$(NC) : RETURN 


REM == 

RETURN 

REM === 

REM CARGA DATOS 

A 

CLS: X=1:Y=18:GOSUB 11000:PRINTW3$ 

Y=Y+1:GOSUB 11000:PRINT LEFT$ (W2$,4) 

FOR I=1 TO 1000:NEXT I:Y=22:GOSUB 11000; PRINTWS$; 
R$=INKEYS:1F Ré="" THEN 6025 

IF R$="S" OR R$="s" THEN 6032 

IF R$="N" OR R$="n" THEN RETURN 

IF R$<>"S" OR R$<>"s" OR R$<>"N" OR R$<>"n" THEN 6025 
CLS:X=15: Y=10:GOSUB 11000: PRINTW4$ 

OPEN "cas:VOC" FOR INPUT ASH1 

INPUT 41, AA$ (0) 

RE=VAL (AA$ (0) ) 

FOR L=1 TO 20 

INPUT 41, AA$(L) 

NEXT L 

CLOSE +1 

OPEN "cas:ARC" FOR INPUT ASH1 

INPUT 41,BB$(0) 

PA=VAL (BB$ (0) ) 

IF PA=0 THEN 6280 

FOR L=1 TO PA 

INPUT 41, BES (L) 

NEXT L 

CLOSE $41 

RETURN 

y 

REM GRABACION DATOS 

a 

CLS:X=1:Y=18: GOSUB 11000:PRINT W3$: Y=Y+1:GOSUB 11000: PRINTW2S 
FOR I=1 TO 1000:NEXT_1:Y=22:GOSUB 11000: PRINTWS$; 
R$=INKEYS$: IF R$="" THEN 6530 

IF R$="S" OR R$="s" THEN 6550 

IF R$="N" OR R$="n" THEN RETURN 

IF R$<>"S" OR R$<>"s" OR _R$<>"N" OR _R$<>"n" THEN 6530 
CLS:X=15: Y=10:GOSUB 11000: PRINTW4$ 

OPEN "cas:VOC" FOR OUTPUT AStt1 









6682 FOR K=0 TO 2u 


6685 
6687 
6690 
6780 
6782 
6785 
6787 
6790 
6795 
6900 
6905 
6907 





PRINT $1, AA$ (K) 

NEXT K 

CLOSE +1 

OPEN "cas:ARC" FOR OUTPUT ASH1 
FOR K=0 TO PA 

PRINT 41, BB$ (K) 

NEXT_K 

CLOSE 41 


REM BUSQUEDA 
REM ==---- 
l1=1 


6930 A$=MIDS (BB$ (FO) NI, NL) 

6940 IF A$=C0$ THEN I1=11+1:1S(11)=FO 
6950 IF FO=MX THEN RETURN 

6960 FO=F0+1:GOTO 6930 

7000 REM -- 
7010 REM LECTURA DE LOS DATOS 

7020 REN —————_—_—_—_— == 

7030 RESTORE 10040 

7040 READ NV 

7043 RESTORE 10090 

7050 FOR 1 = 1 TO NV: READ NUC(I) 

7060 NEXT 1 

7066 IF OPZ=1 THEN GOSUB 7200:GOTO 7071 

7067 IF OPZ=2 OR OPZ=3 THEN GOSUB 7220:GOTO 7071 
7068 IF OPZ=4 THEN GOSUB 7240:GOTO 7071 

7069 RETURN 

7071 NUC=NUC (OPZ) 

7072 FOR 1=1 TO NUC 

7074 READ D$(I) 

7076 NEXT 1 

7080 FOR I = 1 TO NUC E 

7090 READ TP(1),LC(1),ND(I),DX(1),DY(1),CX(1),CY(1) 
7110 NEXT 1 

7120 RETURN 

7200 RESTORE 10100: RETURN 

7220 RESTORE 10300: RETURN 

7240 RESTORE 10400: RETURN 





8000 REM === 
8002 REM INTRODUCCION DATOS 
8005 REM —————===========-- 


8010 GOSUE 6000 

8020 IF R$="N" OR R$="n" THEN RETURN 

8040 IF PA<GOTHEN 8050 

8045 CLS:X=6:Y=10:GOSUB 11000:PRINT"EL FICHERO ARCHIVO ESTA AGOTADO": X=5; Y=20:GOSUE 11000: FRINT" 
Pulsar una tecla para continuar" 

8047 R$=INKEY$: IF R$="" THEN 8047 

8048 RETURN 

8050 PA=PA+1 

8055 GOSUB 7000 

060 N=0:M=0:GOSUB 2000 

8065 X=3:Y=5:GOSUB 11000:PRINT"CODIGO : "¿PA 

8070 GOSUB 3000 

8080 IF FS=6 THEN 8060 

8085 IF FS=7 THEN RETURN 

8090 IF LEFT$(B$(1),1)=CHR$(32) OR LEFT$(B$(1),1)=CHR$ (45) THEN GOSUB 9150:GOTO 8060 
8100 IF VAL(B$(2))>31 OR VAL(B$(4))>12 THEN GOSUB 9150:GOTO 8060 

8110 FOR I=1 TO 20 

8120 IF B$(7)=AA$(1) THEN P=1: I1=20:GOTO 8140 

8130 P=0 

8140 NEXT 1 

8150 IF P=1 THEN 8400 

8160 CLS:Y=8:X=6:GOSUB 11000:PRINT"EL SINTOMA ";B$(7):Y=Y+2:GOSUB 11000:FRINT"NO SE HA PREVISTO" 
¿Y=Y+4:GOSUB 11000: 

8170 PRINT"DEBE CREARSE ? (S/N)" 

8175 R$=INKEY$:1F R$="" THEN 8175 

8180 IF R$="N" OR R$="n" THEN 8055 

B185 IF R$="S" OR R$="s" THEN 8200 

8190 IF R$<>"S" OR R$<>"N" OR R$<>"s"OR R$<>"n" THEN 8175 

8200 IF RE<20 THEN 8250 

8210 CLS:X=35:Y=10:GOSUB 11000:PRINT"EL FICHERO VOCABULARIO ESTA AGOTADO": Y=21:GOSUB 11000 
8220 PRINT"Pulsar una tecla para continuar" 

8230 R$=INKEY$: IF R$="" THEN 8230 

8240 GOTO 8060 

8250 RE=RE+1 

8260 AA$(0)=STR$(RE) 

8270 AAS$ (RE)=B$ (7) 

8400 IF OPZ=3 THEN RETURN 

8410 BB$(0)=STR$(PA) 

8420 BBS$(PA)=B$(1)+B$ (2)+B$ (4) +B$ (6) +B$ (7)+B$(8)+B$ (9) +B$ (10)+B$ (11) 

8440 CLS:X=3:Y=10:GOSUB 11000:PRINT "(0) PARA GRABAR EN LA CASSETTE": Y=Y+2:GOSUB 11000:PRINT "(1 
) PARA UNA NUEVA INTRODUCCION" 

8445 R$=INKEY$: IF R$="" THEN 8445 

8450 IF R$="0" THEN 8465 

8455 IF R$="1" THEN 8050 

8460 IF R$<>"0" OR R$<>"1" THEN 8445 

8463 GOSUB £500 

8470 CLS: RETURN 

8500_REM_ 





ESTRENA 

8509 GOSUB 6000 

8310 IF R$="N" OR R$="n" THEN RETURN 

8513 CLS:X=10:Y=10:GOSUB 11000:PRINT"INTRODUCIR EL CODIGO": Y=Y+2:GOSUB 11000 

8515 INPUT "A VARIAR (1/60)";A 

8517 1F A<1 OR A>60 THEN GOSUB 9150:GOTO 8513 

8520 IF A<=PA THEN 8537 

8522 CLS:X=6:GOSUB 11000:PRINT"EL CODIGO ";A;" NO EXISTE":FOR I=1 TO 2000:NEXT I:GOTO 8513 
8537 B$(1)=LEFT$(BB$ (A),10):B$(2)=MID$(BB$(A),11,2):B$(4)=MIDS(BB$ (A),13,2) 


8540 B$(6)=MIDS(BB$(A),15,2):B$(7)=MIDS$ (BB$(A),17,15) :B$(8)=MID$ (BB$(A),32, 15) :B$ (9) =MIDS (BB$ (A) 


147,25) 

8545 B$(10)=MIDS$(BB$(A),72,25):B$(11)=RIGHTS (BB$ (A),25) 

8550 CLS:GOSUB 7000 

8555 FOR I=1 TO 11:TP(1)=S:NEXT 1 

8560 B$(3)=SL$:TP(3)=4:B$(5)=SL$: TP (5) =4 

8565 N=0:GOSUB 2000 

8570 TP(2)=1:TP(4)=1:TP(6)=1 

8575 GOSUB 3000 

8580 IF FS=6 THEN 8537 

8582 IF FS=7 THEN RETURN pa 

8585 FOR I=1 TO 20 

8587>1F B$(7)=AA$(1) THEN P=1:1=20:GOTO 8590 

8588 P=0 

8590 NEXT 1 

8592 IF P=1 THEN 8597 

8595 GOSUB 8160 

8597 CLS:X=5:Y=10:GOSUB 11000:PRINT"CONFIRMA LA VARIACION ? (S/N)" 
8600 R$=INKEY$: IF R$="" THEN 8600 

8610 IF R$="n" OR R$="N" THEN 8630 

B615 IF R$="S" OR R$="s" THEN CLS:GOTO 8620 

8617 IF R$<>"S" OR R$<>"N" OR R$<>"s" OR R$<>"s" THEN 8600 

8620 BB$(A)=B$(1)+B$ (2)+B$ (4)+B$ (6) +B$(7)+B$ (8)+B$(9)+B$(10)+B$(11) 
8630 CLS:X=3:Y=10:GOSUB 11000:PRINT"(1) PARA UNA NUEVA VARIACION": Y=Y+2:GOSUB 11000 
8633 PRINT"(2) PARA GRABAR EN LA CASSETTE": Y=Y+2:GOSUB 11000 

8637 PRINT"(3) PARA VOLVER AL MENU" 

86540 D$=INKEY$:1F D$="" THEN 8640 

8645 IF D$="1" THEN 8513 

8650 IF D$="2" THEN A=RE:GOTO 8810 

8652 IF Dé="3" THEN RETURN 

8635 IF VAL (D$)<1 OR VAL(D$) >3 THEN 8640 

8810 GOSUB 4500: RETURN 

9150 CLS:X=16:Y=10:GOSUB 11000: FRINT "ERROR!'"*FOR I=1 TO 1500: NEXT Is CLS:N=0:RETURN 
10000 REM ----- 

10010 REM DATOS 

10020 REM ---— 

10030 DATA "DATA BASE - MEDICINA" 

10040 DATA 5 . 

10050 DATA "Vocabulario", "Introduccion de los datos" 

10060 DATA "Actualizacion de los datos", "Seleccion", "Generacion del sistema" 
10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 

10090 DATA 1,11,11,7,0 

10100 DATA "VOCABLO" 

10110 DATA 3,15,0,3,9,17,9 

10300 DATA "NOMBRE", "FECHA","/",,"/",,"SINTOMA", "FARMACO", "POSOLOGIA", , "NOTAS" 
10310 DATA 3,10,0,3,8,13,8 

10330,DATA 1,2,0,25,8,30,8 

10335 DATA 4,1,0,32,8,32,8 

10340 DATA 1,2,0,33,8,33,9 








10345 DATA 4,1,0,35,8,35,8 
10350 DATA 1,2,0,36,8,35,8 
10340 DATA 3,15,0,3,10,13,10 
10345 DATA 3,15,0,3,12,13,12 
10370 DATA 3,25,0,3,14,13,14 


10375.DATA.3,25,0,13,16,13,16 
10380 DATA 3,25,0,3,18,13,18 
10400 DATA, "NOMBRE", "SINTOMA", "FECHA", ,"/",, "SINTESIS" 
10410 DATA 3,10,0,9,8,19,8 
10425 DATA 3,15,0,9,10,19,10 
10430 DATA 3,1,0,9,12,19,12 
10440 DATA 1,2,0,22,12,22,12 
10445 DATA 4,1,0,24,12,24,12 
10450 DATA 1,2,0,25,12,25,12 
10465 DATA 3,2,0,9,14,19,14 
11000 REM_ === ---- 
11010 REM POSICIONA CURSOR 
11020 REM_=-------===--- 
11030 LOCATE X, Y 

11040 RETURN 

12000 REM. 


12004 
12008 
12012 
12015 
12020 
12025 
12030 
12035 
12040 
12045 
12050 
12055 
12060 
12065 
12068 
12100 


REM GENERACION SISTEMA 

RENA a 

CLS:M=1:GOSUB 2000 

X=10:Y=10:GOSUB 11000:PRINT "GENERACION EN CURSO": Y=Y+3:GOSUB !1000:PRINT "CONTINUO (S/N) " 
R$=INKEY$: IF R$="" THEN 12020 

IF R$="N" OR R$="n" THEN RETURN 

IF R$="S" OR R$="s" THEN 12040 

IF R$<>"S" OR R$<>"s" OR R$ <>"N" DR R$<>"n" THEN 12020 

CLS: X=1:Y=18:GOSUB 11000:PRINTW1S$ 

Y=Y+1:GOSUB 11000:PRINT W2$ 

FOR I=1 TO 1000:NEXT I:Y=22:GOSUB 11000: PRINTWSS; 

R$=INKEYS: IF R$="" THEN 12055 

IF R$="S" OR R$="s" THEN 12100 

IF R$="N" OR R$="n" THEN RETURN 

IF R$<>"S" OR R$<>"s" OR R$<>"N" OR R$<>"n" THEN 12055 

CLS: Y=10:X=5:GOSUB 11000:FRINT"Este programa preve un maximo de 60 introducciones y 20 






vocablos" 


12110 
12120 
12130 
12170 
12176 
12180 
12184 
12188 
12190 
12192 

2196 
12200 
12210 
12220 
12225 
12296 
12300 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
13250 
14000 
14010 
14020 
14150 
14155 
14160 


Y=22:GOSUB 11000:PRINT"Pulsar RETURN para continuar" 
R$=INKEYS: IF R$="" THEN 12120 

IF R$<>CHR$(13) THEN 12120 

CLS: X=12: Y=10:GOSUB 11000:PRINT"ESPERAR, POR FAVOR" 
OPEN "cas:VOC" FOR OUTPUT ASH1 

FOR I=0 TO 20 

AAS (1) =STRINGS$ (L1,AS$) 

PRINT 41,AA$(1) 

NEXT 1 

CLOSE +41 

OPEN "cas:ARC" FOR OUTPUT ASH1 

BBS$(0)="" 

BB$ (0) =STRING$ (L2, AS$) 

PRINT $1,BB$(0) 

CLOSE 41 

CLS: X=15:Y=10:GOSUB 11000:PRINT "TERMINADO!":FOR I=1 TO 1000:NEXT 1 
RETURN 

PP 

REM AYUDA 

REM o 

LOCATE 0,22 

PRINT "AYUDA (barra espaciadora para continuar)."; 
GOSUB 13220 

PRINT "FLECHAS: mueven en las 4 direcciones "3 
GOSUB 13220 

PRINT "RETURN: alinea y convalida introduccion "; 





GOSUB 1322: 
PRINT "F1: vuelve al menu principal e 
GOSUB 13220 
PRINT "F2: anula toda la introduccion eS 
GOSUB 13220 
PRINT "F3: borra un caracter ” 
GOSUB 13220 
PRINT "F4; permite la insercion de espacios * 
GOSUB 13220 
PRINT "FS: introduccion en cassette e 
GOSUB 13220 
PRINT " CTRL Y (AYUDA) "; 


RETURN 

AS=INKEYS: IF A$= "" THEN 13220 
IF A$<> CHR$(32) THEN 13220 
LOCATE 0,22 


REM BUSQUEDA 

REN ———— 

Q=0:G=1:MX=PA 

IF TP(G)>2 AND (LEFTS(B$(G),1)=CHR$(45) OR LEFT$(B$(G),1)=CHR$(32)). THEN 14220 

1F TP (G)=1 AND (RIGHT$(B$(G),1)=CHR$(32) OR RIGHTS (B$(G) ,1)=CHR$(61) OR RIGHTS (B$(G),1)=CH 


R$(45)) THEN 14220 


14162 
14170 
14172 
14175 
14180 
14185 
14190 
14195 
14200 
14205 
14210 
14215 


CO$=B$ (G) ¿MD=1:NI=0:NL=0 
NUC=2 

FOR D=1 TO NUC 

IF D=G THEN 14190 
NI=NI+LC(D) 

NEXT D 

NL=LC(D);NI=NI+1 

IF D=2 THEN NI=17 

GOSUB .£900 

IF O <> O THEN 14235 

Q=1:FOR I=1 TO MX:JS(1)=IS(1):NEXT 1 
FOR I=1 TO MX: IS(I)=0:NEXT 1 





14220 IF G=NUC THEN 14280 = 
14230 G=G+1:GOTO 14155 

14233 K=1 

14240 L=1 

14245 IF JS(K)=IS(L) THEN 14260 

14250 IF L=MX THEN 14255 

14252 L=L+1:GOTO 14245 

14255 JS(K)=0 

14260 IF K=MX THEN 14220 

14270 K=k+1:GOTO 14240 

14280 CLS: RETURN 

15000 REM. -———— = 

15005 REM SELECCION 

15010 ¡REM-——==== 

15012 GOSUB 6000 

15015 IF R$="N" OR R$="n" THEN RETURN 

15017 GOSUB 7000 

15020 CO$="":N=0:M=0:GOSUB 2000 

15023 Y=14;X=24:GOSUB 11000:PRINT" (SI/NO)" 

15030 Y=18:X=3:G0SUB 11000:PRINT"Signos aceptados por el calculador en el campo numero 
3 >-<" 

15040 GOSUB 3000 

15043 A=ASC(LEFTS(B$(7),1)):L=ASC(RIGHTS (B$ (7),1)):B=ASC(B$ (3) ) : M=VAL (B$ (4)) : AN=VAL (BS (6) ) 
150435 IF FS=7 THEN 130 s 
15050 1F FS=6 THEN 15020 E 

15051 CLS:X=15:Y=10:GOSUB 11000: PRINTW4S 

15052 IF M>12 THEN GOSUB 9150:GOTO 15020 

15055 K1=1:K7=0: 1F LEFT$(B$(1),1)=CHR$(32) OR LEFT$(E$(1),1)=CHR$(45) THEN GOTO 15057 ELSE 15060 
15057 IF LEFT$(B$(2),1)=CHR$(32) OR LEFT$(B$(2),1)=CHR$(45) THEN K1=0 

15060 IF A=78 AND L=79 THEN 15070 

15062 IF A=83 AND L=73 THEN 15070 

15065 GOSUB 9150:GOTO 15020 

15070 IF M=0 THEN K3=0:GOTO 15080 

15073 K3=1:IF B=60 OR E=61 OR B=62 THEN 15080 

15077 GOTO 15065 

15080 IF K1=0 AND K3=0 THEN GOSUB 9150:GOTO 15020 

15090 IF K1=0 THEN FOR I=1 TO PA:JS(I)=I:NEXT 1:GOTO 15110 

15100 GOSUB 14000 

15110 IF K3=0 THEN 15120 

15115 GOSUB 16500 ¿GOTO 15130 

15120 FOR I=0 TO PA: 1S(1)=JS(1):NEXT 

15130 REM BUCLE DE IMPRESION 

15140 CLS:X=10:Y=8:GOSUB 11000:PRINT "(1) PRESENTACION EN VIDEO": Y=Y+2:GOSUB 11000:PRINT "(2) IM 
PRESION EN PAPEL": Y=Y+2:GOSUB 11000:PRINT"(3) VUELVE AL MENU" 

15145 Y=Y+4: X=X+4:GOSUB 11000: PRINT"ELIJA" 

15150 SC$=INKEY$; IF SC$<>"" THEN 15170. 

15155 X=20:GOSUB11000:PRINT" [P":GOSUB 11000:PRINT"  " 

15160 GOTO 15150 

15170 SC=VAL (SC$): IF SC<1 OR SC>3 THEN 15150 

15180 .1F SC=3 THEN RETURN 

15190 CLS 

15192..1F.A=78 THEN 15200 

15193 IF SC=2 THEN 15197 

15195.PRINT.TAB(4)5"SELECCION : ";CO$;Y=1:G0TO 15200 


15197 LPRINT TAB(7); "SELECCION + "COS:LPRINT * 
15200 Y1=0 


15202 IF LEN(CO$)=15 OR LEN(CO$)=0 THEN N9=1:GOTO 15210 

15205 N9=7 

15210 FOR G=1 TO PA - 

15215 IF 1S(G6)=0 THEN 15300 

15220 H=18(6) 

15225 ES (1)=LEFTS.(BBS (H) ,10):B$(2)=MID$ (BB$ (H),11,2):B3 (4)=M1DS (BB$(H) 13,2) 

15230 E$(6)=MIDS (BES (H),15,2):B$(7)=MIDS(BBS (H), 17,15) :B$(8)=MID$ (BB$ (H),32, 15) :B$ (9) =MIDS (BBS (H 
),47,25) 

15235 B$(10)=MID$ (BB$ (H),72,25):B$(11)=RIGHTS (BB$ (H), 25) 

15237 E$(3)=SL$:B$(5)=SL$ 

15240 IF A=83 THEN GOSUB 15500:GOTO 15260 

15250 GOSUB 16000 

15260 IF Y1<6 THEN 15300 

15265 Y1=0:X=5:Y=23:G0SUB' 11000: PRINT"PULSE UN TECLA PARA CONTINUAR"; 

15270 R$=INKEYS:1F R$="" THEN 15270 

15280 CLS: Y=1 

15290'1F K9=1 THEN GOTO 15330 

15300 K9=0:NEXT 6 

15310 K9=1:GO0TO 15265 

15330 FOR I=1 TO PA:IS(1)=0:JS(1)=0:NEXT 1 

15340 IF K7=1 THEN OPZ=4:N=0:GOTO 15017 

15350 NUC=7:N=0: GOTO 15020 
15 FSC: N : 










15505 X=0: Y=Y+2:GOSUB 11000:PRINT B$(N9);SPC(1)5B$(8); 
15510 PRINT SPC(1);5B$(2);SL$;B$(4);SL$;B$(6) 

15515 IF Y<20 THEN 15600 

33920 Y1=7:G0TO 15610 

15550 LPRINT TAB(2)5B$ (N9)5SPC(2);B$(8)5 

15560 LPRINT SPC(2);B$(2);SL$;B$(4);SL$;B$(6) :LPRINT 
15600 REM 

15610 RETURN 

16000 IF SC=2 THEN 16100 

16005 OPZ OSUB 7000 

16007 FOR TO 11:TP(1)=4:NEXT 1 

16010 GOSUB 2240 

16012 X=3:Y=3:GOSUB 11000:PRINT"CODIGO : "; 

15013 X=0:Y=21:G0SUB 11000:PRINT F1$:Y=Y+1:X=5:GOSUB 11000:FPRINT"Pulse una tecla para continuar" 
16020 R$=INKEYS: IF R$="" THEN 16020 

16023 GOTO 16325 

16100 LPRINT:LPRINT TAB(2)3"CODIGO : "¿H:LPRINT:LPRINT 





16102 LPRINT:LPRINT TAB(2); "NOMBRE s "¡E$(1):LPRINT 
16105 LPRINT;TAB(2); "FECHA 3 "¡BS(2);B39(3)5B$(4);B$(5);B$(6) 
16120 LPRINT¿LPRINT TAB(2);"SINTOMA —: "¡B$(7):LPRINT 


16125 LPRINT TAB(2);"FARMACO 3 "¡B$(8):LPRINT 
16130 LPRINT TAB(2);"POSOLOGIA : "¡B$(9);B$(10) 
16140 LPRINT:LPRINT TAB(2)3 "NOTAS s "B$(11):LPRINT:LPRINT 
16325 CLS:Y1=0:k7=1: RETURN 

16500 REM CONPARACION FECHA h 
16505 FOR I=1 TO PA:1S(1)=0:NEXT 

16510 FOR I=1 TO PA ES 
16520 IF JS(1)=0 THEN 16650 

16525 S=VAL (MID$(BB$(JS(1)),15,2)) 

16527 F=VAL(MIDS (BB$(JS(1)),13,2)) 

16530 ME=ANX100+M: MA=SX100+F 

16535 IF B=62 THEN 16600 

16537 IF B=61 THEN 16575 

16540 IF MA > ME THEN 16450 

16555 IS(1)=3S(1):GOTO 16700 

165735 IF MA <> ME THEN 16650 

16585 15(1)=3S(1):GOTO 16700 

16600 IF MA < ME THEN 16450 

16520 1S5(1)=JS(1):GOTO 16700 

16650 IS(1)=0 

165700 NEXT 1 

16710 RETURN 

LO RENA 2 





16910 REM VOCABULARIO 
16920 REM === -— 
16922 PROG$=SPACES (3) +VOS (1) 














GOSu 
35 IF OPZ=MA THEN 130 
7 GOSUB 6000 
O 1F R$="N" OR R$="n" THEN 17480 
2 1F OPZ=3 THEN 17000 


GDTO_17250 


REM BUCLE DE IMPRESION 

LB 11000:PRINT_"(1) FRESENTACION EN VIDEO": Y=Y+2:GOSUB 11000:PRINT "(2) IM 
+2:GO0SUB 11000:PRINT"(3) VUELVE AL MENU" 

1:GOS 11000: PRINT"ELIJA" 

IF SUS<>"" EN 17050 

UB11000:PRINT" MA": GOSUE 11000:PRINT"__" 








17050 











17080 SC=VAL (SC$): IF SC<1 DR _SC>3 THEN 17030 
E IF SC=3 THEN 17480 
CLS 
170790 Y=1 
17100 IF SC=2 THEN 17120 
17110 X=: GOSUB 11000:PRINT"LISTA DE LOS VOCABLOS :":GOTO 17130 
17120 CL ¿INT_TAB(7)3 "LISTA DE LOS VOCABLOS :":LPRINT :LPRINT 
17130 Fl TO RE STEP 2 
17140 (1): 1F VAL(1I$)<10 THEN I$=BL$+BL$+RIGHT$(1$,1) 


17150 ES=STR$(1+1):1F VAL (E$)<10 THEN E$=BL$+BL$+RIGHTS (ES, 1) 

17160 1F =2 THEN CLS:GOTO 17220 

17170 Y=Y+2:X=0:G0SUB 11000:PRINT 1$;" ":X=4:GOSUB 11000:PRINT AA$(1):X=20:GOSUB 11000:PRINT E$; 
"AAS(I+1) 

17180 NEXT 1 

17190 X=0:Y=21:G0SUB 11000:PRINT F1$:PRINT TAB(S);"Pulse una tecla para continuar"; 

17200 R$=INKEY$: IF R$="" THEN 17200 

47219 GOTO 12000 





172 








7260 
17270 GOSUB 7000 


30 NEXT 1 
O GOTO 17000 

O REM GESTION VOCABULARIO 

E=0PZ:0P2=1 


17280 1F E=2 THEN 17490:REM ACTUALIZACION 
17290 VO$(1)=RIGHT$(PROG$,11)+" — Introduccion" 
17300 RE=RE+1 





IF RE <=20 THEN 17340 


20 CLS:X=5: Y=10:GOSUB 11000:PRINT"EL FICHERO VOCABULARIO ESTA AGOTADO": FOR I=1 TO 2000:NEXT 1 


Ó GOTO 17480 
M=0:N=0: GOSUB 2000 


17330 X=12:Y=9:GOSUB 11000 





FPRINT RE 

70 GOSUB 3000 

IF FS=7 THEN 17480 
O 1F FS=6 THEN 17340 


17400 AA$ (0) =STR$(RE) 
17410 AAS(RE)=B5$ (1) 
17420 CLS:X=3: Y=10:GOSUB 11000:PRINT "(0) PARA GRABAR EN LA CASSETTE": Y=Y+2:GOSUR 11000: PRINT 


1) 


PARA UNA NUEVA INTRODUCCION" 


17430 R$=INKEY$:1F R$="" THEN 17430 

17440 IF R$="0" THEN 17470 

17450 IF R$="1" THEN GOTO 17300 

17460 IF R$<>"0" OR R$<>"1" THEN 17430 

17470 GOSUB 6500 

17480 CLS:VO$(1)="Vocabulario":GOTO 16900 

17490 CLS: X=10:Y=10:GOSUB 11000:PRINT"INTRODUCIR EL CODIGO": Y=Y+2:G0SUB 11000 
17300 INFUT "A VARIAR (1/20) ";W 

17510 IF W<1 OR vW>20 THEN GOSUB 9150:GO0TO 17490 

17320 IF W<=RE THEN 17540 

17530 CLS:X=6:GOSUB 11000:PRINT"EL CODIGO "¿W;" NO EXISTE"*FOR I=1 TO 2000:NEXT 1:GOTO 17490 
17540 B$(1)=AA$ (W) 

17330 FOR I=1 TO 11:TP(1)=S:NEXT 1 

17360 VO$(1)=RIGHT$(PROG$,11)+" - Actualizacion" 

17570 GOSUB 2000 

17580 X=12:Y=9:GOSUB 11000:PRINT W 


17390 





¿TP (6)=4: TP (9)=4 


17600 GOSUB 3000 
17610 IF FS=7 THEN 17480 


17620 IF FS 
17630 CLS:X 
17640 R$=INKEYS: IF R 
17650 IF R$="n" OR R 






THEN 17540 

¿Y=10:GOSUB 11000:FRINT"CONFIRMA LA VARIACION ? (S/N)" 
=""" THEN 17640 

N' THEN 17690 





17660 IF R$="S" OR R$="s" THEN 17680 

17670 IF R$<>"S" OR R$<>"N" OR Ré<>"s" OR R$<>"s" THEN 17640 
17680 ARAS (W) =Es (1) 

17690 CLS:X=3: Y=10:GOSUB 11000:PRINT"(1) PARA UNA NUEVA VARIACION": Y=Y+*2:GOSUB 11000 
17700 PRINT"(2) PARA GRABAR EN LA CASSETTE": Y=Y+2:GOSUB 11000 
17710 PRINT"(3) PARA VOLVER AL MENU" 

17720 D$=INKEYS: IF Dé="" THEN 17720 

17730 1F D$="1" THEN 17490 

17740 IF D$="2" THEN A=RE:GOTO 17770 

17750 IF D$="3" THEN 17480 

17760 IF VAL(D$)<1 OR VAL(D$)>3 THEN 17720 

17770 GOSUE 6500 

17780 GOTO 17480 


Prog/3 


10 
13 
15 
18 
20 
21 
22 
23 
27 
29 
35 
40 
45 
50 
s2 
33 


60 


A ER 
REM FACTOR DE CRECIMIENTO 
REM Version MSX 
REM: === === === ici 
MAXFILES=3 
CLEAR 3000 
DEFINT A-S, U-W 
DEFDBL T,Z 
Wi$="PREPARE EL GRABADOR APRETANDO":W2$="PLAY Y RECORD":W3$="REBOBINE LA CINTA Y APRIETE" 
W4$="ESPERAR":WS$="ESTA PREPARADO? (pulse S para continuar ulse N para volver al menu)" 
DIM P1$(20),P2$ (20) ,P3$ (20) 
DIM TF(15),TP(85),LC(85),ND(85),CX (85) ,CY (85), DX (83) ,DY(83) 
DIM ME(20),H(20),P(20),C(20),MT(20),HT(2,20) ,PT (2,20),CT(2,20) 
DIM B$(85),D$(85),V0$(10),C$(8),AA$(21),DD$(13) ,BB$(13),CC$(13) 
NO$(1)="TABLAS DE VARON":NO$(2)="TABLAS DE HEMBRAS" 
KEY OFF:KEY 1,CHR$(15): KEY 2,CHR$(16) :KEY 3,CHR$(17):KEY 4,CHR$(19): KEY S,CHR$(20) : WIDTH 40 
REM CONSTANTES 


65 Al 


":av 


=1:A2=31: BP$="04L30DFB":NS$="="3AS$=CHR$ (45): FD$=", ":BL$=" "¡ERS="E":MPS="| MENU lu SL$="/ 






70 F$=CHR$ (1) +CHR$ (87) 


72 Fi$="": FOR 1=0 TO 39:F1$=F1$+F$: NEXT 1 
73 O$=STRINGS$ (33, AS$) 
S2=2:MI=1 


80 
90 





100 US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$(32) 
110 HE$="CTRL Y (AYUDA) " 
115 H1$="E.G.S. Ediciones Forum, S.A." 


120 


REM CARGA VOCES 


130 RESTORE 


140 
150 
150 
170 
180 
190 
200 
210 
220 
230 
240 
260 
290 
1300 
1310 
1320 
1330 
1335 
1340 
T “| 
1345 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1455 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1560 
1380 
1590 
2000 
2010 
2020 
2030 
2130 
2140 
2150 
2190 
2195 
2200 
2215 
2216 
2217 
2218 
2220 
2240 
2245 
2270 
2280 
2290 
2300 


2310 


READ PROG$ 

READ NV 

FOR I=1 TO NV:READ VO$(1):NEXT 

MA=NV+1 

VO$ (MA)="Fin de tarea" 

FOR I=1 TO 15 

READ TF (1) 

NEXT 1 

REM MAIN 

GOSUB 1300: REM MENU 

IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS: END 

ON OPZ GOSUB 8000,8500,5000, 5500, 12000, 14000 

GOTO 230 

REM — 

REM MENU PRINCIPAL 

REM o — 

CLs 

X=1:Y=0:GOSUB 11000:PRINT "7% 

X=XC+7: Y=0:GOSUB 11000:PRINT H1$:X=1:Y=Y+1:GOSUB 11000:PRINT MP$:Y=Y+1:X=1:GOSUB 11000:PRIN 
ly: PRINT SPACES (S);:PRINT PROG$+DE$ 

X= 15 VeY+17 80808110003 PRINTER 

FOR 1 = MI TO MA 

Y=IXSZ+YC:X=XC:GOSUB 11000 

TI=I 

IF II= (MA) THEN II=0 

PRINT 117 "-"¿V0$(1) 

NEXT 

I=MI 

Y=IXSZ+YC: X=XS: GOSUB 11000 

SP=YC-1 

PRINT "->"; 

OPZ$=INKEYS: IF OPZ$="" THEN 1450 

OPZ=VAL (0PZ$): IF OPZ$=US$ THEN 1530 

IF OPZ >NV THEN 1450 

IF OPZ$=2E$ THEN X=XS:GOSUB 11000:PRINT SPC( SP);:I=MA:GOTO 1420 

IF ASC(OPZ$)>48 AND ASC (0PZ$) <S8 THEN X=XS:GOSUB 11000:FRINT SPC( SP): 1=0PZ:GOTO 1420 

IF 0PZ$ <> GIUSTHEN 1450 

X=XS:GOSUB 11000:PRINT SPC( SP); 

I=I+1:1F 1> (MA) THEN 1410 

GOTO 1420 

X=XC: Y=1X8Z+YC 

Tl=I: IF 1 > NV THEN II=0 

PRINT 11;"-"¿V0$(1) 

OPZ =I 

RETURN 

REM o —Á 

REM PRESENTA MASCARA 

REM 

CLS 

L=LEN (VOS (DPZ))-3 

FM=(29-L)/2 ¿ 

X=1:Y=0:GOSUB 11000:PRINT "7": X=XC+7:GOSUB 11000:PRINT Hi$: 

OPZ$=LEFTS(STR$(0PZ),2) 

Y=Y+1:X=1:GOSUB 11000:PRINT"ÍVOZ "¡OP78:PRINT “| 

TUE IAN AAAáÁAÁAA AAA Y 

:X=1:GOSUB 11000:PRINT "| |"33PRINT SPC(FM)5:PRINT VO$(0PZ);:PRINT SPC(FM) 

IF M=1 THEN RETURN 

IF N=1 THEN 2240 

Y=21:X=0:GOSUB 11000: PRINTF1$ 









X=25: Y=22:GOSUB 11000:PRINT HE$ 
FOR J=1 TO NUC 
At="" 


X=DX (3): Y=DY(J):GOSUB 11000:PRINT D$(J) 

IF TP(J) <>5 AND TP(J) <> 4 THEN 2310 

X=CX (3): Y=CY (J):GOSUB 11000 

PRINT B$(J):GOTO 2500 

Ni=LC(J):N2=ND(J):1F TP(J)=1 OR TP(J)=2 THEN C$=NS$:GOTO 2350 


2340 


STE 
230 


2360 
2370 
2380 
2390 
2400 
2410 
2492 
2500 
2510 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3620 
3630 
3440 
3650 
3660 
3680 
3690 
3700 
3710 
3720 
3730 
3740 


3730 





C$=A5$ 

A$=STRINGS (NI-N2-1,C0$) 

IF N2=0 THEN A$= A$+C$:GOTO 2390 
A$=A$+FD$ 

FOR I=1 TO N2:A%=0$+ZE$:NEXT 1 
X=CX(J) : Y=CY(J):GOSUB 11000 

PRINT AS S 
ES (3) =SPACES$ (N1-N2-1) 

B$(J)=B$(J) +RIGHT$(A$,N2+1) 

NEXT J 





NC=J: X=CX (NC) : Y=CY (NC) 

CC=1 

GOSUB 3240 

IF FS=0 THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

J=J+1:1F JONUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 

IF J>1 THEN J=J-1:GOTO 3040 

PLAY BP$ :FS=0:J=NUC:GOTO 3040 

IF J% NUC THEN J=3+1:G0TO 3040 

PLAY BP$:FS=0:GOTO 3030 

IF CO<LC(J) THEN S=1:CC=CC+1:X=X+1:GOSUB 11000:GOTO 3060 
PLAY BF$:FS=0:GOTO 3100 

IF CC» THEN S=-1:CC=0C-1:X=X-1:GOSUB 11000:GOTO 3060 
PLAY BF$:FS=0:G0TO 3040 

IF FS>8 THEN FS=0:GOTO 3040 

IF FS=8 THEN FS=0:GOTO 3100 

RETURN 

REA 

REM LECTURA DE UN CAMPO 

REM nono 

FS=0 

IF TP(NC)=4 THEN RETURN 

IF TP(NC)=2 THEN RETURN 

IF MID$(B$(NC),CC,1)=PDS THEN X=X+S:CC=CC+S 
GOSUB 11000 

A$=INKEYS: IF A$= "" THEN PRINT"f]';:GOSUB11000: PRINTMIDS (B$ (NC),CC, 1) 5: GOSUB11000:G0TO3320 
CA=ASC(A$): IF CA > A2 THEN 3380 

FOR I=1 TO 15 

IF TF(I)= CA THEN FS = 1: GOSUB 3630: RETURN 
NEXT 1 

GOTO 3320 

IF TP(NC)I<>1 THEN 3440 

IF CA=45 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 
PLAY BP$:GOTO 3320 

IF CA <> 46 THEN 3440 

GOSUB 4270 

IF SWP=1 THEN 3400 

S=1: GOSUB 3520 

IF CC=LC(NC) THEN RETURN 

CC=CC+ :X=X+1:G0TO 3300 


REM 
REM TRANSFERENCIA AL BUFFER 
REM rr rr rr e e rm e. 
IF CC=1 THEN SN$= "":GOTO 3570 


SN$=LEFT$ (B$ (NC), CC-1) 
IF CC=LC(NC) THEN DS$= "":GOTO 3590 
N=LC (NC)-CC:DS$=RIGHT$ (B$(NC),N) 
E$ (NC) =SN$+A$+DS$ 

PRINT A$: RETURN 

REN == 

REM COMANDOS 

REM ===> 

IF FS»5 THEN 3690 

RETURN 

IF FS=9 THEN GOSUB 13000: RETURN 

IF FS=8 THEN GOSUB 4080: RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 

RE 

REM INSERCION 


250 GOSUB 11000 


REM ———— 

IF CC=LC(NC) THEN PLAY BP$: RETURN 
IF CC=1 THEN SN$= "":GOTO 3800 
SN$=LEFT+$ (B$ (NC) , CC-1) 
N=LC(NC)-CC+1:DS$=RIGHTS (B$(NC),N) 
IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 
Cé$=BL$ 

A$=SN$ +C$+DS$ 

B$ (NC)=LEFT$(A$, LC(NC)) 

XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 

X=XX:3 Y=YY 

PRINT B$(NC):S=-1 

IF RIGHTS (B$ (NC), 1)= PD$ THEN 3780 
RETURN 

REN: ===" 

REM BORRADO 

REN == 

IF TP(NC)<>1 THEN 3960 

IF MID$ (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 
IF CC<i THEN FRINT BP$: RETURN 


O IF CC=LC(NC) THEN DS$= "": GOTO 4000 


N=LC(NC) -CC:DS$ =RIGHT$ (B$(NC),N) 
IF CC=1 THEN SN$= ""; GOTO 4010 





SN$=LEFT$ — (B$(NC),CC-1) 

O IF TP(NC)=1 OR TP(NC)=2 THEN Có=NS$ 
C$=AS$ 
ES (NC)= SN$ +DS$ +C$ 
XX=X: YY=Y 
X=CX (NC) : Y=CY (NC) ¿GOSUB 11000 
X=XX: Y=YY 
PRINT B$(NC)5:S=1: RETURN 
EMS 

O REM ALINEADOS 
REM 


O IF LC(NC)=1 THEN RETURN 


N1=LC (NC) -CC+1 


O IF CC=1 THEN B$(NC) = ""; GOTO 4150 


B$(NC)= LEFT$ (B$(NC),CC-1) 


O IF TF(NC) =1 OR TF(NC)=2 THEN 4200 
O FOR I=1 TO Ni 
O B$(NC)=B$ (NC) +BL$ 


NEXT I 

GOTO 4240 

FOR I=i TO Ni 

B$ (NC)=BL$ +B$ (NC) 

NEXT 1 

IF RIGHTS (B$(NC),1) =<PD$ THEN BS(NC)= BL$ +LEFTS (ES (NC) ,LO(NC)-1) 
X=CX (NC) : Y=CY (NC) 





FRINT B$ (NC) : RETURN 


O REM ———————-- 


REM CTRL PUNTO 


290 REM ===> 





4340 
5000 
5003 
5010 
s015 
5020 
5030 
5040 
5050 
5130 
5135 
5140 
5170 
5180 
5185 
5190 
5193 
5200 
5210 
5215 
5230 


SswP = 0 

IF CC=1 OR CC=LC(NC) THEN SWP =1: RETURN 

FOR I=1 TO LC(NC) 

IF MID$(B$(NC),1,1)= FD$ THEN I = LC(NC): SWP=1: RETURN 

NEXT TI: RETURN 

RE: 

REM IMPRESION 

REN EA =ÓS 

GOSUB 6000 - 

IF R$="N" OR R$="n" THEN RETURN 

GOSUB 20000 

GOSUB 20500 

IF SC=3 THEN RETURN 

IF MID$(AA$(0),7,1)="V" OR MID$(AA$(0),7,1)="v" THEN Z$="0":GOTO 5140 
2$="p" 

IF SC=2 THEN 5300 

CLS:PRINT TAB(2)5LEFT$(A4$(0),6)," NACID";527$3" Els "¡Ni;SL$¿N2;SL$;N3 
PRINT"fecha altura peso C. Craneo" 

FOR A=1 TO PA 
B$(1)=LEFT$(AA$(A),2) :B$(2) =MIDS$ (60$ (8) ,3,2) :B$ (3)=MID$(AA$ (4),5,2 
B$14)=MIDS$ (AA$(4),7,3):B$(5)=MIDS(AA$(A),10,4):B$(6)=MID$(AA$(A),14,2) 
PRINTBS (1) SL$; B$ (2) ¡SL$;B$ (3) ;SPC(5)5B$(4)3P1$ (8) ;SPC(5)3B$(5)P2$(4);SPC(7) ¿B$(6)5P3$(A) 
NEXT A 

(=3: Y=23:GOSUB 11000:PRINT"pulsar una tecla para continuar"; 
R$=INKEY$: 1F R$="" THEN 5230 


5240 GOTO 5040 

5300 CLS:LPRINT TAB(2)5LEFTS(AA$(0),6)," NACID"¡Z7$;" El: "¡¿Ni¿Sl: 
5310 LPRINT:LPRINT"fecha altura peso c. craneo":LPRINT: 
FOR A=1 TO FA 
B$(1)=LEFTS(AM$5(A),2):B$ (2) =MID$ (8A$(A),3,2):B$(3)=MIDS (AA$(A),5,2) 

B$1(4)=MID$ (40$(8),7,3):B$(5) =MID$(AA$(A),10,4):B$ (6) =MID$(AA$(A),14,2) 

LFRINTBS (1) ;SL$;B$(2);SL$5B$(3) ¡SPC(5)3B$(4);P1$(M)5SPC(5)5B$(5)3P2% (8) ¿SPC(7)5B$(6)¡P3$(A) 
O LPRINT 

NEXT A 

GOTO 5040 

RS 

REM LISTA PERSONAS 

REM aia 

GOSUB 6000 
IF R$="N" OR R$="n" THEN RETURN 

GOSUB 20500 

IF SC=3 THEN RETURN 

B$(1)=LEFT$(AA$ (0) ,6) :B$(2)=LEFTS (AA$S(1),2) :B$(3)=MID$(AA$(1),3,2):B$(4)=MIDS (AA$(1),5,2 
B$ (3) =MID$ (AA$(1),7,3):B$(6)=MID$(AA$(1),10,4):B$(7)=MID$(AA$(1),14,2) 

B$ (8) =LEFTS (AA$(PA) , 2): B$(9)=MIDS (AMS (PA) 3,2) :E$ (10) =MIDS(AAS(PA),5,2) 

IF SC=2 THEN CLS:GOTO 5650 

=1:GOSUB 2000 

=7:G0SUB 11000:PRINT"NOMBRE":X=15:GOSUB 11000:PRINT B$(1) 

+2:GOSUB 11000:PRINT"NACIMIENTO":X=15:GOSUB 11000:PRINT B$(2);SL$;B$(3);SL$;B$(4) 
+2:GOSUB 11000:PRINT"ALTURA":X=15:GOSUB 11000:PRINT B$(5) 

+2:GOSUB 11000:PRINT"PESO":X=15:GOSUB 11000:PRINT B$(6) 

=Y+2:G0SUB 11000:PRINT"C.CRANEO":X=15:GOSUB 11000:PRINT B$(7) 1 

5610 X=3:Y=Y+2:GOSUB 11000:FRINT"ULTIMA MEDIDA EL :":X=26:GOSUB 11000:PRINT B$(8);SL$;B$(9);SL$; 
B$(10) 

5615 X= GOSUB 11000:FPRINTF1$ _, 

5620 X=35: GOSUB 11000: PRINT"PULSAR UNA TECLA PARA CONTINUAR" 

3630 R$=INKEYS: IF R$="" THEN 5630 

5640 GOTO 5330 

3650 LFRINT :LPRINT TAB(3);"NOMBRE"; TAB(15);B$(1) 

5655 LPRINT ¿LPRINT TAB(3)5 "NACIMIENTO"; TAB(15)3B$(2);SL$3B$(3):SL$3B$ (4) 

5660 LFRINT :¿LPRINT TAB(3); "ALTURA"; TAB(15);B$(5) 

5665 LFRINT :¿LPRINT TAB(3); "PESO"; TAB(15)3B$ (6) 

5670 LFRINT :LPRINT TAB(3);"C.CRANEO";TAB(15);B$(7) 


3675 LPRINT ¿LPRINT TAB(3); "ULTIMA MEDIDA EL :";TAB(15);B$(8)5SL$3B$(9);S5L4;B$(10) 
5680 LFRINT 


5690 GOTO 5330 





























6000 REM ————==-=--- 

6005 REM CARGA DATOS 

6010 REM --- 

6020 CLS: Y=18:GO0SUB 11000:PRINT W3$ 





6023 Y=Y+1:GOSUB 11000:PRINT LEFT$(W2$,4) 

6030 FOR I=1 TO 1000:NEXT I:Y=22:GOSUB 11000; PRINTWS$; 
6040 R$=INKEY$: 1F R$="" THEN 6040 

6045 IF Ré="S" OR R$="s" THEN 6060 

6050 IF Ré="N" OR R$="n" THEN RETURN 

6052 IF Réx>"S" OR R$<>"s" OR R$<2"N" OR R$<>"n" THEN 6040 
6060 CLS:X=15: Y=10:GOSUB 11000: FRINTWAS 

6070 OPEN "CAS: TAEV"FOR INPUT ASH 

6073 FOR I=1 TO 12 

6080 INFUT 4+1,BB$(1) 

6085 NEXT 1 

6090 CLOSE +1 

é6100 OFEN "CAS: TABH"FOR INFUT ASH1 

b110 FOR I=1 TO 12 

6120 INPUT +4+1,CC$(1) 

6130 NEXT 1 

6140 CLOSE +1 

6150 IF LlL=1 THEN RETURN 

6160 OFEN "CAS:RAG" FOR INFUT ASH1 

6163 INFUT $1,AA$(0) 

6250 PA$=MID$(MA$ (0),14,2) 

6263 PA=VAL(PA$) 

6267 IF PA=0 THEN 6300 

6270 FOR M=1 TO. PA 

6272 INPUT +tt1,AA$(M) 

6275 NEXT M 

300 CLOSE +1 

6340 RETURN 

4500. REM == ——— === 

4505 REM GRABACION DATOS 

¿510 REM: =——_= == 

$520 CLS:X=1:Y=18: GOSUB 11000:PRINT W3$:Y=Y+1:G0SUB 11000: FRINTW2$ 
6525 FOR I=1 TO 1000:NEXT I:Y=22:GOSUB 11000: PRINTWSS$; 
6530 Ré=INKEYS:IF R$="" THEN 6330 





6533 


$340 





"s" THEN 4550 

n” THEN RETURN 

s" OR R$<>"N" OR R$<>Un" THEN £530 
FRINTWA$ 








O OPEN "CAS: TABV" FOR OUTPUT ASH1 


FOR K=1 TO 12 
PRINT +1, BB$(K) 
NEXT K 

CLOSE +1 


O OPEN "CAS:TABH" FOR OUTPUT ASH+1i 


FOR K=1 TO 12 
FRINT 41,CC$(K) 
NEXT K 


O CLOSE +1 


OPEN "CAS:RAG" FOR OUTPUT ASH 
FOR k=0 TO PA 

PRINT 41,A48(K) 

NEXT K 

CLOSE +1 

RETURN 

REM. — 

REM LECTURA DE LOS DATOS 

REM ===> 
FR=0:RESTORE 10040 

READ NY 

RESTORE 10090 

FOR 1 = 1 TO NV:READ NUC(1) 

NEXT 1 

IF OPZ=1 OR OPZ=2 THEN GOSUB 7220:G0TO 7071 
IF OPZ=S THEN GOSUB 7210:G0TO 7071 
IF OPZ=6 THEN GOSUB 7230:GOTO 7071 
RETURN 

NUC=NUC (0PZ) 

FOR I=1 TO NUC 

READ D$(1) 

NEXT 1 

FOR 1 = 1 TO NUC 

READ TP(I),LOCI)ND(1)DX (1) DY (1) CX(1),CY CI) 
NEXT 1 

IF FR=0 THEN 7190 

DS=9 

FOR H=NUC+1 TO 84 STEP 7 

A=H 

FOR I=1 TO NUC 

TP(A)=TP (1) :LO(A)=LC (1) ¿ND(A)=ND(1) :DX(A)=DX(1) :DY (A) =DY (1) :CX(A)=CX (1) : CY (A)=DS+1 
A=A+1 

NEXT 1 

DS=CY (A-1) 

NEXT H 

NUC=84 

RETURN 

ON RR GOSUB 7500, 7510: RETURN 
RESTORE 10100: RETURN 

FR=1:RESTORE 10500: RETURN 
NUC(0PZ)=7: RESTORE 10100: RETURN 
RESTORE 10400: RETURN 

REM: === 

REM INTRODUCCION 


O GOSUB 6000 


IF R$="N" OR R$="n" THEN RETURN 

IF PA < 20 THEN 8050 

CLS:X=8:Y=10;GOSUB 11000:PRINT"EL FICHERO DATOS ESTA AGOTADO":FOR I=1 TO 2000:NEXT I 
CLS: RETURN 

PA=PA+1 

OPZ=1:GOSUB 7000 

B$(1)=LEFT$(AA$(0),6) 

C$ (1)=LEFTS (AMS (PA-1),2 

C$ (2) =MIDS$ (AA$ (PA-1),3,2):0$(3)=MIDS (AA$(PA-1),5,2):G0TO 8075 

N=0:M=0: GOSUB 2000 

GOSUB 3000 

IF FS=7 THEN RETURN 

IF FS=6 THEN 8060 

FOR K=S 10 7 

IF RIGHTS (B$(K),1)=CHR$(32) OR RIGHT$(B$(K),1)=CHR$(61) THEN P=0:GOTO 8093 
P=1 

NEXT K 





4 1F P=1 THEN 8100 


GOSUB 9150:G0TO 8060 


8100 
gí05 
g110 
8120 
8130 
8150 
e1ss 
8157 
8150 
seléó5 
8170 
8173 


MI=VAL (0$(3) ) :M2=VAL (0$ (2) ) : M3=VAL (0$(1)> 

N1=VAL (B$ (4) ) :N2=VAL (B$(3)) :N3=VAL (B$ (2)) 

TA= (M1x10000)+(M24100)+M3 

ZA= (N1X10000)+(N2x100)+N3 

IF ZAX=TA THEN GOSUB 9200:GOTO 8060 

IF VAL(B$(2))>31 OR VAL (B$(3))>12 THEN GOSUB: 9200:GOTO 8060 
IF VAL(B$(2))<10 THEN B$(2)=ZES+RIGHTS(B$(2),1) 

IF VAL(B$(3))<10 THEN B$(3)=ZE$+RIGHT$(B$(3),1) 

CLS: X=35: Y=8:GOSUB 11000:PRINT"(1) PARA UNA NUEVA INTRODUCCION": Y=Y+2:GOSUB 11000 
FRINT"(2) PARA GRABAR EN LA CASSETTE" 

X=X+4: Y=Y+4:GOSUB 11000:PRINT"ELIJA" 

S2$=INKEY$: IF S2$<> "" THEN 8190 

X=15:GOSUB 11000:PRINT" f":GOSUB 11000:PRINT"  " 

GOTO 8173 

S52=VAL(S2%): 1F S2<1 OR S2>2 THEN 8190 





260 ARS (PA) =BS (2) +B$(3)+B5 (4) +B5(3)+B$ (6) +B5(7)+AV$ 


IF S2=1 THEN GOTO 8025 


O FI$=LEFTS$(AA$(0),13) 


8500 
8502 
8505 
asio 
8520 
8525 
852 

8527 


8602 
8603 
8607 
8609 
8612 
8615 
8620 
8625 
8630 
8635 
8640 
8650 
8655 
8670 
8673 
8680 
8683 
8700 
8710 
e715 
8720 
8725 
8730 
8735 
8740 
8750 
9150 
9200 





PA$=STRS (PA) 
IF FA<1O THEN FAs$=ZE$+RIGHT$(PA$, 1) :GOTO 8300 
PA$=RIGHTS (PAS, 2) 


O AAS(O)=FIS+PAS+AVS 


GOSUB 6500: RETURN 

RENÉ 

REM VARIACION 

REM mm =- 

GOSUB 6000 

IF R$="N" OR R$="n" THEN RETURN 

CLS:X=5:Y=10:GOSUB 11000: PRINT"INTRODUCIR EL NUMERO DEL REGISTRO": X=X+5: Y=Y+2: GOSUB 11000 
PRINT "A VARIAR (2/20)" 

X=9:Y=Y+6:GOSUB 11000:PRINT"(1) PARA VOLVER AL MENU" 

X=28: Y=12:GOSUB 11000: INPUT U$ 

U=VAL (U$) 

IF U=1 THEN RETURN 

IF U<2 OR U>20 THEN GOSUB 9150:GOTO 8525 

IF Uc=PA THEN 8550 

CLS:X=5:Y=10:G0SUB 11000:PRINT"EL CODIGO “;U;" NO EXISTE" 

FOR I=1 TO 2000:NEXT I:GOTO 8525 

B$ (1) =LEFT$(AAS(0),6) 

B$ (2) =LEFTS(AAS (U),2) :B$(3)=MID$ (AA$ (U),3,2):B$ (4) =MID$ (AA$ (U),5,2) 

B$ (5) =MIDS$(AA$ (U),7,3):B$(6)=MIDS (AA$(U),10,4):B$(7)=MID$(AAS (U), 14,2) 

GOSUB 7000 

FOR 1=2 TO 7: TP(1)=5:NEXT 1 

N=0:M=0:GOSUB 2000 

FOR 1=2 TO 4: TP(1)=1:NEXT 1 

GOSUB 3000 

IF FS=7 THEN RETURN 

IF FS=6 THEN 8550 

IF VAL(B$(6))>99 THEN GOSUB 9150:G0TO 8550 

IF VAL (B$(2))>31 OR VAL(B$(3))>12 THEN GOSUB 9200:GOTO 8550 

CLS: X=5:Y=10:GOSUB 11000:PRINT"CONFIRMA LA VARIACION 2 (S/N)" 

R$=INKEYS: IF R$="" THEN 8605 

IF R$="S" OR R$="s" THEN 8615 

IF R$="N" OR R$="n" THEN 8700 

IF R$<>"S" OR R$<>"s" DR R$<>"N" OR R$<>"n" THEN 8603 

M1=VAL (B$ (4) ) :M2=VAL (B$ (3) ) : M3=VAL (B$(2)) 

N1=VAL (MID$ (AA$ (U-1),5,2)):N2=VAL (MIDS (AA$ (U-1),3,2)): N3=VAL (LEFTS (ARS (U-1),2)) 
O1=VAL (MIDS (AA$ (U+1),5,2)) :02=VAL (MIDS (AA$ (U+1),3,2)) :O3=VAL (LEFTS(AA$ (U+1),2)) 
ZA=(MIF10000) + (M2X100)+M3 

TA= (N1X10000) + (N2X100)+N3 

TB= (01410000) +(0214100) +03 

IF ZA<=TA THEN GOSUB 9200:GOTO 8550 

IF U=PA THEN 8680 

IF ZA>=TB THEN GOSUB 9200:GOTO 8550 

IF VAL(B$(2))<10 THEN B$(2)=ZE$+RIGHTS (B$ (2), 1) 

IF VAL(B$(3))<10 THEN B$(3)=ZES+RIGHT$(B$(3),1) 

AAS (U) =B$ (2) +B$ (3)+B5 (4) +B$(5)+B$(6)+B$ (7)+AV$ 

CLS:X=5:Y=8:GOSUB 11000:PRINT"(1) PARA UNA NUEVA VARIACION": Y=Y+2:GOSUB 11000 
PRINT"(2) PARA GRABAR EN LA CASSETTE" 

X=X+4:Y=Y+4:GOSUB 11000:PRINT"ELIJA" 

S2$=INKEY$: IF S2$<> "" THEN 8735 

X=15:GOSUB 11000:PRINT" ":GOSUB 11000:PRINT"_ " 

GOTO 8720 

S2=VAL (S2$) : IF S2<1 OR S2>2 THEN 8720 

1F S2=1 THEN GOTO 8325 

GOSUB 6500: RETURN 

CLS:X=16: Y=10:G0SUB 11000: PRINT "ERROR!"2FOR I=1 TO 1500: NEXT Il: CLS: RETURN 
CLS: X=10:Y=10:G0SUB 11000: PRINT "ERROR EN LA FECHA !":FOR I=1 TO 1500: NEXT I: CLS:RETUEN 





10000 REM ----- 


10010 REM DATOS 

10020 REM ——— 

10030 DATA "FACTOR DE CRECIMIENTO" 

10040 DATA 6 

10050 DATA "Introduccion de los datos", "Variacion”, "Impresion" 

10060 DATA "Lista personas", "Generacion del sistema", "Gestion tablas" 
10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 

10090 DATA 7,7,0,0,5,7 

10100 DATA "NOMBRE", "DIA", "MES", "ANO", "ALTURA", "PESO", "C. CRANEO" 





10110 DATA 4,6,0,3, 8,10, a 
10140 DATA 1,2,0,3,10,10,10 
10145 DATA 1,2,0,15,10,20,10 
10150 DATA 1,2,0,25,10,30,10 
10160 DATA 1,3,0,11,13,22,13 
10165 DATA 1,4,1,11,15,22,15 
10170 DATA 1,2,0,11,17,22,17 
10400 DATA "NOMBRE", "SEXO", "NACIMIENTO: DIA","MES", "ANO" 
10410 DATA 3,6,0,11,9,18,9 
10425 DATA 3,1,0,11,11,18,11 
10440 DATA 1,2,0,1,15,18,15 
10445 DATA 1,2,0,22,15,27,15 
10450 DATA 1,2,0,31,15,36,15 
10500 DATA "edad ","min","max","min","max", "min", "max" 
10510 DATA 4,2,0,2,7,3,9 
10525 DATA 1,3,0,8,7,8,9 
10540 DATA 1,3,0,12,7,12,9 
10545 DATA 1,4,1,18,7,18,9 
10550 DATA 1,4,1,24,7,24,9 
10560 DATA 1,2,0,32,7,32,9 
10570 DATA 1,2,0,36,7,36,9 
11000 REM —— RS 
11010 REM POSICIONA CURSOR 
LLORO REMESAS E 
11030 LOCATE X,Y 

11040 RETURN 

12000: E: =——_—_—_—_—_—__—_—_—=—= 
12005 REM GENERACION SISTEMA 
12 TO RA === =—_—__ 
12015 LL=1 


12020 GOSUB £000 

12025 LL=0:1F R$="N" OR R$="n" THEN RETURN 

12030 RR=2:GOSUB 7000 

12035 N=0:M=0:G0SUB 2000 

12040 GOSUB 3000 

12045 IF FS=7 THEN RETURN 

12050 IF FS=6 THEN 12090 3 

12055 IF B$(2)="H" OR B$(2)="h" OR B$(2)="v" OR B$(2)="VW" THEN 12065 

12060 GOSUB 9150:GOTO 12035 

12065 IF VAL(B$(3))>31 OR VAL(B$(4))>12 THEN GOSUB 9150:GOTO 12035 

12067 IF VAL(B$(3))<10 THEN B$(3)=ZE$+RIGHT$ (B$(3),1) 

12069 IF VAL (B$(4))<10 THEN B$(4)=ZE$+RIGHT$ (B$(4),1) 

12070 AAS(0)=B$(1)+B$(2)+B$(3)+B$ (4) +B$ (3) +"00"+AV$ 

12075 FI$=LEFTS(AA$(0),13) 

12077 RR=1:GOSUB 7000 

12080 FOR I=1 TO 4:TP(1)=4:NEXT 1 

12085 B$(1)=LEFT$ (AA$ (0) ,6):B3 (2) =MIDS(AA$ (0),8,2):B$(3)=MIDS(AA$ (0),10,2):B$(4)=MID$(AA$(0),12, 
2) z 
12090 M=0:N=0:GOSUB 2000 

12092 Y=4:X=5:GOSUB 11000:PRINT"Atencion, para este registro 

es" 

12095 Y=20:X=5:G0SUB 11000:PRINT" INTRODUCIR LOS DATOS DEL NACIMIENTO" 
12100 GOSUB 3000 

12105 IF FS=7 THEN RETURN 

12110 IF FS=6 THEN 12090 

12115 PA=1 

12120 AAS(PA)=B$(2)+B$ (3)+BS (4) +B$ (5)+B$ (6) +B6(7)+AV$ 

12125 PA$=STR$(PA) : PAS=ZES+RIGHTS (PAS, 1) 

12130 AAS(0)=F 1$+PA$+AV$ 

12170 CLS:X=10:Y=10:GOSUB 11000: PRINT "GENERACION EN CURSO" 
12175 X=7:Y=16:GOSUB 11000:PRINT"Esta version preve un maximo 
12180 X=5:Y=21:G0SUB 11000:PRINT"PULSAR UNA TECLA PARA CONTINUAR" 
12185 R$=INKEYS: IF R$="" THEN 12185 

12190 GOSUB £500 

12195 RETURN 

13000 REM ——- 

13010 REM AYUDA 

13020 REM ——- 

13030 LOCATE 0,22 

13040 PRINT "AYUDA (barra espaciadora para continuar)"; 


no hay previstas variacion 


de 20 introducciones" 


13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
13250 
14000 
14005 


14010 REM 


14015 
14020 
14025 
14030 
14035 
14040 
14045 
14050 
14055 
14060 
14065 
14070 
14075 
14080 
14085 
14090 
14095 
14100 
14105 
14107 
14110 
14115 
14120 
14125 
14130 
14135 
14140 
14145 
14150 
14155 
194160 
14165 
14170 
14175 
14180 
14185 
14190 
14195 
14200 
14205 
14210 
14215 
14220 
14225 
14230 
14235 
14280 
14500 
14505 
14510 
14515 
14520 
14525 
14530 
14535 


GOSUB 13220 

PRINT "FLECHAS: mueven en las 4 direcciones 5 
GOSUB 13220 

PRINT "RETURN: alinea y convalida introduccion "; 
GOSsuB 13220 E z 
PRINT "Fi: vuelve al menu principal $ 
GOSUB 13220 

PRINT "F2: anula teda la introducion “Y 
G0SUB 13220 

PRINT "F3: borra un caracter > 
GOSUB 13220 

PRINT "F4: permite la insercion de espacios 5 
GOSUB 13220 

PRINT "FS: introduccion en cassette $ 
GOSUB 13220 

PRINT " 

RETURN 

A$=INKEY$: IF A$= "" THEN 13220 
IF A$<> CHR$(32) THEN 13220 
LOCATE 0,22 

RETURN 

REA 

REM GESTION TABLAS 


CTRL Y (AYUDA) “; 


COLS: X=8: Y=8:GOSUB 11000:PRINT" (1) GENERACION TABLAS": Y=Y+2:GOSUB 11000 
PRINT"(2) VARIACION TABLAS": Y=Y+2:GOSUB 11000 

PRINT"(3) VUELVE AL MENU": Y=Y+4:X=X+4:GOSUB 11000:PRINT"ELIJA" 
DF$=INKEYS: IF DF$<>"" THEN 14045 

X=18:GOSUB 11000:PRINT" | ":GOSUB 11000:PRINT" 

GOTO 14030 

DF=VAL (DF$): 1F DF<1 OR DF>3 THEN 14030 

IF DF=3 THEN RETURN 

IF DF=2 THEN 14500 

FOR E=1 TO 2 

CLS: GOSUB 7000 
B$(1)="NA":B$(8)="03":B$(15)="06":B$(22)="09":B$(29)="12":B$ (36) ="15" 
B$(43)="18":B$(50)="21":B$(57)="36":B$(64)="48":B$(71)="60":B$(78)="72" 
N=0:M=0:GOSUB 2000 

X=2:Y=4:GOSUB 11000:PRINT NO$(E) 

X=6:Y=Y+2:G0SUB 11000:PRINT"Altura Cm. Peso Kg. C.Craneo Cm." 
GOSUB 3000 

IF FS=7 THEN RETURN 

IF FS=6 THEN 14080 

CLS 

P=0: FOR I=1 TO 84 

FOR I=1 TO 94: IF RIGHT$(B$(1),1)=CHR$(32) OR RIGHT$(B$(1),1)=CHR$(61) THEN P=1 
NEXT 1 

IF P=0 THEN 14135 

GOSUB 9150: GOTO 14080 

K=1: IF E=2 THEN 14165 

FOR 1=1 TO NUC STEP 7 
BB$(K)=B$(1)+B5(1+1)+8$(1+2)+B8$(1+3)+B$(1+4)+B$ (14+5)+8$(1+6) 
K=kK+1 y 

NEXT 1 

GOTO 14185 

FOR I=1 TO NUC STEP 7 

CC$ (K)=B$ (1)+B$(1+1)+B$ (14+2)+B$(1+3)+B$ (144) +B$ (145)+B$ (1+6) 
K=k+1 

NEXT 1 

NEXT E 

CLS: X=3:Y=18:GOSUB 11000:PRINTW1$ 

Y=Y+1:GOSUB 11000:PRINT W2$ 

FOR I=1 TO 1000:NEXT I:Y=22:GOSUB 11000:PRINT WS5$; 
R$=INKEY$: IF R$="" THEN 14205 

IF R$="S" OR R$="s" THEN 14225 

IF R$="N" OR R$="n" THEN RETURN 

IF R$<>"S" OR R$<>"s" OR R$<>"N" OR R$47"n" "THEN 14205 

CLS: X=10:Y=10:GOSUB 11000: PRINT "GENERACION EN CURSO" 
AAS(0)="=":PA=0 

GOSUE £550 

RETURN E 

REM ACTUALIZACION TABLAS 

GOSUB 4000 

IF R$="N" OR R$="n" THEN RETURN 

FOR E=1 10 2 

K=1 

FOR I=i TO 84 STEP 7 

IF E=1 THEN DD$(K)=BB$ (K):GOTO 14540 

1F E=2 THEN DD$ (K) =CC$ (K) 


14540 
),9,4 
14545 
14550 
14555 
14550 
14565 
14570 
14572 
14575 
14580 
14585 
14590 
14595 
14600 
14505 
14510 
14615 
14620 
14625 
14630 
14635 
14640 
14645 
14550 
14655 
14660 
14665 
14670 
14675 
14680 
14685 
14690 
14595 
14700 
14705 
14710 
14715 
14720 
20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 
TO 201 
20130 
20140 
20150 
20150 
20170 
20180 
20190 
20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 
20300 
20305 
20310 
20320 
20330 
20335 
20340 
20345 
20350 


B$(1)=LEFTS$(DDS$(K),2) :B$(1+1)=MIDS (DD$ (K) ,3, 3) : BS (1+2)=MIDS (DD$ (K) ,6,3) :B$(1+3)=MIDS$ (DDs (+ 


B$(1+4)=MIDS (DD$ (K), 13,4) :B$(1+5) =MID$ (DD$ (K), 17,2) :B3(1+6) =RIGHT$ (DD$ (K), 2) 
K=k+1 

NEXT 1 

60SUB 7000 

FOR I=1 TO 84: TP(1)=5:NEXT 1 

:GOSUB 2000 

FOR I=1 TO 84:TP(1)=1:NEXT 1 

FOR I=1 TO 84 STEP 7:TP(1)=4: NEXT 1 

GOSUB 11000:FRINT NOS$(E) 

X=5: Y=Y+2:GUSUB 11000:PRINT"Altura Cm. Peso Kg. C.Cranio Cm." 
G0SUB 3000 

IF FS=7 THEN RETURN 

IF FS=6 THEN CLS:GOTO 14520 

P=0:FOR I=1 TO 84 

FOR I=1 TO 84:1F RIGHTS$(B$(1),1)=CHR$(32) OR RIGHT$(B$(1),1)=CHR$(£1) THEN P=1 
NEXT 1 

IF P=0 THEN 14630 

GOSUB 9150:GOTO 14520 

COLS: X=5: Y=10:G0SUB 11000:PRINT"CUNFIRMA LA INTRODUÉCION ? (S/N)" 
R$=INKEYS: IF R$="" THEN 14633 

IF R$="N" OR R$="n" THEN CLS:GOTO 14520 

IF R$="s" OR R$="S" THEN 14555 

IF R$<>"S" OR R$<>"N" OR R$<>"s" OR R$<>"n" THEN 14635 

CLS: X=15:Y=10:GOSUB 11000: PRINTWAS 

K=1:1F E=2 THEN 14690 

FOR I=1 TO NUC STEP 7 

BB$(K)=B$ (1)+BS(1+1)+B$ (1+2)+BS(1+3)+B$(1+4)+B$ (145) +B$ (1+6) 
K=K+1 

NEXT 1 

GOTO 14710 

FOR I=1 TO NUC STEP 7 

CC$ (K)=B$ (1)+B$(1+1)+B$(1+2)+B$(1+3)+B$(1+4)+B$(1+5)+B$(1+6) 
K=K+1 

NEXT 1 

NEXT E 

GOSUB £500 

RETURN 

REM 

N1=VAL (LEFTS (AA$ (1) ,2)) :N2=VAL (MIDS$ (AA$(1),3,2)) :N3=VAL (MIDS (AA$(1),5,2)) 
FOR I=1 TO PA 

GO=VAL (LEFTS (AA$ (1),2)) :MO=VAL (MIDS$ (AA$(1),3,2)) :AO=VAL (MIDS (AA$ (1),5,2)) 
AP=A0-N3: MP=M0-N2: GP=GO-N1 

IF GP<15 THEN P=0 

IF GP>15 THEN P=1 

ME (1)=124AP+MP+P 

H(1I) =VAL (MIDS (AA$ (1) ,7,3)) 

P(1) =VAL (MID$ (AA$(1),10,4)) 

C(1)=VAL (MID$ (AA$ (1) ,14,2)) 

NEXT 1 

IF MID$(AA$(0),7,1)="V" OR MIDS(AA$(0),7,1)="w" THEN FOR A=1 TO 12:DD$(A)=BB$(A): NEXT A:60 
40 z 

FOR A=1 TO 12:DD$(A)=CC$(A) : NEXT A 

FOR E=1 TO 12 

MT(E)=VAL (LEFT$ (DD$ (E) ,2)) 

HT (1,E)=VAL (MID$ (DD$ (E),3,3)) 

HT (2,E)=VAL (MIDS (DDS$ (E) ,6,3)) 

PT(1,E)=VAL (MIDS (DD$ (E) ,9, 4)) 

PT (2,E)=VAL (MIDS (DD$ (E) ,13,4)) 

CT (1,E)=VAL (MID$ (DD$ (E), 17,2)) 

CT (2,E)=VAL (MID$ (DD$ (E) ,19,2)) 

NEXT E 

FOR W=1 TO PA 

FOR JJ=1 TO 12 

IF ME(W) <= MT(JJ) THEN 20270 
P1S(W=".":P2$(W)=".":P3$(W)=".":GOTO 20400 

REM CALCULA MEDIA 

VH=(HT (1, J3)+HT(2,33))/2 

VP=(PT(1,J3)+PT(2,33))/2 

VC=(CT (1,33)+0T(2,33)) /2 

YJ=12 

IF H(W) > VH+(VHX.05) THEN P1$(W)="+":GOTO 20335 - 
IF H(W) < VH-(VH*.05) THEN P1$(W)="-":GOTO 20333 

P1S(W="mM" 

IF P(W) > VP+(VPX.05) THEN P2$(W)="+":GOTO 20350 

IF P(W) < VP-(UPE.05) THEN P2$(W)="-":GOTO 20350 

P28(W="M" 

IF C(W) > VC+(VC4.05) THEN P3$ (W)="+":GOTO 20400 














20335 IF C(W) < VC-(VCX.05) THEN P3$(W)="-":G0TO 20400 

20360 PIS(W)="M" 

20370 REM 

20400 NEXT JJ 

20410 NEXT W 

20420 RETURN 

205300 REM = 

20510 CLS:X=9: Y=8:GOSUB 11000:PRINT"(1) PRESENTACION EN VIDEO": Y=Y+2:G0SUB 11000 
20520 PRINT"(2) IMPRESION EN PAPEL": Y=Y+2:GOSUB 11000 

20530 PRINT"(3) VUELVE AL MENU": X=X+4: Y=Y+4:GOSUB 11000:FRINT"ELIJA" 
20540 SC$=INKEY$: IF SC$<> "" THEN 20570 

20550 X=19:GOSUB 11000:PRINT" MM":GOSUB 11000:PRINT"  " 

20560 GOTO 20540 

20570 SC=VAL (SC$): IF SC<1 DR SC>3 THEN 20540 

20390 RETURN 


Prog/4 


LOGREN AAA 
13 REM GRAFICOS CRECIMIENTO 
Versione MSX 


15 REM 
18 REM 
20 MAXFILES=3 
21 CLEAR 7000 
22 DEFINT A-S,U-%W 
23 DEFDBL T,Z 
27 Wi$="PREPARE EL GRABADOR APRETANDO":W2$="PLAY Y RECORD":W3$="RREBOBINE LA CINTA Y APRIETE" 
29 W43="ESPERAR":WS$="ESTA PREPARADO? (pulse S para continuar pulse N para volver al menu)" 
30 KEY OFF: WIDTH 40:COLOR 15,4,7 
35 DIM ARAS (20) ,EB$(12) ,C0C$(12),DD$(12),M(2) 
20 DIM NO$(3),ME:(20),HT(2,12),MT(12),MT$(20) ,H(20),S1$(36),A(2,12) 
45 NO$(1)="ALTURA":NO$ (2) ="PESO":NO$ (3)="CRANEO" 
50 X0=15:Y0=10: XM=230: YM=170 
500 GOSUB 6000 
510 IF R$="N" OR R$="n" THEN CLS:END 
520 CLS:X=9:Y=5:GOSUB 11000:PRINT "ELIJA EL GRÁFICO :" 
525 Y=Y+4:X=12:GOSUB 11000:PRINT "(1) ALTURA" 
530 Y=Y+2: 2:GOSUB 11000:PRINT "(2) PESO" 
535 Y=Y+23 ¿GOSUE 11000:PRINT "(3) C.CRANEO" 
537 Y=Y+2:X=12:GOSUB 11000:PRINT "(4) FIN DE TAREA" 
540 Y=Y+4: X=16:G0SUB 11000:PRINT "ELIJA" 
345 V$=INKEV$: IF Vé<>"" THEN 360 
550 X=22:G0SUB 11000:PRINT" M]":GOSUB 11000:PRINT " " 
555 GOTO 545 
560 V=VAL(V$): IF V<1 OR Y94 THEN 545 
562 IF V=4 THEN CLS:END 
565 CLS:X=15: Y=10:GOSUB 11000:PRINTWA$ 
570 B$(1)=LEFTS(AN$(0),6):B6(2)=MID$(AA$(0),7,1):B$(3) =MIDS$(AA$(0),8,6) 
575 B4(4)=MID$ (AA$(0),14,2)3B$ (5) RIGHTS (AA$ (0), 5) :MX=PA 
580 DD=VAL (LEFTS(B$(3),2)) :MM=VAL (MIDS(B$(3),3,2)):AA=VAL (RIGHTS (B$(3),2)) 
590 IF B$(2)="4" OR E$(2)="v" THEN FOR I=1 TO 12:DD$(1)=BB$(1):NEXT:GOTO 600 
595 FOR I=1 TO 12:DD$(1)=CC$(1) : NEXT 
600 FOR E=1 TO 12 
610 MT(E)=VAL(LEFTS(DD$(E),2)):MT$(E)=LEFT$(DD$ (E) ,2) 
$615 IF V<>1 THEN 640 
620 HT(1,E)=VAL (MID$ (DD$ (E),3,3)) 
630 HT(2,E)=VAL (MID$ (DD$(E),6,3)):G0TO 690 
640 IF V<>2 THEN 670 
650 HT(1,E)=VAL(MID$ (DD$(E),9,4)) 
660 HT(2,E)=VAL (MID$(DD$(E),13,4)):GOTO 670 
670 HT(1,E)=VAL(MIDS$(DD$(E),17,2)) 
680 HT(2,E)=VAL (MID$ (DD$(E),19,2)) 
690 NEXT E 
700 FOR RE=1 TO MX 
710 GO=VAL (LEFTS (AA$ (RE), 2)) :MO=VAL (MIDS (AA$ (RE) ,3,2)) :A0=VAL (MIDS (AA$ (RE) ,5,2)) 
20 AP=A0-AA: MP=M0-MM: GP=G0-DD 
725 IF GF<15 THEN P=0 
730 IF GP>15 THEN P=1 
740 ME(RE)=12kAP+MP+F 
745 IF V<> 1THEN 760 
750 H(RE)=VAL(MID$ (AAS (RE) ,7,3)):GOTO 780 
760 IF V<>2 THEN 770 
765 H(RE)=VAL (MID$ (AA$ (RE), 10,4)):GOTO 780 
770 H(RE)=VAL (MID$ (AA$(RE),14,2)) 
780 REM 
782 NEXT RE 
790 GOSUB 12000 
800 SCREEN 2:COLOR 14,4,4 


PA A AAA A II Ez 
AA RR RARA ini cin 












a - 


RR dsd 


860 LINE (13,170)-(231,170),14 

865 LINE (15,101-(15,175),14 

870 FXH=(XM-X0)/72 É 

880 GOSUB 15000 

885 I=1 

890 FYH=INT(YM-Y0) /M(2) 

895 X1=X0:Y1=HT(I, 1)4FYH: Y=Y1 

900 C=1:B=14:FOR J=2 TO 12 

910 X2=MT (3) 4FXH+X02 Y2=HT (1,3) 4FYH 
915 X=X1:A(1,C)=X1:F=14:GOSUB 10500 
920 A(2,C)=Y1 

925 C=C+1 

930 X1=X2:Y1=Y2 

935 NEXT y 

940 I=1I+1:1F 1=3 THEN 950 

945 GOTO 89 

950 GOSUB 10040 

955 Y1=H(2)XFYH: X1=X0: Y=Y1 

960 FOR J=1 TO MX 

970 X2=ME (J) XFXH+X0: Y2=H (J)4FYH 
980 X=X2:A=YM-Y2:GOSUB 10120 

990 REM 

1000 X1=X2:Y1=Y2 

1010 NEXT J 

1200 S$="RETURN PARA CONTINUAR" 
1210 X=240:Y=10 

1220 GOSUB 14000 

1230 R$=INKEY$: IF R$="" THEN 1230 
1240 1F R$<>CHR$(13)" THEN 1230 

1300 FOR I=1 TO 11 

1310 A(1,1)=0:A(2, 1)=0:HT (1, 1)=0:HT (2, 1)=0:MT(1)=0 
1320 NEXT 1 

1330 FOR K=1 TO 20 

1340 ME(K)=0:MT$ (K)="":H(K)=0 

1350 NEXT K 

1350 REM 

1370 SCREEN O: COLOR 15,4,7:GOTO 520 
CU9A FEA: == 

6010 REM CARGA DATOS 

6020 REM -----—---- 

6030 CLS: X=1:Y=18 :GOSUB 11000:FRINT W3$ 
6040 Y=Y+1:GOSUB 11000:PRINT LEFT$(W2$, 4) 
6050 FOR I=i TO 1000:NEXT I:Y=22:GOSUB 11000: PRINTWS$; 
6060 R$=INKEY$: IF R$="" THEN 6060 
6070 1F R$="S" OR R$="s" THEN 6100 
£080 IF R$="N" OR R$= THEN RETURN 
6090 IF R$<>"S" OR R$<>"s" DR R$<>"N" OR R$<>"n" THEN 6060 
6100 CLS:X=15:Y=10:GOSUB 11000:FPRINTWAS 
ó6110 OPEN "cas: TABV" FOR INPUT ASH1 
5120 FOR T=1 TO 12 

6130 INPUT 41,BB$(T) 

6140 NEXT T 

6150 CLOSE $1 

6160 OPEN "cas:TABH" FOR INPUT ASH1 
6170 FOR S=1 TO 12 

6180 INPUT 41,CC$(S) 

6190 NEXT S 

6200 CLOSE 41 

6210 OPEN "cas:RAG" FOR INPUT ASH1 
6220 INPUT *+1,AA$(0) 

£230 PA=VAL(MID$(AA$(0),14,2)) 

6240 IF PA=0 THEN 6280 

6250 FOR L=1 TO PA 

6250 INPUT 41,AA$S(L) 

6270 NEXT L 

6280 CLOSE +1 

6290 RETURN 

56300 REM 

10000 REM 

10010 A=YM-Y 

10020 PSET(X,A),B 

10030 RETURN 

10040 REM 

10060 X=A(1,1)+2:Y=A(2,1)-1:F=14 
10070 Y=YM-Y 

10080 PAINT (X,YN),F 

10100 RETURN 

10120 IF A<10 THEN A=10 

10130 OPEN "GRP*" FOR OUTPUT ASH1 











10140 
10150 
10500 
10505 
10510 
11000 
11010 
11020 
11030 
11040 
12000 
12010 
12020 

2030 
12040 
12050 
12060 
13000 
15010 
15020 
15030 
15040 
15050 
15070 
15075 
15080 
15100 
15110 
15120 
15130 
15140 
15150 
15160 
15170 
15180 
15190 
15200 
15220 
15230 
15240 
15250 
15270 
15290 


15300 
5300 


16010 
16020 
16030 
16040 
16050 
15060 
16063 
16070 
16073 
15080 
16090 
16003 
16100 
16105 
16110 
164120 
14130 
14140 
16143 
16150 
16153 
16160 
16163 
16170 
16180 
15300 
16510 
16520 

16530 
16540 






COLOR 1:PSET (X,A),POINT (X,0):PRINT 4H, CHR$ (£HF9) 
CLOSE 41: RETURN 

A=YM-V 1: G=YM-Y2 

LINE (X,A)-(X2,6),F 

RETURN 

REA ——_———————-— 

REM POSICIONA CURSOR - 

REM ===> 

LOCATE X,Y 

RETURN 

REM RUTINA BUSQUEDA MAXIMO 
M(1)=0:M(2)=0 

FOR I=1 TO 12 

IF HT(1, 1) 9M(1) THEN M(1)=HT(1,1) 

IF HT(2, 1)5M(2) THEN M(2)=HT(2,1) 
NEXT 1 * 

RETURN 

REM 

Y=10 

FOR A=1 TO 10 

LINE (13,Y)-(15,Y),14 

Y=Y+16 

NEXT A 

FOR A=1 TO 12 

X=MT (A) KFXH+X0+1 

LINE (X,171)-(X,173),14 

NEXT A E 
LINE (231,10)-(231,173),14 
Y=10 

FOR A=1 TO 10 

LINE (231,Y)-(233,Y),14 
Y=Y+16 

NEXT A 

HH=1:P=0 

S$="0":X=5: Y=169:GOSUB 16000 
S$="50":X=3: Y=89: GOSUB 16000 
Sé="100":X=5:Y=7:G0SUB 16000 
FOR Wi=i TO 12 

HH=1:MT$ (1)="NA" 

S$=MT% (W) 3 X=MT (W)AFIIRXO+1 1 Y=1 83 
IF W=1 THEN HH=0 

GOSUB 16000 

NEXT W 

C$=LEFTS (ARS (0), 6) 
HH=0:58="GRAFICO EVOLUCION "+NO$(V)+" DE "+08 


IF HH=1 THEN GOSUB 16500: RETURN 
RESTORE 20000 
FOR 1=1 TO 26:READ Si1$(1):NEXT 1 
FOR J=1 TO LEN(8%) 
CH$=MIDS (S$,J,1) 
IF CHS<9CHR$ (32) THEN 16070 
IF P=1 THEN 10165 ELSE 16160 
S=ASC(CH$)-64 
IF 5%<>99 OR S<>22 OR Sc>25 THEN 16100 
IF P=1 THEN X=X+8 
IF 5%>9 THEN 16100 

P=1 THEN X=X-8 





S2$="C1454"+51$ (8) 
DRAM "BM=Xj,=Y;" 


DRAW S24 


1F S<99 THEN 16150 
IF P=1 THEN X=X-3 
IF S=20 THEN Y=Y+6 
IF P=1 THEN 16165 
Y=Y+8:GOTO 16170 
X=X+b 


NEXT y 

RETURN 

REM E 

RESTORE 20270 

FOR I=1 TO 10:READ S1$(1):NEXT 1 
FOR J=1 TO LEN(S$) 

CH$=MID$ (S$,J,1) 


14550 
15360 
16570 
16580 
18370 
15600 
16610 
16620 
16530 
20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 
20330 
20340 
20350 
20360 


S=ASC (CH$) -47 

REM 

REM : 
524="C1454"+515(S) 

DRAM "BM=X; ,=Y3" 

DRAW 525 

Y=Y+8 

NEXT J 

RETURN 

REM 

DATA "U4EZF2D4USL4"": REM A 

DATA "RIE1UIDIG1L2UZR2L2U3LIR3F1D1 "REM B 
DATA "UERALADERA": REM C 

DATA "RIUVELIR2F2D26212":REM D 
DATA "UGRALAD3R2L2D3R4":REM E 
DATA "UGR4LAD3R2": REM F 

DATA "LERALADARIUVZL2": REM G 

DATA "USD3RAU3D6":REM H 

DATA "U6":REM 1 

DATA "R1EZUALIR2":REM J 

DATA "V6D3E3G3F3": REM K 

DATA "U6DAR4":REM L 

DATA "USD1F2D1U1E2UIDA":REM M 
DATA "UEDIRIDIFZDIRIDIUS":REM ON 
DATA "USRADALA":REM O 

DATA "U6RADLA":REM P 

DATA "UARADSLARAH2": REM O 

DATA "USRADILARIF3":REM R 

DATA "R4U3L4U3R4":REM S 

DATA "R2DGU6R2": REM T 

DATA "USDSRALS":REM U 

DATA "H2U4DAF2E2U4":REM Y 

DATA "USDSEZF2U5": REM 

DATA "U1E4UIDIG2F2D1U1H4U1":REM Xx 
DATA "U2H2U2D2F2E2U2":REM Y 

DATA "RALAU1E4UILA": REM 2 

DATA "R2E1UAHIL2GIDAF1H1U1E3":REM 0 
DATA "R4L2U662":REM 1 

DATA "R4LAU1E1R2E1U2H1L2G1 "REM 2 
DATA "HIFIRZE1U1HIL1RIE1U1HIL2G1 "¿REM 3 
DATA "U6G3D1R4":REM 4 

DATA "RIE1U1HILZUZR4":REM S 

DATA "R2E1U1HIL3D2U3E2R1":REM 6 
DATA "U3EZUILAD1 "¿REM 7 

DATA "R2E1U1HIE1UIHIL2GIDIF1R2L2G1D1":REM 8 
DATA "R2E1UAHIL2GIDIFIR2":REM 9 


RELACION PRINCIPALES VARIABLES - PHILIPS VG 8010 


Calendario vacunaciones 
AAS$(«) 


DHS$(x) 
C$(«) 


ist) ) 


=records file 

=fechas cumplidas - no cumplidas 

=usada como apoyo en la impre- 
sión de los datos 


=usadas en la búsqueda 


Data Base médica 


AAS$(+) 
BB$(+) 
JS(«) ] 
1S(«) 
DHS(+) 
CO$ 


=registros fichero vocabulario 
=registros fin de fichero 


=usadas en la búsqueda 


=fechas cumplidas - no cumplidas 
=cadena de comparación 


Factor de crecimiento 


=se memorizan las fechas de la in- 
troducción anterior 
=registros fichero “RAG” 
=registros fichero “TABM” 
=records file “TABF” 
=usada como apoyo en actualiza- 
ción tablas 
=cálculo meses de cada introduc- 
ción 
H(«) =memoriza valor de la circ. cráneo 
de cada movimiento 
P(x) =memoriza valor del peso en cada 
movimiento 
C(x) =memoriza valor de la circ. cráneo 
en cada movimiento 
=memoriza meses de las tablas 
=valores máx. y mín. de altura 


C$(+) 


AAS(+) 
BB$(+) 
CC$(+) 
DDS(+) 


ME(+) 


MT(x) 
HT(+) 


Extensiones y modificaciones 


En esta aplicación, todos los procedimientos de 
búsqueda están estructurados sin tener en cuen- 
ta eventuales problemas de tiempo. En realidad, 
esta lógica sólo puede ser aceptable inicialmen- 
te, cuando los archivos no contienen una elevada 
cantidad de datos. 

Con el paso del tiempo, si el programa se utiliza 
con frecuencia, puede haber ficheros excesiva- 
mente largos para ser tratados de la manera vis- 
ta. En general, la solución más obvia consiste en 
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PT(x,*) =valores máx. y mín. de peso 

=valores máx. y mín. de la circ. crá- 
neo 

=tipo de tabla: Varón-Hembra 

=fecha actual 

TA =fecha anterior 

TB =fecha del siguiente movimiento 

P15(x) 

E) | 

P35(+) 


CT(+,x) 


NOS(+) 
ZA 


=memoriza el signo (- + /) del valor 
de: altura, peso, c. cráneo, a utili- 
zar en impresión 


Gráficos 


AAS(«) =registros del fichero reservado a 
persona 

=registros tablas varones 

=registros tablas hembras 

=usada como apoyo. En DD (Vo H) 
se memorizan los datos de la 
tabla varones o hembras según el 
sexo de la persona 

=contiene la opción elegida (altura, 
peso, c. cráneo) 

=memoriza los meses en que se 
han introducido datos 

=valores máx. y mín. de la opción 
elegida (altura, peso, c. cráneo) 

MT(x) =valor de meses en las tablas 

MTS(x) =fechas de las tablas; p. e. NA-03-06 

H(«) =valor efectivo de las medidas de 
la persona 

=letras del alfabeto redibujadas 

=valor asumido por X e Y para el di- 
bujo de gráficos 

P(«) =contiene el máximo de los máxi- 

mos y mínimos de altura, peso, C. 
cráneo. 


BBS(+») 
CCS(+) 
DDS(+) 


NOS(+) 
MES(+) 


HT (x:,x) 


S15(«) 
A(+,x) 


mantenerlos ordenados según el campo clave, 
con lo que pueden utilizarse subrutinas de bús- 
queda muy rápidas. En este caso específico de- 
be tenerse en cuenta que muchos datos corres- 
pondientes a situaciones anteriores pierden signi- 
ficado y, por tanto, utilidad. En consecuencia, es 
conveniente borrarlos. 

Finalmente, obsérvese que en lugar de borrar 
realmente los datos, es conveniente utilizar un 
nuevo soporte y archivar el anterior. De esta ma- 
nera, los datos más antiguos están disponibles en 
cualquier momento. 





2087 


INTRODUCCION 


Estos programas sirven para ayudar a los chicos 
y chicas en algunas disciplinas escolares. 

Los primeros temas tratados son la Ortografía, la 
Aritmética y la Geografía, de los que se presentan 
algunos ejemplos orientados al grado elemental. 
El software es de tipo «abierto», por lo que puede 
adaptarse a cualquier nivel. Se han previsto otros 
dos programas: Test y el Ordenador para el orde- 
nador, en los cuales puede disponerse de un gra- 
do de dificultad muy elevado. 

Al utilizar los programas de este grupo debe se- 
guirse la misma lógica que en los anteriores. Ini- 
cialmente, para activar el sistema, deben introdu- 
cirse las preguntas que se presentarán al niño y 
las correspondientes respuestas. 

El programa Aritmética es una excepción a esta 
lógica porque, debido a su complejidad, se sumi- 
nistra completo con los datos y, por tanto, ya con- 
figurado. 

Estos programas realizan dos funciones: 


"= Proponer las preguntas y comprobar las res- 
puestas 

" Guiar al usuario en el aprendizaje de la lógica 
de base de la disciplina examinada. 


El primer punto se resuelve utilizando una Data 
Base, más o menos compleja, y el segundo no 
puede generalizarse porque está relacionado 
muy estrechamente con la materia tratada. 

Los programas que siguen están divididos en 
dos grupos: 


1 / Gestión de los cuestionarios, por ejemplo en- 
señanza de la ortografía 

2 / Exposición de una lógica, por ejemplo aritmé- 
tica. 


Abajo se ha representado el esquema lógico de 
principio de este tipo de programas. El flujo está 
dividido en dos «zonas» de competencia diferen- 
te. La primera es la generación del archivo, y con- 
siste en la preparación de las preguntas y de las 
respuestas asociadas; la segunda propone las 
preguntas, analiza las respuestas y proporciona 
el resultado. 

El procedimiento de utilización prevé inicialmente 
la introducción del identificador de quién emplea 
el programa. Este nombre se busca en el fichero 
usuarios, en el que además hay memorizado el 
número de la última pregunta superada. Por tan- 


ESQUEMA GENERAL DE LOS PROGRAMAS DIDACTICOS 


y 


| O 


El programa toma el 
puntero en la última lección 
superada 


Se actualiza el puntero 
del fichero Usuarios 
(pregunta superada) 
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10 


Generación 

archivo. Se introducen las 
preguntas y una serie de 
respuestas, indicando la 
correcta 


«Según el puntero se toman las preguntas 


y la serie de respuestas 


ol 


En caso de 
error, la 
pregunta 
vuelve 

a proponerse 





to, el sistema sabe qué pregunta debe ser la si- 
guiente entre todas las que hay en el archivo. 
La estructura del gráfico de la página 2088, en ge- 
neral, es común a los dos tipos de programas; la 
diferenciación se produce en el interior de los blo- 
ques Coloquio y Error. 

En el primer tipo, cuestionario, se propone una 
pregunta y se espera la respuesta. Después de la 
introducción sigue el diagnóstico y la eventual 
nueva presentación de la pregunta si la respuesta 
es errónea. 

En el segundo tipo, esta fase de preguntas y res- 
puestas se presenta a continuación de la exposi- 
ción de la lógica a seguir. Por ejemplo, en la en- 
señanza de la aritmética, antes de proponer el 
desarrollo de una operación, hay que ilustrar su 
metodología, por lo que en este segundo tipo de 
programas es necesaria una estructura más com- 
pleja que prevea la creación y la gestión de un 
fichero de «explicaciones». 

El procedimiento para el uso de los programas 
didácticos debe realizar dos funciones principa- 
les: selección del nombre del usuario, para recla- 


mar la última lección superada, y presentación de * 


las preguntas con comprobación de las respues- 
tas. La primera función puede obtenerse con un 
sencillo INPUT (y así se ha indicado en el diagra- 
ma), seguido de la comprobación de la existencia 
del fichero (por error de introducción o elección 
equivocada del soporte magnético, el nombre in- 
troducido podría no estar entre los previstos). 
En caso de error, o sea de ausencia del fichero, 
en el vídeo aparece un mensaje, y el programa 
vuelve a pedir el nombre del usuario. En esta par- 
te del diagrama se indica una subrutina «sonido», 
generalmente utilizada al producirse un error. Es- 
ta rutina sólo se facilita a título indicativo, puesto 
que en los listados se ha sustituido por el sencillo 
«beep» o no está. Estas diferencias se deben a la 
necesidad de proporcionar listados generaliza- 
dos, cosa imposible con el generador de sonido, 
que es un sistema muy variable en función de la 
máquina utilizada. Sin embargo, el usuario puede 
introducir su propia rutina de sonido incluyendo 
su llamada antes del diagnóstico. Finalmente, ob- 
sérvese que la elección del nombre del niño sólo 
es para las versiones en disco, mientras que para 
la de cinta debe utilizarse un soporte diferente pa- 
ra cada usuario y resulta inútil buscar el nombre, 
a no ser para comprobar que se ha elegido el 
soporte correcto. 

Después de la introducción del nombre del usua- 
rio y la consiguiente comprobación, en el disco se 
lee el texto de la primera pregunta aún no supera- 
da. El sistema tiene en cuenta, en el directorio, el 
número de la última pregunta superada y, por 
tanto, puede empezar una sesión presentanto au- 
tomáticamente la siguiente. 





La pregunta cargada de la manera indicada se 
presenta en la pantalla, y el ordenador queda a la 
espera de las respuestas. 

A medida que el usuario las introduce se com- 
prueban y, si son correctas, la lección se consi- 
dera superada. 

El sistema actualiza el fichero y, después del 
acuerdo, pasa a la siguiente. 

Resumiendo, las funciones que deben incluir los 
programas de carácter didáctico son: 


" Preparación de los cuestionarios 

" Gestión de las respuestas 

" Generación de los procedimientos ilustrativos 
de la disciplina. 


Preparación de los cuestionarios. La mayor difi- 
cultad para obtener un buen rendimiento de un 
niño es la captación de su atención proponiendo 
temas de estudio en forma de juego. Para esto, el 
ordenador resulta de gran utilidad porque, a dife- 
rencia de un libro, permite la interactividad, invo- 
lucrando más profundamente al estudiante. En la 
preparación de los cuestionarios deben utilizarse 
las capacidades gráficas y sonoras de la máqui- 
na para crear procedimientos y no una simple se- 
rie de preguntas; para ello se han previsto tres 
módulos principales: 


m Gráficos 
m Sonido 
m Texto 


El módulo de los gráficos tiene la finalidad de per- 
mitir la construcción de sencillos dibujos que ilus- 
tran el tema del texto; el de sonido sirve para ha- 
cer más ameno el programa, mientras que la par- 
te del texto, la verdadera finalidad del procedi- 
miento, comprende la presentación de las pre- 
guntas, la introducción de las respuestas y su 
análisis. 


Gestión de las respuestas. En algunos casos 
sencillos basta con indicar cuándo es correcta la 
respuesta o cuándo es errónea, mientras que en 
otros, además de indicar el error, es necesario 
indicar por qué no es correcta la respuesta y, 
eventualmente, los métodos a utilizar para obte- 
ner la adecuada. 


Ilustración del método. Es el procedimiento más 
complejo de toda la aplicación, puesto que re- 
quiere conocimientos del tema específico. A con- 
tinuación se presenta el procedimiento para el 
aprendizaje de algunas partes de la ortografía. 
Utilizando los módulos ilustrados, es posible am- 
pliar el uso a otras disciplinas. Sin embargo, esto 
requiere el dominio completo del tema. 
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ESQUEMA DE PRINCIPIO DEL MODULO DIDACTICO: 
PROCEDIMIENTO DE USO 


y 


La rutina Sonido debe ser 

parametrizada para producir 

sonidos diferentes en las 

diversas situaciones. Los 

parámetros deben implantarse 

antes de la llamada y 


> 
DO_—=3 y S En este programa, 


el mensaje de error 
se obtiene con un sonido y 
la inversión de la leyenda 


y 


El detalle de esta función 
es más complejo que lo 
indicado. Véanse el texto y 
los diagramas de detalle 


Para el detalle del 
desarrollo de esta función, 
véanse el texto y los 
diagramas de detalle 


SI 


> 


Incrementa en 1 el número 
de la última pregunta superada 
Actualiza 
fichero Usuarios 


El programa siempre emplea los mismos 
nombres de los ficheros. Por tanto, 

para utilizar distintos temas, para 

cada uno hay que memorizar los 

datos en diskettes diferentes 
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Ortografía 


El aprendizaje de la ortografía correcta, en parti- 
cular para las lenguas extranjeras, requiere una 
notable atención y frecuentes comprobaciones 
con ejercicios guiados y controlados. 

El procedimiento de Ortografía realiza esta tarea 
ofreciendo diferentes posibilidades, desde la pe- 
tición de proporcionar la correcta asociación en- 
tre vocablos de dos idiomas diferentes, hasta la 
indicación de los nombres de objetos que apare- 
cen dibujados en la pantalla. 

El contenido y la dificultad de los textos los define 
el usuario, que así puede adaptar el programa a 
las necesidades específicas, haciéndolo utiliza- 
ble e interesante tanto a los niños que empiezan 
el aprendizaje de la ortografía, como a los jóve- 
nes que desean «repasar» los vocablos de un 
idioma extranjero. Efectivamente, estructurado 
adecuadamente el ciclo de las «lecciones», pue- 
de obtenerse un desarrollo de dificultad creciente 


Uso del programa 


El tema se desarrolla con dos métodos diferentes. 
En el primero se presentan algunas palabras: el 
niño debe indicar cuáles son las correctas y cuá- 
les las erróneas o cuáles, entre las presentadas, 
pueden asociarse entre sí. El segundo (con gráfi- 
cos) presenta una figura y una serie de vocablos, 
pidiendo cuál de ellos se refiere a la figura mos- 
trada. Pueden utilizarse para aprender el castella- 
no o vocablos extranjeros. 

Un grupo de preguntas identifica una lección, y 
vuelve a proponerse hasta que las respuestas 
son correctas. Es decir, el sistema tiene en cuen- 
ta las lecciones superadas por cada niño, memo- 
rizando la última con resultado positivo. De esta 
manera, los mismos datos pueden ser utilizados 
por varios niños, hasta un máximo de cinco. 

La particular estructura de este tipo de progra- 
mas necesita dos funciones completamente se- 
paradas: la generación de las preguntas y su de- 
sarrollo. Por tanto, se han previsto dos menús. El 
primero sólo debe emplearse para la generación 
del sistema e introducción de las preguntas, y el 
segundo para su utilización. En la segunda foto 
de la página 2092 se presenta el menú de gene- 
ración. La voz 1 (Generación del sistema), prime- 
ra a activar, prevé las funciones. 


= Generación de los ficheros en los que se me- 
morizarán las preguntas, los nombres de los 
niños y los eventuales textos de explicaciones 


que siga la evolución del niño a medida que va 
aprendiendo. 

Otro aspecto de notable interés, porque ayuda 
mucho en el aprendizaje de la lengua estudiada 
en la escuela, es su uso «autodidáctico». 

En el estudio de un idioma extranjero, la mayor 
dificultad consiste en aprender un gran número 
de vocablos. 

Esta actividad no requiere más que un empeño 
constante, la cual puede realizarse con la ayuda 
del ordenador. En este caso es el propio estu- 
diante el que se prepara los tests que deberá su- 
perar después, utilizando la máquina para la ges- 
tión del vocabulario. 

Finalmente, la estructura modular del software 
permite utilizar muchas partes del procedimiento 
para otras aplicaciones, incluso diferentes a la de 
base, e incluso introducir variantes en la lógica de 
desarrollo de los ejercicios. 


" introducción de los usuarios: el sistema pide 
los nombres de los niños que utilizarán el pro- 
grama, para poder memorizar después para 
cada uno la última lección superada 

"Introducción de datos: en esta fase se introdu- 
cen las preguntas y las correspondientes res- 
puestas, con un método que depende de la ló- 
gica elegida entre las previstas, o sea: 

— Comprobación ortográfica de 10 vocablos 

— Comprobación asociación vocablos presenta- 

dos. 


La máscara vídeo para la introducción de pre- 
guntas, la selección del método y la indicación de 
las respuestas es común a todas las funciones, y 
sólo varía el valor numérico a asociar al vocablo. 
En base a este valor (flag), el sistema reconoce el 
tipo de pregunta e indica la lógica que debe se- 
guirse en cada caso. 


m El valor 1 es respuesta correcta, y el O errónea 
HE Para la asociación con presentación se usan 
valores entre 1 y 10. 


En la tercera foto de la página 2093 se ha repre- 
sentado la máscara utilizada para la primera ver- 
sión (ortografía). Su uso consiste en escribir 10 
vocablos indicando, para cada uno, si es correc- 
to (1) o erróneo (0). Durante la utilización del test, 
al niño se le presentan los mismos vocablos, de 
los que deberá indicar los correctos. En la tabla 
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de la página 2129 se ha representado un ejemplo 
de la segunda forma de uso: a los vocablos ante- 
riores (escritos en la forma correcta) se han aña- 
dido las traducciones en castellano. En este caso, 
al preparar el test, debe indicarse la correspon- 
dencia para cada uno. En la lista, los vocablos 6 
a 10 son las traducciones de los ingleses 1 a 5, 
y el indicador señala cuáles son las asociacio- 
nes entre ellos. Por ejemplo, «brass» tiene como 
traducción castellana «latón», por lo que debe 
asociarse al vocablo que tiene el valor 9 como in- 
dicador. 









Main general. El procedimiento Ortografía está dividido 
en cuatro programas que realizan por separado las 
funciones de creación y gestión de los archivos que 
contienen las preguntas. Para agilizar el uso de cada 
programa se ha previsto un módulo de carga con el que 
lanzar el programa deseado. 


le presentan las preguntas sólo utilice los programas de 
desarrollo de las lecciones (números 3 y 4 de la foto). - 


Generación lecciones con sólo texto: menú. El primer 
programa sirve para la creación de los archivos que 
contienen las lecciones, y prevé la introducción en el 


no sólo correspondientes a la correcta ortografía de los 
vocablos, sino que cada presentación corresponde a un 
tema general al que se refieren las 10 preguntas. 

La primera función del menú (Generación del Sistema) 
también es la primera que debe activarse si el diskette 
que va a contener los datos nunca se ha utilizado 
anteriormente. 





Generación del sistema. La Generación del sistema se 
utiliza para preparar un nuevo diskette de datos: la 
primera operación realizada en esta fase es el control 
sobre la existencia o no de los ficheros datos (esta 
comprobación se hace para evitar la pérdida de 
eventuales datos introducidos anteriormente en el 
diskette). 

Una vez creados los ficheros datos en el soporte, se 
introducirán los nombres de los cinco usuarios que 
utilizan las lecciones de este diskette datos. El último 
paso de la Generación es la introducción de las 
lecciones, cuyo número siempre se establece en esta 
fase y se introducen en secuencia. Después sólo será 
posible efectuar correcciones en las lecciones 
introducidas en la Generación y no posteriores 
introducciones. 


Con esta subdivisión puede hacerse que el niño al que se 


disco únicamente de vocablos. Este programa es el más 
indicado para el uso general: pueden insertarse lecciones 


El segundo método utilizado en los programas 
dedicados a la ortografía se vale de una subruti- 
na gráfica para presentar el dibujo de un objeto y 
varios nombres. El niño debe indicar, entre los 
presentados, el que corresponde al objeto mos- 
trado. En la primera foto de la página 2095 se ha 
representado el menú de generación de pregun- 
tas y respuestas y, en la siguiente, un ejemplo de 
uso. La presentación de la máscara que aparece 
durante la introducción de usuarios se ha omitido 
en este caso porque es idéntica a la del progra- 
ma anterior. 


INTRODUCIR EL NUMERO CORRESPONDIENTE 
AL PROGRAMA DESEADO 








> GENERACION LECCIONES SOLO TEXTO 

AAA AA AREAS 
GENERACION LECCIONES CON GRAFICOS 
DESARROLLO LECCIONES CON GRAFICOS 
AIR 








a 
Int 
Introduccion 


0- Fin de tarea 


un, 
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Introducción del texto. Siempre en el programa de 
creación de los archivos de lecciones con sólo vocablos, 
es posible introducir un texto explicativo que podrá ser de 
orientación para el niño durante el desarrollo de las 
lecciones. 

Este texto es común a todas las lecciones introducidas en 
el diskette datos, y está constituido por dos 
presentaciones en pantalla consecutivas de 20 líneas x 
35 caracteres cada una; durante el desarrollo de las 
lecciones podrá pedirse en cualquier momento. 


Corrección datos. La voz 2 del menú permite efectuar 
variaciones en lecciones introducidas en la fase de 
Generación. Una vez el usuario ha introducido el número 
de la lección a variar, ésta se lee en el disco de datos 
(cada lección está formada por 12 registros) y se 
presenta. A través de la data entry es posible aportar las 
necesarias modificaciones e introducir la lección variada 
en el fichero datos en el mismo registro lógico de origen. 
La lección pedida se presenta en pantalla y es posible 
variar cada una de sus partes: en el campo Preguntas se 
ha insertado el tema principal al que se referirán los 10 
vocablos que constituyen la lección. En el campo 
indicador se insertarán los siguientes valores numéricos: 
1 identifica la condición de veracidad. 

0 : identifica los vocablos erróneos 

1 = 10: utilizados para las asociaciones. 





La corrección de los vocablos correspondientes a la 
lección a modificar se realiza después de la corrección 
de la figura. , , > 
Aparece la leyenda de ayuda, con lo que quedan ——— Correcciones datos 
disponibles todos los comandos de la data entry. y DAS 


XA AL PA 


regunta raducce 


INDILADURK 


Menú desarrollo del texto. Las funciones utilizables 
durante el desarrollo de las lecciones se relacionan en el - REPEA diciones Forum, S.A. 
menú principal del programa de utilización de las ORTOGRAFÍA (solo texto) 
pruebas con sólo vocablos. > AAA 
La primera voz, Presentación del texto, puede ser 
activada por el niño si éste desea leer las notas 
explicativas que le serán útiles para comprender el tema 
general de la lección. 
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Lista usuario. Mediante la lista usuario, voz 2 del menú 
principal, en el diskette se leen los datos y los nombres de í E-.G.S. Ediciones Forum, 

los cinco niños a los que se ha reservado dicho soporte Lista usuarios) 
magnético. Los nombres se presentan en pantalla junto al TITAN ATACA RETO 
número de la última lección superada, para tener así en dao ima ste coto nO Roads 
cuenta en cualquier momento el nivel de preparación o el ZA 
grado de aprovechamiento de los cinco niños que  * 
realizan las lecciones. 


Jl AS 


David 





Desarrollo lecciones. Las lecciones introducidas en la 
fase de Generación del diskette datos pueden ser voz 3 LA ARCA RA 
realizadas individualmente por cada uno de los cinco Desarrollo lecciones 
usuarios. Para ello, el programa pide qué usuario va a NARNIA VETO PCD 

realizar la lección, el nombre introducido se comparará 
con los cinco que hay en el archivo y, una vez localizado, 
se leerá el número de la última lección superada por INTRÓDUCIR EL NOMBRE 
aquel nombre. e 

En el caso de la foto, el nombre introducido es Teresa, y la 
primera lección a realizar es la número 3 del archivo 
porque (como puede leerse en la Lista usuarios) Teresa 
ha realizado correctamente las dos primeras lecciones. 


METE" 


AYUDA) 


Una vez identificado el nombre del usuario pedido, el 


programa pasa a leer la primera lección que todavía debe » y E CARA 
realizar. Se presentan el número de la lección y el tema az Desarrollo lecciones! 
tratado, así como los 10 vocablos, y a través de la data : A 
entry, el programa espera la introducción de las LECCION 3 Tena Mami feros 


respuestas. Estas se compararán con las previstas en la JOCABLO) JERD./ FALSO 
fase de Generación y, según la igualdad o no con ellas, y 
se presentará el mensaje de lección superada o de error. 





Para la introducción de las respuestas, el niño interrogado 


utiliza la data entry: así le es posible escribir palabras en voz 3 APARTE TA 

lugar de los valores introducidos en la fase de l Desarrollo lecciones 
Generación. EAT ACTOS Sa 
Para ello se tienen las igualdades: A A 


«Verd.» = valor 1 en la Generación DULABLO YERD. /FALSO 
«falso» = valor O en la Generación Q 

Los valores útiles para las asociaciones, comprendidos 
entre 1 y 10, deberán introducirse exactamente iguales a 
los previstos en la Generación. 
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A q _ _E__Á>E> AMM >=>HmHA o 


i 

Generación con gráficos: menú. El programa de 
generación de las lecciones con figuras también prevé un 
menú con el que seleccionar la función deseada. 

En la fase de introducción de las lecciones se crearán los 
dibujos (sprites) con los vocablos a asociar. Además es 
posible la corrección de las lecciones. Al igual que en el l AS A 
programa de Generación con sólo texto, también hay un ' 
texto explicativo sobre la orientación general de todas las 
lecciones que hay en el soporte magnético. 


AAA 
CIA AI 
ATA AAA 
E E 


Introducción lecciones. Se ha seleccionado la voz 4 del 


| menú principal; la primera introducción es la del sprite 567890123456 7890123: 

| que constituirá la figura de la lección. E 3 PUMA LEO 
Los comandos para la creación del sprite son: 5 
CRSR UP = mueve el cursor arriba (1) e 
CRSR DOWN = mueve el cursor abajo (1) y 
CRSRLEFT  = mueve el cursor a izquierda (.-) E AE 
CRSR RIGHT = mueve el cursor a derecha (-.) E DINA 
| = ¡ilumina el punto en que hay el cursor. A O 
A = apaga el punto en que hay el cursor. 0 
R = graba los datos correspondientes a la Pl 

| figura en el disco. e 

| E = vuelve al menú principal (anulando la a 

| introducción). ul 


Una vez construida la figura que ilustrará las lecciones, el 
usuario ha introducido los cinco vocablos en la parte 
reservada al texto. 

Para indicar cuál de los cinco vocablos es el correcto, se 
ha introducido el número 1, mientras que el número O 
indica los vocablos erróneos. 





LIS 
10] 
Garden 
EE! 
A A IS 


¡A 1 AS 


Corrección lecciones. Seleccionando la voz 2 del menú 
principal es posible aportar variaciones a los datos de 
cualquier lección introducida anteriormente. 

La lección a modificar se leerá en el disco datos y se 
presentará al usuario: para una rápida identificación en el 
archivo se pide el número de la lección, comprendido 
entre 1 y el número de la última introducción (leído en el | OE 
primer registro del fichero datos). ; A SEA 











Durante la modificación del sprite de una lección ya 
introducida, se dispone de los mismos comandos 
descritos en la fase de introducción. 
El sprite original se presenta en el ángulo superior 
derecho para ofrecer al usuario el tamaño natural de la 
figura insertada en la lección. 
menu 
EE 


ME 
cintroduce 


Al mismo tiempo que el sprite se presentan el texto (o sea 
las preguntas) y los valores de los punteros para aportar 
las eventuales modificaciones. 


PE 


LLE 
Balon 
Trucha 
L1ave 


e 


Desarrollo gráficos: menú. Las funciones previstas por 
este programa son idénticas a las realizadas por el 
programa de desarrollo con sólo texto. Activando la voz 1 
es posible leer el texto ilustrativo de las lecciones: la Lista 
de usuarios en cambio es útil para conocer el nivel de 5 
aprovechamiento de los 5 niños a los que se ha reservado A AS 
el diskette datos. Sa UFUANÍOS 


MATIC IAS 
Fin de tarea 





Desarrollo lecciones. Una vez introducido el nombre del 
usuario que se quiere consultar (uno de los cinco 
introducidos en la Generación), se pasa al desarrollo de 
las lecciones, empezando por la primera no solucionada. 
En la parte de arriba a la izquierda se presenta el nombre 
del niño que está realizando las pruebas. El ángulo de 
arriba a la derecha se reserva para la presentación de los 
mensajes de error o de respuesta correcta. 


ATT 
Igual 
E 


CECI 
LITA 








a a sa 


2096 





EXE A 
Ortografía / Versión Commodore 64 


Main 


ES AS 

MAIN GENERAL ORTOGRAFIA * 
REN errar de rave oneo 
POKE'3228,6:POKES3281,6'POKEESO, D:PRINTCHR$(1423CHR$(8> 
¿PRINT"IBRRRDDAOBA A ORTOGRAFIA ":PRINT 

PRODUCIR EL NUMERO CORRESPONDIENTE" 

PRINT"IRBABBARIAL PROGRAMA DESEADO" 
PRINT" MARES 41 OM GENERACION LECCIONES SOLO TEXTO" 
PRINT"MRESC2CENN DESARROLLO LECCIONES SOLO TEXTO" 
PRINT"MNRFSOSREON GENERACION LECCIONES CON GRAFICOS" 
PRINT"MIREXCMEON DESARROLLO LECCIONES COM GRAFICOS" 
PRINT"MIBRICADON FIN DE TAREA" 
INPUT "HIUDIIABICUAL : ";R 
IFR=OTHENPRINT"01":END 
IF R<1 OR R)4 THEN 40 
PRINT"TIMITIUNIDINA"SPCC4) "ESPERAR LA CARGA. POR FAYOR" 
ON PR GOTO 109,240,300,409 






100 PRINT"*RPOKE43, 1:POKE44,2:POKE45,3:POKE46,8:POKE47,3:POKE42,9" 
119 PRINT"POKE49,3:POKESO, 8: POKE4096,0:LOAD"CHR$(34)"GT"CHRF(34)",8" 
124 GOTO60M 

200 PRIMNT"*EPOKE43, 1:POKE44,2:POKE45.3:POKE45,2:POKE47, 2:POKE42, 8" 
210 PRINT"POKE49, 3:POKESO, 8: POKE4096.0:LORAD"CHR4(24) "UT"CHRF(24)",8" 
228 GOTOG60a 

200 PRINT"*POKE43, 1:POKE44,2:POKE45,3:POKE46,8:POKE47,3:POKE48,8" 
538 ANA A ADAC COAST OO CARGO) 8 
400 PRINT"*REPOKE43, 1:POKE44,9:POKE45,3:POKE46,8:POKE47,3:POKE48, 3" 
410 PRINT"POKE49,3:POKESA, 2: POKE4996.0:LOAD"CHR$(34)"UG"CHR$,34)",8" 
600 POKE192,10:FORL=6317T0640 : READN:POKEL, N:NEXT 

610 ÓN 


1001 REM NOMBRES DE LOS PROGRAMAS EN EL DISCO: 


1002 PEM GT 
1004 REM WT 


GENERACION SOLO TEXTO 
USO SOLO TEXTO . 


1005 REM 66 = GENERACION CON GRAFICOS 
= 


1006 REM UG 


GT 


USO COM GRAFICOS 


A TN 

DIM ESc30),TPC800,LCC80), NICO), CRC), 010200, 00259, 0125), H$012) 
DIM TFC15),D3(25), 40420), FIGCD LEC) 
FI$c12="DATOS":FI$C2)="TEXTO” :FI$C3)="NOMBRES":LF(1)=18:LF(20=35:LFC3O= 
BL$=" me :PD$=". ”: ¡AS$="- e :NS5= Bn sus="m": GIU$="p": HOs="": SL$="/J" 
US$=CHR$F (133) :NV=5:%C=7:YC=6:S2=2:POKE 650,128 

PRINTHOS : GOSUB1300:PRIMNTHOS:PRINTCHR$(142):REM dk MENLI” 4% 

IF 0P2=5 THEN CLR:LOAD"ORTOGRAFIA".8 

GOSUB20000 

FOR I=1 TO 15:READ TFCI): NEXTI 

FOR I=1 TO 12:READ H$<1):NEXTI 


1268 ON OPZ GOSUE 12000,5000, 2000, 14009 

150 GOTO 26 

A AS 

1301 REM + MENU PRINCIPAL * 

1302 RENA AAA AAA ARA IA 

1303 L'=-1:POKES2201,6:POKES2280, 14 ; 
13905 Ug=" SEN ":0P2=8:V0F(OPZ3=" PMA (GENERACION ":GOSUBE 7000 
1309 0P2=1 

1315 55=53248:POKES3+21.1:P0KE2040, 139 

1316 RESTORE 

1318 FOR 1=0 TO 62:READA:POKES32+1+ 11: NEXTI 

1321 POKESS+39,1:C1=50:C2=111 

1323 GOSUE 1362 

1324 GOSUB 12326 

1327 GET OP2$:1F 0PZ$="" THEN 1327 

1333 IF OPZ$=GIU$ THEN C2=02+16:0P2=0PZ2+1:GOSUB1362 

1336 IF OP2$=SU$ THEN C2=C2-16:0P2=0P2-1 :GOSUB1363 

1329 IF OPZ$=US4$ THEN 1321 

1342 IF ASCCOP23=25 THEN GOSUB 1456:G0TO1395 

1345 GOTO 1327 


1363 


1269 
1372 


1375 


REM 4 

IF C2<111 THEN C2=C2+16:0P2=0P2+1 RETURN 
IF C27175 THEN C2=C2-16:0PZ=0P2-1 : RETURN 
POKESS.C1 :POKESS+1,C2 

RETURN 


2 REM xx 


AEXC : 1=OPZRSZ+ WC 

GOSUB 11000 

PRINT" 3" ;YOLCOPZ> 

FOR T=1 TO 1060:NEXTT 
POKESS+21, PEEKCSS+21 AND254 


3 RETURN 


REM 
FOR J=1 TO NV:READ VOS$C(J):NEXTJ 
FOR II=1 TO NY 


8 A=%C: Y=I1MS2+ WC 


GOSUB1 1000 

PRINT"a";VOS$C11> 

NEXT II 

RETUPH 

DATAO,0,9,0,76,0,0,144,0,3,232,B 
DATA4,64,0,3,143,252.17,112,2,224,129.252 
DATA9,63,0,0,65,0,0,63,8,8,31,0 


DATAB.33,0,9,31.0,224.63,8,16.,21,0 
DATA15,38,0,0,0.0,0.9,0,0,0,0,0,0,0 
DATA"1- ¡|ENERACION DEL SISTEMA" 
DATA"2- RRECCIONES DATOS" 


8 DATA"3- «NTRODUCCION TEXTO" 


DATA"4- —ORRECCIONES TEXTO" 
DATA"B- —IN DE TAREA" 
REM q AYUDA MENL TN 


59 PRINTCHR$(147) :PRINTCHR$" 


POKESS, 255: POKESS+1,115: POKESS+39, 6 


 POKESS+40,€ -POKESS+41,6 


POKESS+21,7:POKE2040, 13:POKE2041,14:POKE2042,15:POKESS+29,4 
FORN=9T062:READO : POKES32+N, 0 :NEXTH 
FORN=4T062:READO : POKE296+N, 0: NEXTN 


7 FORN=ÓT062 READO : POKE960+N (1: NEXTN 


POKESS+239, 1:POKESS+40, 1:POKESS5+41,1 

POKE 53281.6 

PRAT NAAAA——— 0  A AAAAAAAAAAAAAA " 
FOR I=1 TO 15:PRINT"MI 

een T - - —_—_>=2 


5 PRINTCHR$(19) :PRINTTABO?) "MENA AA O TL 


POKESS+2, 255: POKESS+3. 145:POKESS+4,245:POKESS+5, 190 
PRINT"NIBBEDESPLAZA ABAJO: " 
PRINT"NIBBDESPLAZA ARRIBA: " 


7 PRINT"MBMINTRODUCE OPCION ELEGIDA: " 


PRINTTABCI) "MITA" A 1 TALA AA DO ALA 
GET R$: IFR$=""THENIS13 


9 POKESS+29,6:PRINT"01" ¿RETURN 


DATA3, 255, 192,12,8.22,16,16,16.232,56,2,32,108,8 
DATAG4,40,4,64,48,4,64.0,4,93,206,228,81,72,164 
DATAS1,206,228,81,66.164,93,46,142,64,0,4 
DATR64,40,4,64,40.4,32,102,2,32,56,2,16.16,16 
DATA12,0,32,3,255,192 
DATA3,255,192.12,0.32,16,22,16,32,120,9,32,192,8 
DATR64,120,4,64,22,4,£4,0,4,93,206,228.81,72,164 
DATAS1,206,228,81,66,164,93,46,142,64,0,4,64, 16,4. 


2 DATAG4,120,4,32.12.2,22,120,8.16,16,16,12,0,32,3.235,192 


DATAG.0,0,7,255,224,24,0,24,96,8,6,122,0,1,129,1, 123 
DATA124,131,129,132,2,129,132,8,129,142,0,129 
DATA132,8.129,122,0,129,132,0,129,128,9,1,96,9,6 
DATA24,8,24,7,255,224,0,8,0,9,0,0,9.8,0,9,0,M 

137 FIN DEL MENU PRINCIPAL 


REM 4 PRESENTA MASCARA ae E 
FORI=1TODS:X=DXC1)>:Y=DW(1>:COSUB11900:PRINT"A"DFCTO :MEXTI 
FOR J=1 TO NUC  - 

As="" 

IF TPCJ<OS AND TP(J)(54 THEN 2060 


1; HEXTI 


2054 X= E Y=CYCJ):GOSUB11090:PRINT"A"5BSCJ> 
2056 GOTO 2138 

2069 MisLC(J>:M2=NDCJ>:1F TPCJ)=1 OR TPCJ)=2 THEN C$=NS$:GOTO2070 
2069 C$=A54 

2070 FOR I=i TO M1-N2-1:A$=A4+C0$:MEXTI 

2075 IF N2=8 THEN A$=A$+C$:G60TO 2095 

2080 AS$=A$+PDS 

2090 FOR I=1 TO N2:Af=A$+"0": NEXTI 

2095 X=CXCJO YC CJ) :GOSUB 11000 

2096 PRINT "M';Af;"a" 

2097 BS ="" 

2098 FOR K=1 TO Mi-N2-1 

2100 PSCJ =BSC JONES 

2105 NEXT K 

2106 IF H2=D THEN B+cJ)=B+CJ)+NS$:GOTO 2130 
2110 ESC J)=BSCJ3+PDS 

2120 FORK=1T0H2:B4(¿J)=B$(J)+N58: NEXTK 


2010 REN 4* DATA ENTRY 4% 
=1 

MO=J:M=CHONCO :Y=CWENC 

CC=1 


2050 
60 GOSUB 3240 
IF F5=9 THEM RETURN 
IF FS=A THEN 3109 
IF FS>4 THEN 3210 
GOTO 3120 
REM CARACTER 
J=J4+1:1F JONUC THEM 3030 
GOTO 3044 
OM FS GOTO 2130,3150.3170.3190 
IF 351 THEN J=J-1:G0TO0 3040 
FS=0: J=HUC:GOTO 3040 
IF OJZMNUIC THEN J=J+1:GOTO 3040 
F3=0:GOTO 3030 
IF CCXLOCJO THEN S*1:0C0=CC0+1 02241 0G0SUB 11006:G0TO 3060 
Fs=B:G0TO 3190 
IF CC>1 THEN S=-1:CC=CC-10=%-1 :GOSUB11000:GOTO 23060 
Fs=8:60T0 3048 


REM 

IF FS>8 THEN FS=0:GOTO 3069 
IF FS=2 THEN FS=B:GO0TO 3100 
RETURN 


REM 
REM ke LECTURA DE 1 CAMPO 4% 
FS=0 


IF TPONCI=4 THEM RETURN 

IF TP(NCO=2 THEM GOSUB 9800 :RETURN 

IF MIDSCESONCI, OC, 19=PDF THENM2=%+S:CC=CC+S 

GOSUE 11004 

GET A$:IF A$<7"" THEN 3332 
GOSLIB11000:PRINT" de"; ¿GOSUB11000:PRINT"A"¿MIDECEFCONCI, CO. 15 
FOR T=1 TO 20:NEXT T 

GOTO 23330 
TFASCCAS>)=190RASCCAS)=200RASCCAS=1470RASECAFI=14280RASCCAF)=44 THEN 3330 
PRINT"MA"; As; 

CASASCLAR> 

FOR I=1 TO 15 

IF TF(IDD=CA THEN FS=1:1=15:GOSUB3E30:RETURH 

IF FS=3 THEN RETURN 

HEXTI 

IF TPCONCI<S1 THEN 3450 

IF CA=45 OR CA=46 ORCCAS>=4BANTICAL=575THEN3420 

GOTO 3330 

IF CAC>46 THEN3450 

GOSUB 4278 

IF SHP=1 THEN 3410 

S=1:G05UE 3528 

IF CO=LCCONCO THEN RETURN 

EC=CC+102=4+1:G0T0 3310 

REN 

FEM 44 TRASFERENCIA AL BLUIFFER 4x* 

REM 

IF CC=1 THEN SH$="":GOTO 3590 

SN$=SLEFTSCPGFONCI, CC-15 

IF CC=LC(NC> THEN DES$=" 




























































¿COTOS610 


23610 BSCNCI=SNS$+AF+DEFS 
2628 RETURN 


REM 
2630 REM 4% COMANDOS 4% 


2 RE! 

2680 IF FS>5 THEN 37109 

3708 RETURN 

2719 IF FS=2 THEM GOSUB 13000:RETURN 
2720 IF FS=8 THEM GOSUB 4080: RETURN 
3723 IF FS<8 THEN RETURN 

3730 ON FS-9 GOSUB 3740,3919 

3735 RETURN 


REM 
3745 a 4% THSERCION ak 


3778 E CCsSLCCHCITHEN RETURN 

3728 IF CC=1 THEN SN$="":GOTOSSB9 

23796 SN$=LEFTS$(BF(NC).,CC-1) 

3800 N=LC:NC)-CC+1 :DES=RIGHTSCBSONCI ¿NM 
3820 C$=PL$ 

23830 AS$=3H$+C$+DE$ 

3040 ESCNCI=LEFTSCAR,LOCNCIO 

3950 XX=X: Ya 

3860 X=CXUONCO :W=CYENCI:GOSUE 11000 
3870 X=XX:Y=Y 

3880 REM 

2990 PRINT BS$(MC>:S=-1 

3900 IF RIGHTS$(ES$C(NCI,1)=PDS THEN 3780 
3905 RETURN 


REN 
3919 REM 444 BORRADO Ho 
REM 


3930 IF TPONCICO1 THEN 23950 

3940 IF MIDSCBSONCI,2,19=PDF AND CC=1 THEN RETURN 
3950 IF CC<1 THEN RETURN 

3969 IF CC=LCCNC) THEN DES$="":GOTO 3930 
3979 N=LCONCI=CCO:DES=RIGHTECBFONCA, NO 
3980 SH$=LEFTS$C(BS$CNC)/CC-1) 

3990 IF TPONC=1 OR TPONCI=2 THEN C$=NS$:GOTO 4010 
4000 C$=AS$ 

4010 BSCNC>=SNH$+DE$+0S 

4020 X=: ="Y 

4030 X=CXCNCO =CYONCO :GOSUB 11099 

4040 X=%4:1=pY 

4050 PRINT BS$(NC2:S=1 RETURN 

4050 REM da ALINERDOS RR 

4024 IF LCOCNCI=1 THEN RETURN 

4085 Ni=LC(NC>-CC+1 

4087 IF CC=1 THEN BS(NCI="": G0T04108 
4090 BSONCI=LEFTECBFCHCO.CC-10 

4100 IF TPNC>=1 OR TPONCI=2 THEN 4150 

4110 FOR i=1 TO Ni 

4120 ESCNC>=BF(NCI+BLS 

4138 NEXT 1 

4140 GOTO 4190 

4159 FOR I=1 TO Mi 

4160 ESONCI=CHRSCO3ZI+BLCHCI 

4178 NEXT 1 

4130 IF RIGHTS(B4CNCI,13=PD% THEN PSCNC=BLS+LEFTSCBGEONCI O LOCNCI=1) 
4190 X=CX(NCA:Y=C CNC GOSUE 11460 

4218 PRINT B$(NC> RETURN 

4290 SHUP=0 

4300 IF CC=1 OR CO=LCONC THEN SHP=1 : RETURN 

4310 FOR I=1 TO LC(NC> 

IF MIDSCBECNCA, 1. 15=EBL% THEN I=LCCNCA :SWP=1 RETURN 

NEXT I:RETURN 

REM 

REM 44% CORRECZIONES DiTOS 4$% 

2 PRINTHOS :COSUB 7408 

3 4=7:Y=11:GOSUB11000:PRINT "QUE LECCION" 
X=7:Y=13:GOSUB11900: INPUT "SE QUIERE VARIAR";HL+ 

IF HL$=CHR$C(135 THEN 5005 

NL=VYALCNLSES: IF NL<=6 OR HL>104 THEN san 
X=7:Y=11:G05UB11000:PRINT " 

X=? :=13:G0SUB11000:PRINT " Ñ 
B=2:RI=1+12%(NL-1):RF=RI+11 

NF$=F1$(1) : GOSUBGARA : GOSUEG200 

PA=R]I : GOSUBED0D : INPLUITR1.A-BS.CD:1F A=59 THEN CLOSE1 :CLOSEZ2:GOTOSOBZ. 














5014 FOR PA= RE TO NES 









¿OSUE 7049 
(Da TPB PIC P2=C 3) NUO=21 

EP2 

HTPC =TP (25 TPC I+19=TPC3) 


5033 NDCI3= DC2) MDCIA1o=ND 

50:34 CXCIO=CRC2I CRC I ALLA CD) 

5035 Cc =P1: Ci I+10=P2 

5037 MEXT 1 

5044 GOSUBZ2004 

5041 FOR K9=3 TO 21 STEP2:TP(K9)=1: NEXT K9 

5042 GOSUE30BA 

5044 IF FS=6 THEN 5044 

5045 IF FS=3 THEN 5042 

5046 IF FS=7 THEN GOSLIER400: GOSUESEOO : RETURN 

5047 AAS=F1$+B$01):PA=SRT :GOSUBESAD:PRINTRZ, ARAS 
E=2 


5059 FOR W=RI+1 TO RF-1 

5032 AAS=ESCBI+ESCB+ 10 

5054 FA=1:GOSUBGS0O 

50056 PRINTRZ, ARS 

5058 E=B+2 

5060 NEXT bl 

5065 GOSUBE4B0: DOSLIBG60A 

5070 4=7:Y=21 :GOSUB11000:PRINTURNI A A A O CREO 9 
5072 GETR$: IFR+=""THENSO72 

5074 IF P$="N" THEN RETURN 

5076 IF reos" THEN 5072 

5073 4=7:4=21:G0SUB11000:PRINT" ee 
5020 TE 5000 











e RETURN 


6201 Ren APUNTA AL REGISTRO 

SN o e 

6805 Ri=PA:R2=0 

6510 IF R1>256 THEN R2=INT(PA/256):R1=R1-2564R2 
6315 PRINTR1,"PUCHRSC3+ IE I)CHRECRIOCHRECRZICAREC1O 
6328 RETURH 

6825 REM 

6968 REM CONTROLES SOBRE LOS FICHEROS 

6905 GOSUB 560900 :GOSUB 6200 

6910 INPUTH1,A.E$,C,D 

6915 GOSUB 6404: GOSUE 6609 

6330 RETURN 

rana REM 

YOB1 REM ade CAGA LOS DATA 444 

7002 IF OPZ=5 THEN 7006 

7003 L=LENCWOSCOPZ3-3:L$=RIGHTSCVOFCOPZI,L 9: 1F OPZ=0 THEN 7005 
2004 U$="*DZ "+STRÍCOPZI+" " 

7005 P=C30-L)/2:P$="":FORK=1TOP:P$=P4+" ":NEXT K 


PRINT"S" 5 ¿PRINTCHES2 145 


PRINTMRA Er.|... DICIONES RUN, 4.4," 
PRINT"META ";U$; "35 ” 
PRINT"MA ES 


IF OPZ=0 THEN PRINT"35 Ma"; 


S PRINTUMY LE CP 


PRINT"IBEADADD E n 

a=1: 2: GOSUB1 1090 : PINTA E ————— 02 2 
x=25:=23:GOSUB11006:PRINT"Añz 1-14 1 5 4170" 

RE 


En 

IF OP2=8 THEN RETURN 

DZ=0PZ 

ON OZ GOTO 7116,7110,7046,7843.71 10, 7042,7044 
60 








? LV=27 : GOSUBZ0000 : NUC=18: DS=S 


L'=32 : GOSUB20000 : NUC=3: DS=13: 6 
Lv=146. GOSUBZ0008 -NUC=1 "DS=1 -COTOvOsO 
LY=154 : GOSUE 20900 : NUJC=1 : D: ¿COTO7B90 

FOR I=1 TO DS:READ D$C12,DXC 1), DW. 1): HEXTI 
FOR I=1 TO NUC:READ TPC, LOC) NICO ACI CCA 
REN 

NEXT 1 

RETURN 

REM 

REM 4 INTRODUCCION TEXTO 
PRINTCHR$(19>; 

GOSUB 7030 

P1=CY(1):NUC=20 

FOR D=2TONUC 
P1=P1+1:TPCD)=TP(1) LOC =LOC1) 
NDCD)=ND( 1): CCD =C0XC1) 

Cuco =P1 

MEXT D 

GOSUB 2000 

GOSUE 3000 

IF FS=6 THEN 28020 








3 IF FS=2 THEN 2025 


IF FS=7 THEN RETURN 
HFS=FI$(25 :GOSUBEGGA: GOSUESZAR 
FOR G=1 TO NUC 

PA=6: GOSLIEGSOB 
RAS=BS 00) :PRINTRZ,) RAS 

NEXT Q 

GOSUB 2009 

GOSUE 3000 

IF FS=6 THEN 2050 

IF F5=3 OR F3=? THEN 2055 

FOR (1=1 TO? 
PA=20+01:G0S 
RAS=B$(01):PRINTRZ, ARAS 
HEXT 01 

GOSUB 6400: GOSUBS60D 
RETURN 





REM 
REM RUTINA CALCULOS 
REM 


REI ARA ARRR DATA RARA: 

DATA 145,17,29,157,140,133,136,13,25,134, 135,0, 0,0,4 
A A A E E 

DATA" A 9 11 TO LORA A A a 

DATA"  —-0- L-! TO Lot A +. ne" 
DATA"AL —6- 77 TO Lot A 1 zx 








DATA" — 0 Lot al a 
DATA" Ar LA LA 1 AAA 
DATA" A e0 | A 57 
DATA" a ARA LA AT 

23 DATA" XA AL AS 
DATA" a AS a E a 


DATA" A 
DATA" A 


E SL 


— 


+ : Is 
3 REM AARRRARE OPZ=1 HARER LARA ERRe 


DATA "1 017,902 711,3 0,7,12,M4= 0,715,085 ,7,17 
DATA 3,20,0,10.5 
DATA 4,2,0:33,9 ; 





4 

DATA 4,2,0,33,13 
3,26,8,19,15 

DATA 4.2,8,33,15 


10125 
10126 


DATA 3,26,0,10,17 
DATA 4,2,8,33,17 


10139 REM 


10131 
10132 
10133 
10134 
10135 
10136 
10140 
10141 
10142 
16150 
10151 
10152 
10200 


DATA" REGUNTA",15,6 

DATA" DIA LT, "HA RT 125,8, "1- ",7,10,"2- ",7,11 
DATA"3- ",7,12,"4- “,7,13,"5- ",7,14,"6- ",7,15,*?- ",7,16 
DATA"8- ",7,17,"9- ",7,18,"10- ",6,19 

DATA 3.12,6,24,6,3,16,0,10,10 

DATA 1,2,0,29,10 

REM AO OP Z=S A ONO 

DATA" AA LASA PY 101", 11,0 

DATA 3,35,0,3,2 

REM AAA OPZ=4 ETT 

DATA" HP 1T41F",1,0 

DATA 5,35,0,3,2 

PEA ld 


11000 REM 


11001 
11005 
11010 
11015 
11020 


REM OR POSICIONADO EN 2%, Y daa 
POKE 211,% 

POKE 214,w 

8558732 

RETURN 


12000 REM 


12001 
12002 
12003 
12004 
12006 
12008 
12009 
12019 
12011 
12012 
12013 
12014 
12016 
12017 
12018 
12019 
12020 
12022 
12024 
12026 
12023 
12030 
12032 
12034 
12036 
12038 
12040 
12041 
12045 
12050 
12060 
12100 
12102 
12104 
12105 
12106 
12103 
12110 
12111 
12112 
12113 
12114 
12115 
12116 
12118 
12122 
12125 
12130 
12135 
12150 
12151 
12152 
12153 
12154 
12155 
12156 


REM dk GENERACION SISTEMA 44 

PRINTHOS : GOSUB7000 
%=8:Y=11:GOSUB11000:PRINT"E5 1-7 Lo 0T A TO" 
X=X+3:Y=Y+3:GOSUB11000:PRINT"3 1 TANGA ¿A ITA 
GETR$: IF «$<)>""THEN12012 

FOR T=1 TO 130:NEXTT 

X=8:Y=11:G0SUB11008:PRINT" ' 
X=X+3 0 Y=+3:G0SUB11000:PRINT" " 
GOTO 12003 

FOR I=1 TO 3 

NFS=FI$CI>:GOSUB 6900 

IF A=62 THEN 12020 
PRINTHOS:X=14:Y=10:GOSUB11000:PRINT"4l 7/07 1" 
X=5:Y=Y+2:GOSUB11009:PRINT"LT'e —— [Fo “elA/ -4-TO" 
4=3:=22:GOSUE1 1000: PRINT"IPULSE UNA TECLA PARA VOLVER AL MENU" 
POKE198,0:AIT198,1:RUN 

NEXT 1 

GOSUBSO00 

FOR I=1 TO 3 

NES=F $01) 

ARs="" 

FOR K=1 TO LFCI):RAS=ARS+NS$ :NEXTK 
OPENZ,8,3, "0: "NES", "+CHRGCLECIO+ 1) 

PA=1 :GOSUBEGS00 

PRINTH2Z, ARAS 

GOSUB660A 

NEXT 1 

GOSUEE400 

GOSUE 12100 

GOSUB 12150 

RETURN 

REM 4k INTRODUCCION USUARIOS xk 

PRIHTHOS : GOSUE7A0B :02=0F2+5: GOSUE7048 

FOR I=2 TO 10STEP2:B$c15="00":NEXTI 
2=2:Y=6:GOSUB11000:PRINT"W 157 44m Pe" 
GOSUB 2000 

GOSUB 3060 

IF FS=6 THEN 12106 

IF FS=9 THEN 12108 

IF FS=7 THEN RETURN 
NF$=F14(3) : COSUB6000 : GOSUBE200 

I=1:PA=0 

ARS="" 

ARS=BSCI)+ESCI+H1) 

PA=PA+1 : GOSUBSEBB:PRINTHZ, ARS 

I=1+2:1F 1510 THEN 12130 

GOTO 12115 

GOSUB6400 : GOSUBEE0A 

RETURN 

REM 4 INTRODUCCION DATOS kk 

PRINTHOS : GOSUB7C40:X=7:Y=10:GOSUB11000: INPUT"3H- 41140 L=F 0 "HL 
IF NL<=0 OR NL7108 THEN12151 

PRINTHOS : GOSUB7000: 02=7 : GOSUP7040 
P1=CY(2):P2=CW(3):NUC=21 

FORD=4TONUCSTEPZ 

P1=P141:P2=P2+1:TPCD)=TP (2): TPCD+1)=T03> 


12192 
12194 
12196 
12198 
12200 
12202 
12204 
12206 
12208 
12210 
12212 
12230 
12250 
12999 
13009 
13005 
13610 
13015 
13020 
13025 
13027 
13030 
13935 
13037 
13040 
13050 
13070 
14000 
14002 
14005 
14008 
14010 
14013 
14014 
14015 
14017 
14027 
14030 
14032 
14034 
14036 
14037 
14040 
14042 
14045 
14046 
14047 
14050 
14052 
14054 
14056 
14070 
14072 
14074 
14076 
13078 
14079 


LCCD)=LC(2) :LOCD+1)=LCC(3> 
ND<D>=NDC2) :NDC(D+1>)=NDC<3> 
CXCDI=CX(2) :CXCD+19=CX(3) 
CYcD>=P 1: CY D+1)=P2 

NEXT D 

HEEE LESIO. COSURESOS: COSUBE2O9 
NR=1 


5 FOR 2=1 TO NL 


X2<:W=6 : GOSUB11000:PRINT" ALT= PY 2.52 
GOSUE 2009 

GOSUB 3008 

IF FS=6 THEN 12168 

IF FS=9 THEN 12170 

IF FS=7 THEN GOSUB6480 : GOSUEE6BO : RETURN 
24=STRSC2) 

IF 2<10 THEN 2$="00"+RIGHTSCZ$. 1):GCOTO12132 
IF 2<100 THEN Z$="0"+RIGHT$(25$,2) 
AAS="--"+2$+B$(1) 

PA=NR : GOSUES309 

PRINT42, ARS: REM ESCRIEE RECORDR 1) LECCIONI 
ARS="" 

W=2 :W9=NR+1 

ARS=BS CM) +BF CULO 

PA=LI9 : GOSL 6300 

PRINTH2, ARS 

bi=bl+2 : 9=119+ 1 

IF 21 THEN 12264 

GOTO 12192 

NR=NR+12 

ARES + RRRRRERRRRRRRRRR 
PA=NR-1 :GOSUBS300 

PRINTR2, ARS: REM ESCRIBE FINE LECCIONAI 
NEXT Z 

GOSUE6400 : GOSUBEENO 

RETURN 

REN ARA RRA RRA RAMA RRA 
REM ak AYUDA Hook 

CO=X:CY=Y 

X=1:4=23 

GOSUB11000:PRINTH$C1)5" id 
FOR HE=2 TO 12 

CETR$: IFR$=""THENI13A05 

IF R$<OCHR$(13) THEN 13025 
COSUB11000: PRINTHS<HE> 

NEXT HE 

CETR$: IFR$=""THEN13037 
GOSUB1100B:PRINT" E A 
X2=C0:Y=CY 

RETURN 

REM xk CIRRECCIONES TEXTO 444 
PRINTCHR$(14>; 

NF$=F1$(2):GOSUB 7039 
P1=CW(1):NUC=20 

FOR D=2TONUC 
P1=P1+1:TPCD>=TPC1):LOCD>=LOC1) 
ND¿D)=NDC1) :CX(D)=CXC1) 

CyrcD>=P1 

NEXT D 

GO£UBG000 : GOSUBE200 

FOR D=1 TO 20 

PA=D: a INPUT+2, ARS 
B$(D>=AR 

NEXT D 
X=26:Y=0:G0SUB11000:PRINT"2AL7 = CONTINUA" 
GOSUB2000 

GCOSUB3000 

IF FS=6 THEN 14049 

IF FS=2 THEN 14042 

IF FS=7? THEN 14070 

FOR D=1 TO 20 

AAS=ESCD) 

PA=D : GOSUBE300 :PRINTR+2, ARAS 

NEXT D 

REM SUCESIVOS 20 

FOR D=21 TO 40 

PA=D: GOSUBESO0 : INPUTR2, ARS 
B$(D-203=AA$ 

NEXT D 

PRINTHOS 


UT 


14080 GOSUE2000 


14081 x=1:1=22: 
140382 X=25:0%4 
140583 GOSUPE3000 


OS. UB 1 1888 : PR INT - _——_—_—_— ——————_——— ——— __—_————J————————— 
COSUB1 1006 :PRINT"añ Il: AA 






14053 IF FS=6 THEN 140208 

14086 IF FS=9 ¡HEH 14083 

140387 IF FS=7 THEN GOSUBEG600 : GOSUBE4DO : RETURN 
14090 FOR D=1 TO 20 

14092 RAS$=B3 CD) 

14094 PA=20+D: GOSIJEG300: PRINTEZ, ARS 
14096 NEXT D 

141009 GOSUE £604: GOSUBE4B0 : RETURN 
20009 REM RESTORE DATA 

20005 RESTORE 

20015 FOR I=0 TO 62:READ D:NEXTI 
20020 FOR I=1 TO NW:READ %$:NEXTI 
20025 FORK=1 TO 3 

20030 FOR 1=6 TO 62:READ D:MEXTI 
20033 NEXT K 

20045 IF LW<B THEN RETURN 

20058 FOR I=1 TO LW:READ LY$:NEXTI 
26100 RETURN 


A iii 
6 REM A ORTOGRAFIA - TEXTO LECCIONES «+ 
PO REIA AEAA AA AAAAACAAAAANAA A RR 


12 
13 
0 


A OS 


PRINT"0":FORT=1T0200:NEXTT:%=7:=10:C0SUB11000:PRIN "HINTRODUCIR EL DISCO DAT 


411: =1+2: COSUB1 1008: VOR PULSAR UNA TECLA" 

CET R$: IF R$<>"" THENZ 

FORT=1T0200:MEXTT: COTO. 13 

DIM B$(30),TP(80),LCC80), HDCBB),CACEB), CB), DAC25)0 D 1025) 

DIM TF(15), 03025), 40$(20),FI$03),R$(30),H$(12) 

FI$C1)="DATOS":FIéc2)="TEXTO":FI$C3)="NOMBRES" 

BL$=" ":PD$= ¡AS5="-":NSg="4":SUE="M" :GIUS="9":HOS$="03":SLG="/" 
S$=CHR$C133):NY=4' 4C=7:10=6:S2=2:POKE 650, 128 

PRINTHOS : GOSUE1300: PRINTHOS :PRINTCHR$C(142):REM Ak MENU” 44 

IF OPZ=4 THEN CLR:LOAD"ORTOGRAFIA",8 

GOSUE20000 

FOR I=1 TO 15:READ TF(1>:NEXTI 

FOR I=1 TO 12:READ H3c1>:NEXTI 











120 ON OPZ GOSUB 8500, 12100, 15900 
159 GOTO 26 
E iS 


1301 REM * 


MENU PRINCIPAL * 


1302 REI AAA AAA AIR A HAIR: 
1303 LV=-1:POKES3281,6:POKES3220. 14 


1305 Us=" “EN  ":0P2=0:W0$(0FZ7=" 


Ra PLA 4 (SOLO TEXTO)" :COSUB 7009 


1309 0P2=1 
1310 55=53242 
1311 POKE S3+39,6:POKESS+23,0:POKES9+29,0 


12 POKESS,50:POKESS+1,111 


1313 POKESS+21,1:POKE2040, 13 

1316 RESTORE 

1313 FOR 1=6 TO 62:READN:POKES32+1,:NEXTI 

1321 POKESS+39,1:C1=50:C2=111 

1323 GOSUE 1363 

1324 GUSUB 1396 

1327 GET 0PZ$: IF OPZ$="" THEN 1327 

1333 IF OPZ$=GIU$ THEN C2=C2+16:0P2=0F2+1:GOSUE1363 
1336 IF OPZ$=SU$ THEN C2=C2-16:0P2=0P2-1:GOSUB1363 
1339 IF 0P2$=U3$ THEN 1381 

1342 IF ASCCOPZ$)=25 THEN GOSUB 1456:G0T01305 

1345 GOTO 1327 

1363 REM 4% 

1366 IF C2<111 THEN C2=C2+16:DPZ=0P2+1:RETURN 

1369 IF C27152 THEN C2=C2-16:DP2=0F2-1:RETURN 


2 POKESS.,C1:POKESS+1,C2 


1373 RETURN 

1378 REM dk 

1381 A4=4C:Y=0PZ4S5Z+WC 

1324 GOSUB 11009 

1387 PRINT"3k";YOS(0PZ> 

1330 FOR T=1 TO 1009:NEXTT 

1392 POKESS+21,PEEK(35+213AND254 


1393 
1396 
1399 
1405 
1462 
1411 
1414 
1417 


RETURN 

REM 

FOR J=1 TO NY:READ YO0+$(J):HEXTJ 

FOR II=1 TO NY 

R=AC:Y=IIASZP YC 

GUSUB1 1000 

PRINT"a"5VOS$CI1) 

NEXT II 

RETURN 

DATAD,0,0,0,96,0,0,144,50,2,32,8 ; 
DATA4,64,0,8,143,252,17,112,2,224, 129,252 

DATA, 63.,0,6,€65,0,0.63,0,0,31,8 
DATAG,33,0,0,31,0,224,63,£,16,81,0 
DATA13,30,8,0,0,0,0,0,0,0,6,0,0,0,0 

DATA"1- “RESENTACION DEL TEXTO " 

DATA"2- LISTA USUARIOS" 

DATA"3- E E LECCIONES" 

DATA"0- IN DE TAREA" 

REM dotada AYUDA MENU Ador 

PRINTCHR$(147) :PRINTCHR$(14) 

POKESS, 255: POKESS+1,115:POKESS+39, 6 
POKESS+40,6:POKESS+41,6 
POKESS+21,7:POKE2040, 13:POKE2041, 14: POKE2042, 15 :POKESS+29, 4 
FORN=0T062 : READO : POKES32+N, 0: NEXTH 
FORN=0T062 : READO : POKES96+N, 0: NEXTH 
FORN=0T062 : READO : POKE960+N, Q:NEXTN 
POKES3+39, 1: POKESS+40, 1:POKESS+41, 1 

POKE 53281,6 

PRIATANA—— 0 AAAAAAAAAAAÁA 
FOR I=1 TO 15:PRINT"Mi 

PRINTA Eó[dA, — > E a 
PRINTCHR$(19):PRINTTAB<?) "MEDIDA 4/1 TO TL OT" 
POKESS+2, 235: POKESS+3, 145: POKESS+4, 245: POKESS+5, 130 
PRINT"MOBRDESPLAZA BAJO: " 

PRINT"MABIDESPLAZA ARRIBA: " 

PRINT"MMBBINTRODUCE OPCION ELEGIDA: " 

PRINTTABC3) "MITA //4 174 AA MUDO RL OT 
GET R$: IFR$=""THENIS13 

POKESS+39,6:PRINT"01" : RETURN 

DATAS, 255,192, 12,6,32,16,16,16.32,56,8,32, 103,8 
DATR64,40,4,64,40,4,64,0,4,93,206,228,81,72,164 
DATAS 1,206, 228,31,66,164,93,46,142,64,0,4 

DATA64, 40,4,64,40,4,32,103,8,32.56,8,16,16,16 
DATA12,0,32,3,255, 192 

DATA3, 255,1.2,12,0,32,16,32,16,32,120,3,32,192,9 
DATR64, 120, 4,64,32,4,64,0,4,93,206,228,81,72,164 
DATAS1,206,228,81,66,164,93,46,148,64,0,4,64,16,4 
DATA64, 120,4,32,12,8,32,120,8,16,16,16,12,0,32,3,235, 192 
DATA, 8,8, 7,233,224,24,0,24,96,0,6,128,0,1,129,1,129 
DATA134, 131,129, 132,2, 129,132,0,129,142,0,129 
DATA132,0.,123,132,0,123,132,8,129,128,0,1,96,0,6 
DATA24,0,24,7,255,224,90,0,0,0,0,0,0,0,0,0,0,0 

dE FIN DEL MENU PRINCIPAL 

REM dk PRESENTA MASCARA de 
FORI=1TO0DS:X=DX(1):v=DYC1):G0SUB11000:PRINT"A"D$C1):HEXTI 
FOR J=1 TO NUC 


IM) +NEXTI 


Ags" 


IF TPCJ<O5S AND TP(J)<54 THEN 2060 
A=CXCJ) E =C CJ): GOSUB11000:PRINT"A"¡B£CJ) 
GOTO 2130 

e A TP¿J>=1 OR TPCJ¿=2 THEN C$=N5$:GO0TO2070 
FOR I=1 TO Ni-N2-1:A$=A$+C$:NEXTI 

IF N2=0 THEN A$=A$+C0$:G0TO 2095 
AS$=A$+PDS 

FOR I=1 TO N2:A$=A$+"0":NEXTI 
X=CXCJ):Y=CYCJ>:GOSUE 11008 

PRINT "MAS "a" 

ESCJ)="" 

FOR K=1 TO N1-H2-1 





BD BSCJ)=ESCJI+NSS 


HEXT K 

IF N2=0 THEN BSCJ)=B$(J)+N5$:G0TO 2130 
ESCJ)=BGCJ24+PDS 
FORK=1TOH2: BS J)=BS (5 )+NS% : HEXTK 

NEXT J 

RETURH 

REM 


q. xk DATA ENTRY dk 


Mos JS R=CALHCI :Y=CWUNCO 
A CC=1 
GOSUB 3248 


9 IF F3=9 THEN RETURN 


IF FS=0 THEN 3169 

IF FS>4 THEN 3210 

<UTO 3120 

REM CARACTER 

J=J+1:1F JONUC THEN 3030 


3 GOTO 3040 


ON FS GOTO 3128,3150,3170, 3190 
IF J>1 THEN J=J-1:C0T0 3040 
F5=B: J=NUC:GOTO 3048 

IF J<NUC THEN J=3J+1:GOTO 3048 
FS=0:GOTO 3038 

IF CC<LCCJ) THEN S=1:CC=CC+1 0% 
FS=8:G0TO 3100 


FS=0:G0TO 3040 

REM 

IF FS>8 THEN FS=0:GOTO 3069 
IF FS=3 THEN ESO ¿GOTO 3169 
RETURN 

REM 

REM 4% LECTURA DE 1 CAMPO 4% 
F3=4 


IF TPONC)=4 THEN RETURN 

IF TPCNC)=2 THEN GOSUB 9000: RETURN 

IF MIDSCBS(NC>,CC, 1)=PD$ THENX=X+S:CO=CC+S 
GOSUE 11608 

GET A$:IF A$<>"" THEN 3338 

GOSUB11000:PRINT" as"; :GOSUB11000:PRINT"A" ¡MIDSCBS(NC>, CC, 1); 
GOTO 3330 
IFASCCAS)=190RASCCUAS)=200RASC(AS)=1470RASCCAS)=148 ORASCCAS>=44THEN 3330 
PRINT"Ma" AS; 

LA=ASCUAS) 

FOR I=1 TO 15 

IF TFCI)=CA THEN FS=1: I[=15:G05UB3630 : RETURN 
IF FS=9 THEN RETURN 

NEXTI 

IF TP(NC)<>1 THEN 3458 

IF CA=45 OR CA=46 DR(CA>=42ANDCA<=57 >) THEN3420 
GOTO 3330 

IF CA<>246 THEN3450 

GOSUB 4278 

IF SUP=1 THEN 3410 

S=1:COSUB 3520 

IF CC=LC(NC) THEN RETURN 

CC=CC+1:X=X+1:G0TO 3310 


REM 
REM 44 TRASFERENCIA AL BUFFER xk 
REN 


IF CC=1 THEN SN$="":GOTO 3590 
SH$=LEFTS$(BS(NC),CC=1) 

IF COSLC(NC) THEN DES$="":G0TO3610 
HN=LC(NCI=CC: DES=RIGHTSCES(NCI,N) 
BS(NC)=3N$+A$+DE$ 

RETURN 

REM 

REM 4% COMANDOS ak 

REM 


IF FS25 THEN 3718 

RETURN , 

IF FS=9 THEN GOSUE 13000 :RETURN 
IF FS=8 THEN GOSUB 40208:RETURN 
IF FS<3 THEN RETURN 

ON FS-3 GOSUB 3740,3918 

RETURN 

REN 

REM 4% INSERCION 4 

REM 


=x+1:G0SUE 11608:G0TO 3869 


IF CC=LCCNCITHEN RETURN 

IF CC=1 THEN SN$="":GO0TO3800 
SN$=LEFT$(BS$CNC>,CC-1> 
H=LC(NCI-CC+1 0 DES=RIGHTS$C(BSUNCI, NH) 
C+=EL$ 

AS=SNI+CF+DES 


BS(NCI)=LEFTSCAS.+LO(NCII 

AR=A CY = 

R=CXUONC) :W=CW (NC) :GOSUB 11600 
ANY 

REM 

PRINT BS$CNC):S=-1 

IF RIGHTSCBSCNC)> 19=PD5 THEN -3720 

RETURN 

REn 

REM 44 BORRADO 44444 

REN 

IF TPCNC><51 THEN 3958 

IF MIDSCBLINC>,2,1)=PDS AND CC=1 THEN RETURN 

IF CC<1 THEN RETURN 

IF CC=LCUNC) THEN DE$="":GOTO 3920 


9 N=LCCONCI-CC: DES=RIGHTECESCONCI¿N) 


SN$=LEFTS$(BS$(NC),CC-1) 
IF TPCNC>=1 OR TPONCI=2 THEN C$=N5$:GOTO 40109 
C$=AS$ 


O ESCNC>=SH$+DEF+CS 


RAZR 

A=CACNCO ¿Y=CWYONC) :GOSUB 11000 
ASRA CY 

PRINT BS(NC>:S=1 RETURN 

REM ARO AL INEADOS IRRA RR 

IF LC(NC>=1 THEN RETURN 
Ni=LC<NC>=CC+1 

IF CC=1 THEN BScNC>="":GOTO4100 
BSCNCISLEFT+C(BSÍNC),CO-1) 

IF TPCNC>=1 OR TPNC>=2 THEN 4150 


0 FOR I=1 TO Ni 


BI4(NC)=BG(NCI+BLG 
NEXT I 


O GOTO 4190 


FOR I=1 TO N1 


0 BSUNC)=CHR$C32I+BGLUNC) 


NEXT 1 

IF RIGHTECBSCNC>,1)=PD3 THEN PecWNCs=EL$+LEFTSCBGCNCI,LOCNCI=1) 
A=CXUNC) :=CW UNC) :GOSUB 11008 

PRINT BSC(NC): RETURN 

SHP=9 

IF CC=1 OR CC=LCINC) THEN SWP=1 : RETURN 

FOR I=1 TO LC(NC) 

IF MIDSCBSONCI,1,1)=BLS THEN I=LCCNC) :SHP=1 :RETUN 
NEXT 1:RETURN 

REM 

REM 

REM ao GESTION DISCO ado 


REM ===> =-- 


REM APERTURA CANAL COMANDOS 


REM === === 


OPEN1,8,15 
E N 


CLOSE 


R1=PA:R2=0 

IF R1>256 THEN R2=INTCPA/256) :R1=R1-256MR2 
PRINTH1, "P"CHR$(3+96)CHR$CR1)CHR$CRZICHRSC1) 
RETURN 

REM 

REM CONTROLES SOBRE LOS FICHEROS 


6302 GOSUPEDOO : GOSUBE200 
6904 INPUTH1,A,B$,C,D 
£906 GOSUBE400 : COSUBESOS 
6910 RETURN 


REM 
7001 REM ak CARGA LOS DATA Jn 
7002 IF 0PZ=5 THEN 7006 

7003 L=LENCYO$(OPZ)>-3: Lé=RIGHTS<VOSCOPZ), L>:IF OPZ=4 THEN 70085 
7094 Us$="0Z "+STRSCOPZI+" " 

7005 P=(30-L)/2:P$="":FORK=1TOP:P$=P$+" ":NEXT K 

79006 PRINT"4";:PRINTCHR$(14> 


7003 PRINT"MAMN =r.|... DICIONES —ORUM, v.%.” 
7011 PRINT"MHM ";US; "9 a 
7012 PRINT"Man 2 PS; 


7013 IF OPZ=0 THEN PRINT"340 ma"; 
7015 PRINT"MA"L$; "30" PS 
7020 PRINT"IBBDDDDIA . 
7025 IF OPZ=2 THEN 7040 
7039 X=1 :Y=22: GOSUB1 1998 : PR 1NT - _—_—_—_—_—_—_—_—_____—————————————" 
7033 X=25:=23:G0SUB11000:PRINT"Mzl-L+ 1: 410%" 
7034 REM 
7635 IF OPZ=8 THEN RETURN 
7048 ON OPZ GOTO 7042.7044,7118,7046,7048 
70642 LV=27:G0SUB20000 : NUC=1 :DS=1:GOTO7898 
7044 LV=35:505UB20800 :NUC=10:D3=7 :G0TO7098 
7046 LV=106:GOSUB20000 : NUC=6 : DS=6:GOTO7090 
7048 LV=154:G0SUB20000 :NUC=2:DS=12:G0T07898 
7099 FUR I=1 TO DS:READ D$(1>,DXC1),DY<1>:NEXTI 
7095 FOR I=1 TO NUC:READ TPC1>,LOCI),NDCI),CXC 17 CCT) 
7097 REM 
7109 NEXT 1 
7110 RETURN 
8508 REM ok PRESENTACION TEXTO Hokk 
28502 PRINTCHR$C14); 
8503 NF$=FI$(2): G0$UB 7034 
8505 Pi=CW(1):NUC=20 
8507 FORD=2TONUC 
8509 P1=P1+1:TPCD>=TPC(1):LCCD)SLCC1> 
8511 NDCD)=NDC(1):CX(D)=CXC1) 
8512 CvcD>=P1 
8514 NEXT D 
8516 GOSUBEDOO : epa unezos 
8519 FOR D=1 TO 
8520 PA=D: GOSUBSE00: INPUTR2, ARS 
8522 E 
924 NEXT 
2526 X=26: vo: ÍA PRINT"aL7 = CONTINUA" 
2538 GOSUB 200 
8532 CETAS : IFAS=""THEN 8532 
8534 IFASCOCHR$(136)THEN 8532 
8546 REM SUCESIVOS 28 
8548 FOR D=21 TO 40 
8550 PA=D:GOSUB6808 : INPUT42, ARAS 
2552 BS(D-20)=A1 
8554 NEXT D 
8558 PRINTHOS : GOSUB2000 
8568 GETAS: IFA$=""THEN 8560 
8561 IFAS$<)CHR$(136>)THEN 8560 
8576 GOSUBE408 : GOSUBE608 : RETURN 
10000 REM a olo lao DATA NOR OK 
10081 DATA 145,17,29,157,140,133,136,13,25,134,135,8,0,9,0 
10005 REM 


10007 DATA"Mk <-> IMA TA" 
10010 DATA"M2A — SV 1 ll : 50 LAO A 2 A" 
10012 DATA" 0 LI : 5 TO Lé0% 2 1005 A" 


10814 DATA"A 0 /1 
10015 DATA" --0- TO/ 


— O Lts ft 1% E 
—o0 Les elev " 





10019 DATA" da ui” RAI AAA LTS OS 
10020 DATA" % 13 ¿N/A ARA 
10022 DATA" A S' ICAA RAT 

10024 DATA" a t=?! ¿MAI DO AL ON7/ , 
10026 DATA" da 2" E MA ALT 0 Y 0" 
10028 DATA" | est | : si DL 
10030 DATA" da id 1/1 TORA" 


10059 DATA" RESENTÁCION TEXTO", 1, 0 

10951 DATAS,35,0,3,2 

10124 REM aaa DP Z=3 alo ciclo 

10115 DATA" /SUARIO",7,7?,"4 A TIMA LECCION SUPERADA", 15,7 

10116 DATA ES DIS 719,4 "5,7 15588", 7,17 


16117 
10118 
10119 
198120 
10121 
19122 
10123 
10124 
10125 
108126 
10130 


12119 
12120 


12123 
12125 
12138 
12132 
12134 
12135 
13000 
13095 
13010 
13015 
13917 
13028 
13021 
13022 
13038 
13035 
13036 
13049 
13045 
13059 
15980 
15985 
15906 
15910 
15911 
15912 
15913 
153914 
15916 
15918 
15928 
15922 
15924 


DATA 4,20,0,10,9 
DATA 4,2,0,33,9 
DATA 4,20,08,10,11 
DATA 4,2,0,33,11 
DATA 4,26,0,10,13 
DATA 4,2,0,33,13 
DATA 4,26,0,10,15 
DATA 4,2,0,33,15 
DATA 4,26,8,10,17 
DATA 4,2,0,33,17 
REM alojado DPZ=4 qdo 
DATA"1- *,10,13."2- ",18,15,"3- ",18,17,"4- ",18,19 
DATA"S- ",10,21,"3 ",5,11 
DATA4,10,0,14,13 
DATA4,10,0,14,15 
DATR4,10,0,14,17 
DATA4,10,0,14,19 
DATA4,10,0,14,21 
DATA1,2,6,38,11 
REM OPZ=S MO 
DATA" DIR 117 ",7,8, "DC ./ALOM",25,8,"1- ",7,10,"2- ",7,11 
DATA"3- ",7,12,"4- ",7,13,"5- ",7,14,"6- ",7,15,"7- ",7,16 
DATA"8- ",7,17?,"9- ",7,18,"18- ",6,19 
DATR4,16,8,10,10 
DATA3,5,6,29,10 
aaa lla lla llo lolo joIdialolojok 
Mm 
REM ak POSICIONADO EN X.Y dooloK 
POKE 211,X 
POKE 214,Y 
Sys58732 
RETURN 
REM xk LISTA USUARIOS ok 
PRINTHOS : GGSUB7000 
NF$=F1$(3):GOSUB 6900 
IF ACD62 THEN 12113 
RETURN 
GOSUBEB08 : GOSUBE200 
K9=1:PA=1 
GOSUBE880 : INPUTH2, ARS 
BS(K9)=LEFTSCARS, 20) 
BS(K9+1)=RIGHISCARS, 2) 
P=VAL(B$(K9:1))-1:1F P<=B THEN B$(K9+1)="00":60T012122 
IF P<18 THEN B$(K9+1)="8"+RIGHTSCSTRSCP>,1):G60T012122 
BS(K9+1)=RIGHTSCSTRECP),2) 
K9=K9+2:1F PAS THEN 12125 
PA=PA+1:GOTO 12115 
GOSUB2808 
X=3:Y=21:G05UB11000:PRINT"2aPULSE UNA TECLA PARA VOLVER AL MENU" 
P0OKE198,8:WAIT198, 1 





COSUB6400 : GOSUBE508 

RETURN 

REM xao AYUDA moto 

CO=x :CY=Y 

X=1:Y=23 
GOSUB11000:PRINTH$C1>;" ai 
FOR HE=2 TO 12 


GETRS$: IFR$=""THEN13020 

IF RS<OCHR$(13) THEN 13820 
GOSUB11600:PRINTH$(HE> 

NEXT HE 

GETR$: IFR$=""THEN13035 

IF RS<OCHR$(13) THEN 13835 

GOSUB11000:PRINT" Al: AA 
X=C0:Y=CY 

RETURN 

REM ato LECCIONES ak 

GOSUB 7869 

X=7:'Y=10:GO0SUB11000:PRINT" ALT= 22 TANIA 
X=7:Y=13:GOSUB11000:PRINT"M === === ¿ 
X=7:Y=12:G0SUB11000: INPUT"NBl" ¿NOS 

IF LENCNO$>=0 THEN 15910 
COSUB25008 : NO$=LEFTSCNOS, 20) 

NF$=FI$(3):GOSUB 6908 

IF a THEN 15929 

RETU 

SoSuUb 6000 : GOSUBE268 

PA=1:k8=9 

GOSUB £300: INPUTR2, RAS 


15926 
15928 
15930 
15932 
15934 
15936 
15938 
15950 
15952 
15953 
15954 
15955 
15956 
15957 
15958 
15959 
15760 
15961 
15965 
15970 
165009 
16001 
16002 
16003 
16005 
16007 
16003 
16009 
16010 
16611 
16012 
16013 
16014 
16015 
16016 
16017 
16018 
11 
16019 
16020 
16021 
16022 
16023 
16024 
16026 
16028 
16030 
16031 
16032 
16034 
16036 
16038 
16039 
16040 
16041 
16042 
16044 
16045 
16046 
16047? 
16048 
16050 
16130 
16131 
16150 
16155 
16169 
16165 
16167 
16179 
16175 
16180 
16183 
16185 
16190 
16192 
16194 
16195 
16196 


D$=LEFTSCAAS, 20) 

IF D$=NOS THEN K8=20:G0T015950 

FOR l=1 TO 20 

C1$=MIDSCNOS, bl, 1):C2$=MIDSCARS,M, 1) 

IF C2$=CHR$(32) OR C2$=CHR$(35) THEN K8=K8+1:G0TO 15938 

IF ld THEN Ke=k8+1 

NEXT 

IF ke=za THEN 15960 

PA=PA+1:K8=0:1F PAS THEN 15954 

GOTO 15924 

GOSUB 6408:G0SUB 66099 

X=7:Y=14:G0SUB11000:PRINT"2EL NOMBRE A";NO$; "E" 
4=7:Y=+1:G0SUB11000:PRINT"NO EXISTL ENTRE LOS" 
Y=+1:G0SUB11000:PRINT"PREVISTOS EN EL FICHERO USUARIOS" 
4=3:=21:G05UB11000:PRINT"MPULSE UNA TECLA PARA VOLVER AL MENU" 
POKE198,0:WAIT198, 1:RETURN 

REM ok ENCUNTRADO dex 

GOSUB 6400:SUSUB 6689 

LE=VAL(RIGHTSCARS, 2)):PR=PA 

IF LE=0 THEN LE=1 

REM dol DESARROLLA LECCION HLE Mk 
X=7:=10:GUSUB11000:PRINT" y 
X=7:Y=13:G0SUB11000:PRINT" * 
%=7:'Y=12:G0SUB11000:PRINT" m 
NF$=FI$(1):GOSUBED00 : GOSUBE208 

PA=1+12k(LE-1):G00SUBE300 

INPUTR1,A,B$,C,D 

COSUBE400 : GOSUBEEBO 

IF AC>50 THEN 16015 a 
X=6:=17:G05UB11000:PRINTTABC10);"A"NOS 
wW=Y+2:G0SUB11000:PRINT"3:HA SUPERADO LA ULTIMA LECCION" 
4=3:W=+2:G05UB11000:PRINT"MPULSE UNA TECLA PARA YOLYER AL MENU" 
POKE198,0:WAIT198, 1:RETURN 

GCOSUEE0BO : GOSUBE200 

HiL=LE 

Bs1:RI=1+12k(NL-1):RF=R1I+11 

PASRI :GOSUBG200: INPUTRZ, ARS: IF LENCAR$)<5 THEN GOSUE6400: GOSUBE60D : GOTO150 


AR$=RIGHTSCARS, LENCARS)-5) 
FOR PA=RI+1 TO RF 
COSUE6300 : INPUTH1,A,B$,C,D:1F A=50 THE¡? GOUSUB6400: GOSUBEGEBO :GOTO16B11 
INPUTR2, ARAS 
PERRA Ea e Ia ae DJ ia 
=B+2 
NEXT PA 
O0PZ=5:GOUSUB 7040 
Pi=CW11):P2=CW(2) :NUC=20 
FOR I=3 TO NUCSTEP2 
P1=P1+1:P2=P2+1:TPCI>=TPC(1):TPCI+19=TPC2) LOC IO =LCC 1) LOC I+1I=LOC2) 
ND<12=NDC1):NDC1+1)9=ND(2) :CXC19=CX( 1:04 1+1)=CXC2) 
Cuco =P1: CC 1+17EP2 
NEXT 1 
G0SUB5480 : GOSUBE6OB 


X=1:'Y=DwW(1>-2:G05UB11000:PRINi "AL" F7 "¡NL 
X=14:GOSUB11000:PRINT"IEMA : "¡ARS 
GOSUB25500 

GOSUB2000 

COSUB3009 

IF FS=6 THEN 16044 


IF FS=9 THEN 16045 

IF FS=7 THEN RETURN 

PRE AR A RR 

REM CONTROL EXISTENCIA ERROR 

GOSUB 26508 

REM 

IF EX10 THEN 16042 

LE=LE+1:L$=STR$(LE> 

IF LE<10 THEN L$="9"+RIGHT$CL$, 1):G0TO 16170 
L$=RIGHTS(L$, 2) 

RAS=NOS$+L$ 

NF$=FIS$C(S):GOSUB 6090:COSUB 6200 

PA=PR:GOSUB 6800 

PRINT*2, ARAS 

GOSUB E400:GOSUB 6608 

DPZ=3:PRINTHOS : GOUSUB7000 
*X=7:'=10:G0SUB11000:PRINT"EPROXIMA LECCION PARA" 
Y=Y+2:G0SUB11000:PRINT "=M"NOS;: INPUT"MKS/N)" ¡RG 
X=7:'Y=10:G0SUB11000:PRINT" E 
Y=Y+2:GOSUB11000:PRINT " ae 


16197 
16198 
16200 
20000 
20005 
20010 
20020 
20025 
20930 
20835 
20045 
20050 
20100 
20509 


20501 Ex 


20503 
20506 
20507 
20510 
20515 
20516 
20600 
20610 
21000 
21001 
21002 
21005 
21009 
21010 
21012 
21014 
21016 
21018 
21025 
21027 
21029 
21030 
21032 
21035 
21037 


IF R$="S" THEN 15914 

IF R$<>"N" THEN 16192 
RETURN 

REM RESTORE DATA 

RESTORE 

FOR I=9 TO 62:READ D:NEXTI 
FOR I=1 TO NY:READ X$:NEXTI 
FORK=1 TO 3 

FOR 1=8 TO 62:READ D:NEXTI 
NEXT K 

IF LV<0 THEN RETURN 

FOR I=1 TO LW:READ LY$:MEXTI 
RETURN 

laa CONTROLES RESPUESTAS 


FOR W=2 TO 28STEP2 
IF B$cM)="FALSO” OR B$CW)="-4LON”" THEN Bs ="g0" 
IF B$CW>="VERDADERO " OR B$cWi=">"_, " THEN B$CW)="01" 
R=YALCR$CU) >: B=YALCB$CM) 
IF R=B THEN EsE+1 
NEXT ll 
de el OR E<10 THEN ER=0:GOTOZ1000 
= 
REM MELODIA 
ESCORT A MESA NTAT TS 
L(1)=97:L (272104 :L(3)=143:L(4)=47:L(5)=142:L(6)=24:L(7)=210 
HC1)=8:H:27=9:H(3)=10:H(4)=11:H(5)=12:H(6)=14:H(7)=15 
FOR R=54272 TO 54296: POKER, 0:NEXTR 
POKES54272,0:P0KES4273, 0 
P0KES54274,0:P0KES4275,8 
POKES54278,240:POKES4296, 15 x 
POKES4277,0:POKES4276,65 Esa 
FOR F=1 TO 7 
POKE 54272,L(F):POKES4273,H(F) 
FOR T=1 TO 100:NEXTT 
POKEE46,F:%=16:Y=21:GOSUB1 1000: PRINTESCER> 
NEXTF 
FOR F=7? TO 1STEP-1 
POKE 54272,LC(F):POKES4273,H(F> 
FOR T=1 TO 100:NEXTT 


21039 PÚÓKE646,F:X=16:W=21:GOSUB11000:PRINTESCER> 
21040 NEXTF 

21045 FOR R=54272 TO 54296:POKER,D:NEXTR 

21050 X=16:'Y=21:G0SUB11000:PRINT" "RETURM 


25000 REM --- COMPLETA CADENA --- 

25003 L9=LENCMNOS): IF L9=>20 THEN RETURN 

25010 FOR K=1 TO 20-L9:NOS=N04+CHR$(32):MEXT K 
25020 RETURN 

25300 REM ---- TIPO PREGUNTAS ---- 

25301 P9=0 

25503 FOR K=2 TO 20STEPZ 


25510 
25515 
25317 
2534 
23029 
23527 
23930 


25600 


GG 


IF YALCR$(K2591 THEN P9=P9+1 

NEXT K 

IF P9<=0 OR F9<>9 THEN RETURN 
DIC2)=" MOZART DA CID ZI1 
FOR K=2 TO ¿OsTEP2 

TPCK>=10LOCKI=2 

NEXT K 

RETURN 





REA AAA AAA AAA AA AA OR: 


6 REM 


FORTOGRS e IA-GRAF 1ICOS, GENERACIONE 


A ión 


20 DIM B$(30),TP(80),LC(80),ND(80),0X(20),C0 (80), DX(25),D1(25) 
21 DIM TFC15>,D$(25),W0$(20),FI$(3),LFC3),H$(12),B1$(62> 


23 FI$C1)="DATOSG":FI$C2)="TEXTOG":FI$(3)= ="NOMBRESG" :LF(1=63:LF(2)=35:LF(3)=22 


24 BL$=" ":PD$=".":A3$="-":NS$="4":SU$="M" :GIU$="2":HOS$="0J":SLG="/" 
25 US$=CHR$C133) :NV=6:XC=7:YC=6:5Z=2:POKE 650,128 

26 PRINTHOS : GOSUB1300:PRINTHOS: Pc REM Ak MENU ae 
27 IF OPZ-6 THEN CLR:LOAD"ORTOGRAFIA", 3 

30 GOSUB20008 

35 FOR I=1 TO 15:READ TF<1>:HEXTI 

40 FOR I=1 TO 12:READ H$(1):NEXTI 

120 ON OPZ GOSUB 12000, 16000,5500, 15000, 8009 

150 GOTO 26 

1300 REM AAARRRA IA RARAAAR ARA RARRARAR 

1301 REM * MENU PRINCIPAL * 





RE A AA AAA AAA A AAA 
Lv=-1:POKES3281,6:POKES3280, 14 

a ":0P2=6:YOFCOPZI="  FIFI-A42 (GENERACION)":GOSUE 7000 
0PZ= 

55=53248 

POKE SS3+39,6:POKESS+¿3, 0: POKESS+29.0 
POKESS,50:POKESS+1,111 

POKESS+21,1:POKE2040, 13 

RESTORE 

FOR I=0 TO €2:READA:POKES32+1,1:NEXTI 
POKESS+39,1:C1=50:C2=111 

GOSUB 1363 

GOSUB 1396 

GET 0P2$: IF 0PZ$="" TEN 1327 

IF OPZ$=GIU$ THEN C2=C2+16:0PZ=0PZ+1:GOSUB1362 

IF OPZ$=SU$ THEN C2=C2-16:0P2=0PZ-1 : GOSUB1363 

IF OPZ$=US$ THEN 1381 

IF ASCCOPZ$>=25 THEN GOSUB 1456:G0T01305 

GOTO 1327 

REM Ak 

IF 22<111 THEN C2=C2+16:0PZ=0PZ+1 : RETURN 

IF C27191 THEN C2=C2-16:0P2=0P2-1 : RETURN 
POKESS, C1 :POKESS+1,C2 

RETURN 

REM 4 

X=XC: W=0PZ4SZ+WC 

GOSUB 11000 

PRINT" za" ;VOSC0PZ) 

FOR T=1 TO 1000 -WEXTT 
POKESS+21,PEEK(S5+21)AND254 

RETURN 

REM 

FOR J=1 TO NV:READ VOS$(J>:NEXTJ 

FOR II=1 TO NV 

X=XC:W=IIMSZ+ YC 

GOSUB1 1000 

PRINT"k";VO$CI1> 

NEXT 11 

RETURN 

DATAB,0,0,0,96,0,0,144,0,3,32,0 
DATA4,64,0,8, 143,252, 17,112,2,224, 129,252 
DATAO,63,0,6,65,0,0,63,0,0,31,0 
DATAO,33,0,0,31,0,224,63,0,16,81,0 
DATA15,38,0,0,0,0,0,6,8,0,0,06,0,0,9 

DATA"1- l|ENERACION DEL SISTEMA" 

DATA"2- —ORRECCION LECCIONES" 

DATA"3- —ORRECCION TEXTO" 

DATA"4- +NTRODUCCION LECCIONES" 

DATA"S- +NTRODUCCION TEXTO" 

DATA"0- IN DE TAREA" 

REM lalala AYUDA MENU dalloloolooK 

PRINTCAR$(147) :PRINTCHR$(14> 

POKESS, 255 :POKESS+1,115:POKESS+39,6 
POKESS+40,6:POKESS+41,6 
POKESS+21,7:POKE2040, 13:POKE2041, 14:POKE2042, 15: POKESS+29,4 
FORN=9T062 : READO : POKES32+N, Q: NEXTN 
FORN=0T062 : READO : POKEG96+N, Q: NEXTN 
FORN=0T062 : READA : POKE960+N, Q :NEXTN 
POKESS+39, 1: POKESS+40, 1:POKESS+41, 1 

POKE 33281,6 

PRINT —————————— 1 1 0 AAA 
FOR I=1 TO 15:PRINT"MI a 15 :NEXTI 
PRINT > -—_——_—_ —_— _— _ _ 4; 
PRINTCHR$(19) :PRINTTAB(7?> "MIUIDIBDIITA 4 TO LON 
POKESS+2, 255: POKESS+3, 145: POKESS+4, 245: POKESS+5, 180 
PRINT"MOBNDESPLAZA ABAJO: " 

PRINT"MIMBIDESPLAZA ARRIBA: " 

PRINT"WIMBINTRODUCE OPCION ELEGIDA: " 

PRINTTABC3) "MIIMPULSE UNA TECLA PARA VOLVER AL MENU" 
GET R$: IFR$=""THEN1513 

POKESS+39,6:PRINT"01" :RETURN 

DATA3, 255, 192,12,0,32,16,16,16,32,56,8,32, 108,8 
DATR64,40,4,64,40,4,64,0,4,93,206,223,81,72,164 
DATAS1,206,228,81,66,164,93,46,148,64,0,4 

DATR64, 49, 4,64,40,4,32,108,8,32,56,8,16,16,16 
DATA12,6,32,3,255, 192 

DATA3, 255, 192, 12,0,32, 16,32, 16,32, 120,8,32.,192,8 
DATR64, 120,4,64,32,4,64,0,4,93,206,228,81,72, 164 
DATAS1,206,228,81,66, 164,93,46,148,64,0,4,64,16,4 


DATA64, 120, 4,32,12,8,32,120,8,16,16,16,12,0,32,3,255, 192 
DATAO,0,0,7,223,224,24,0,24,96,0,6,123,0,1,129,1,129 
DATA134,131,129,132,2,129,132,0,129,142,0,129 
DATA132,0,129,132,6/129,132,0,129,123,0,1,96,0,6 
DATA24,8,24,7,255,224,0,8,0,8,0,0,0,0,0,8,0,9 

REM FINE DEL MENU PRINCIPALE 

REM 

REM ddok PRESENTA MASCARA ek 
FORI=1TODS:X=DX(1):Y=DYC1):G0SUB11000:PRINT"2A"D$C1>:NEXTI 
FOR J=1 TO NUC 

As="" 

IF TPCJ><OS AND TPCJ><24 THEN 2068 

X=CXCJ) :Y=CW(J):GOSUB11000:PRINT"A*;BS$CJ) 

GOTO 2138 

PEACE 37 +TE TPCJ)=1 OR TP(J)=2 THEN C$=NS$:G0T02070 
C$=AS 

FOR I=1 TO Ni-N2-1:A$=A$+C$:NEXTI 

IF N2=0 THEN A$=A$+C$:G0TO 2095 

AS=A$+PDS$ 

FOR I=1 TO N2:A$=A$+"8' :NEXTI 

X=CX(J):Y=CW(J>:GOSUB 11009 

PRINT "MAS: "a" 

Bs) ="" 

FOR K=1 TO N1-N2-1 

BS(J)=B$(J)+NS$ 

NEXT K 

IF H2=0 THEN BS$(J)=B$(J>+NS$:GOTO 2130 
BS(J>=BS$CJ>+PD$ 

FORK=1TONZ:Ds(J)=B$(J)+N33 :NEXTK 

NEXT J 

RETURN 


REM 

REM Ak DATA ENTRY 0% 
J=1 

NC=J : X=CX(NC) :Y=CW (NC) 
CC=1 


GOSUB 3240 

IF FS=9 THEN RETURN 

IF FS=0 THEN 3100 

IF FS74 THEN 3219 

GOTO 3120 

REM CARACTER 

J=J+1:1F J2NUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 

IF J>1 THEN J=J-1:G0T0 3040 

FS=0:J=NUC:GOTO 3040 

IF J<NUC THEN J=J+1:GOTO 3040 

;S=08:GOTO 3030 : 
IF CC<LCCJ> THEN S=1:CC=CC+1:X=X+1:GOSUB 11006:G0TO 3050 
FS=0:G0TO 3108 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:G0SUB11000:GOTO 3060 
FS=0:G0TO 3040 

REM 

IF FS>8 THEN FS=06:GOTO 3069 

IF FS=8_THEN FS=0:GOTO 3108 

RETURN 


REM 

REM ak LECTURA DE 1 CAMPO ak 

FS=9 

IF TP(NC)=4 THEN RETURN 

IF TPCNC>=2 THEN GOSUB 9000 :RETURN 

IF MID$CBS(NC>,CC,1)=PD$ THENX=X+S:CC=CC+S 

JOSUBE 11000 

GET A$: IF A$<>"" THEN 3338 
GOSUB11000:PRINT" aw"; :GOSUB11000:PRINT"a";MIDSCBS$UNCI,CC, 1); 
FOR T=1 TO 20:NEXT T 

GOTO 3330 
IFASCCA$>=190RASCCAS)=200wRASC(AS)=1470RASCCA$)=148 THEN 3330 
PRINT"Ma"¡AS; 

CA=ASCCAS$) 

FOR I=1 TO 15 

IF TFCI>=CA THEN FS=1:1=15:G0SUB3€30 : RETURN 

IF FS=9 THEN RETURN 


NEXTI 

IF TP(NC<O1 THEN 3450 

IF CA=45 OR CA=46 ORCCA>=48ANDCA<C=57 )THEN3428 
GOTO 3330 

IF CAC46 THEN3458 


GOSUB 4278 

IF SHP=1 THEN 3410 
S=1:GOUSUB 3520 

IF CC=LC(NC> THEN RETURN 
CC=CC+1:X=X+1:GOTO 3310 


REM 
ea dk TRASFERENCIA AL BUFFER ak 
En 


¿F CC=1 THEN SN$="":GOTO 3598 
SN$=LEFT$(BS$(NC>,CC-1) 

IF CC=LCUNC) THEN DE$="":GOTO3610 
N=LC(NCI=CC: DES=RIGHTS$CBS(NC),N> 
BS<NC)=SN$+AS+DES 

RETURN 


REM 
REM xok COMANDOS 4% 
REM 


) TF FS>5 THEN 3710 


RETURN 

IF FS=3 THEN GOSUB 13000 :RETURN 
IF FS=8 THEN GOSUB 4080:RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 

REM 

REM 4 INSERCIÓN Ak 

REM 


IF CC=LCCUNCITHEN RETURN 

IF CC=1 THEN SN$="":G0T03200 
SH$=LEFTS$C(BS(NC>,CC-1) 
N=LC(NCI=CC+1:DE$=RIGHTSCBFONCI,N) 
C$=BLg$ 

A$=SN$+C$+DE$ 

BSNCI=LEFTSCAS, LOCNCI) 

XA 

XA=CX(NC> ¿Y=CYINC>:GOSUB 11000 
X=RA EY 

REM 

PRINT BéCNC>:S=-1 

IF RIGHTSCBS(NC),1)=PDS THEN 3790 
RETURN 


REN 
REM ao BORRADO AAA 
REM 


IF TP(NC><>1 THEN 3950 

IF MIDSCBS$CNC>,2,1)=PDS AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF CC=SLCUNC) THEN DE$="":GOTO 3998 
N=LC(NCI=CC: DES=RIGHTECBSCNCI NN) 
SN$=LEFTS(BSG(NC>,CC-1) 

IF TPCNCI=1 OR TPNCI=2 THEN C$=HS4:GOTO 4010 
Cs$=F.5$ 

BS(NC)=SNG+DE$+C$ 

ANA mt 

X=CX(NC) :W=CY INC) :GOSUB 11000 

RRA: 

PRINT BSCNC): S=1:RETURN 

REM Ao AL INEADOS AMARA 

IF LC(NC=1 THEN RETURN 

N1=LC(NC>-CC+1 

IF CC=1 THEN BS$(NC>="":G0T04109 
BS(NC)=LEFT$(BS(NC),CC-1> 

IF TPCNC=1 OR TPNCI=2 THEN 4150 

FOR I=1 TO Ni 

BS(NC)=B$(NCI+BL$ 

NEXT 1 

GOTO 4199 

FOR I=1 TO Ni 

BS$(NC>=CHR$(32)+BG(NC) 

NEXT 1 

IF RIGHTS$CBSC(NC), 1)=PDS THEN PES$(NC>=BL$+LEFTSCBFCNC) LOUNCI=1) 
A=CXUNC) :Y=CY (NC) :GOSUB 11000 

PRINT BS(NC) ¿RETURN 


y SHP=0 


IF CC=1 OR CC=LCONC) THEN SHP=1: RETURN 

FOR I=1 TO LECNCA 

Ii: MIDSCBGCNCI, 1,1)=BL$ THEN I=LCCUNC) :SHP=1 ¿RETURN 
NEXT 1:RETURH 

REM 


6906 
6910 
ruua 
7001 
7002 
7003 
7004 
7005 
ruu6 
70083 


REM -- VARIACIONES -- 

GOSUB 7068 

GOSUE 3603 

REn 

ene: DS 

FOR I=1 12 

PA=I: cosUBESOS 

INPUTR2, ARAS 

N1=1+64( 1-1) :N2=N14+5 

FOR L=N1 TO N2 STEP6 
BSC(LI=MIDECARS,3,3):BS$(L+1)=MIDSCARS, 6,3): BS(L+2)=MIDICARS, 9, 4) 
ID AO 19 9 BELO MIDECARS, 17,2) ELLAS) RIHTE8I, 2) 
NEXT 


Y NEXT I 


PRINTHOS :0PZ=5:GOSUB 7088 
IF 02=2 THEN RETURN 

FOR I=1 TO 6:TPC1>)=5:NEXTI 
NUC=7?2:CW(7)=CY(1) 

FOR I=2 TO 12 


O FOR Ki=1+64CI-1) TO K1+S55TEP6 


FOR K3=8 TO 5 
TP(K1+K3)=5 :LOCK1+K9)=LC(K3+1) :ND(K1+K3)=ND(K3+1> 
OXCK1+K3)=C4(K3+1) 301 (K1+K3)=CY(K3+1)+1-1 


3 NEXT K3 


NEXT K1 

NEXT_1 

IF 0Z=2 THEN RETURN 

GOSUE 2000: J=1 
X=2:Y=6:G0SUB11000:PRINT"A"K$(K4> 

GOSUB 3035 

IF FS=6 OR FS=9 THEN 5605 

IF FS=? THEN GOSUB €400:GOSUB 66088: RETURN 
Ap 2058 


OPEN1,8,15 
RETURN 

REN APERTURA FICHERO 
REM ===> 
OPENZ, 8, 3,NF$ 


DD 
m 


O REM ===> 


RI=PA:R2=0 

IF R1>256 THEN R2=INT(PA/256) :RI=R1-2564R2 
PRINTRL, "P"CHR$(3+96)CHR$CRI)CHRF(RZICHR$C1) 
RETURN 


REM 

REM CONTROLES SOBRE LOS FICHEROS 

COSUBEBGO : CUSUBE20U 

INPUT*1,A,ES$,C,D 

COSUBE400 : CUSUBEEOO 

RETURN 

REN 

REM xl CARGA LOS DATA 4% 

IF OPZ=S THEN 7006 
L=LEHCYOS$C0PZ))-3:L$=RIGHTS$CVOSCOPZ3,L9:1F SPZ=0 THEN 7005 
U$="0Z "+STRSCOPZI+" " 
P=(30-L)/2:P$="":FORK=1TOP:P$=P3+" ":NEXT K 
PRINT"3";:PRINTCHR3(14) 

PRINT"MZA Er.i... "DICIONES -ORUM, 0.4." 





PRINT"MAR ";US; "o . 
PRINT"MZA EY) 
IF OPZ=0 THEN PRINT"3D ma"; 
PRINT"MaULg "a PG 

B 


1 z 
+ Ye22: GOSUB1 1000 AN AÁáÁKÁKÁKÁKÁáA] A _ == 
e =23:G05UB11000:PRINT"MAñI-L+ 1: 417 


E OPZ=6 THEN RETURN 

02=0PZ 

ON 0Z GOTO 7110,7110,7848,7110,7046,7042,7044 
LV=27 : GOSUE20088 : NUC=10: D5=3 : GOTU7090 

Lv=92 : GOSUB20000 : NUC=18- DS=5:GUTO7898 


a 


o LW=157 : GOSUB20008 : NUC=1 : DS=1 : G0TO7898 


Lv=163: GOSUE20000 : NUC=1 : DS=1 : GOTO7?7098 

FOR I=1 TO DS:READ D$(1>,DX<1>,DYC1>:NEXTI 

FOR I=1 TO NUC:READ TPCI>LOCIS NDCIY ORAL C YT) 
REN 

NEX 1 

RETURN 

REM CONTROL FIN FICHEROS 

IF MA<CNRM THEN RETURN 

PRINTHOS 

4=10:Y=10:COSUB11004-PRINT"EL FICHERO DATOS ESTA AGOTADO" 
4=2:'Y=20:60SUE11000:PRINT"PULSE UNA TECLA PARA VOLVER AL MENU" 
POKE193,0:WAIT193, 1: RUN 

REM 

REM 44 INTRODUCCION TEXTO 44 

PRINTCHR$C14);5 

GUSUB 7830 

P1=C1(1):NUC=20 

FOR D=2TONUC 

P1=P1+1:TPCD)=TP(1) *LOCDI=LOC1> 
NDCD)=NDC1):CXCD)=CXC 1) 

CYcD>=P1 

NEXTD 

GOSUB 2000 

GOSUB 3000 

IF FS=6 THEN 8020 


3 IF FS=9 THEN 8025 


IF F3=7 THEN RETURN 
NF$=F1I$(2): GOSUBEO0O : COSUEGZ00 
FOR U=1 TONUC 


a PA=0: GOSUEESUO 


RAS=ES(0):PRANTRZ. RAS 


) NEXTO 


GOSUE2000 

GOSUB31b0 

IF F3=6 THEN 2050 

IF F3=9 OR FS=7 THEN 8055 

FOR G1=1 TO NUC 
PA=20+01 : GOSUBESOU 
AAS=BS(01):PRINTRZ. ARS 

5 MET 01 

VEN GUSUBEEUC 

RETURI 

REN pe CORRECCIONES TEXTO 4% 
PRINTCHR$(14); 

NF$=FI$(2):GOSUB 7030. 
P1=CY(1):NUC=20 

FORD=2TONUC 
Pi=P1+1:TPD>=TPC1):LOCD=LCC1) 
NDCD)=NDC1 >: CXCODI=CAC1) 
CYeDo=F1 

NEXT D 

CUSUBEOOO : GOSUBELO0 o 
FOR D=1 TO 20 

PA=D: GOSUPES00 : INPUTRZ, ARS 
B4C(D)=AAS 

NEXT D 

X=26:W=0: GOSUE11000:PRINT"aAL7 = CONTINUA" 


3 COSUB 2500 


GOSUE 3008 
IF FS=6 THEN 352€ 
IF FS=9 THEN 8530 


S IF FS=7 THEN 8546 


FOR D=1 TO 20 
RAS$=BSCD) 
FA=D:GOSUBS300 :PRINTHZ, ARAS 


2 DATA"%A 0 L-l 


NEXT D 

REM SUCESIYOS 28 

FOR D=21 TO 48 

PA=D: GOSUEGE00 : INFUTR2, ARS 

BS(D-20)=A0$ 

NEXT D 

PRINTHOS :%=1 : =22 : GOSUB1 1690 : PRINT———ItNMé2——e€á—>> 

A=23:1=23:COSUB11000:PRINT"Añz + lo: a 1" 

COSUB2008 

GCUSUE3U00 

IF FS=6 THEN 2558 

1F FS=9 THEN B5€u 

IF F5=7 THEN GOSUE6400 : GOSUBESOO : RETURN 

FOR D=1 TO 28 

AAS=ESCD) 

PA=20+D:GOSUBS300 :PRINTRZ., RAS 

NEXT D 

GOSUEE400 : GUSUBEEB : RETURN 

REM RUTINA ERROR 

A=10:v=19:G05UB11000:PRINT"AMERFIR DE INTRODUCCION " 

FOR T=1 TO 1500:NEXT T 

4=10:Y=19:C05UB11000:PRINT" "RETURN 
REI ARAARARA RARA DATA ARERRARARAR 

ill 145,17,23,157,140, 133,136, 13,25,134.135,0.0,0,9 
En 

DATA"A -— <-1//> EMBA Tr la 4" 

A A SIE a 

To Lr0t A 1005 2%" 

TO Lt0t 1,14 ” 





DATA"A —0- “1 


5 DATA" A —0- TO/ TO Lto0r ale " 
DATA" A tul” AE a e 
DATA" A “3 YA E 
DATA" SS” ITA AA 
DATA" a “e? xr UL" eL ax Le de 
DATA" A 3" AS e 
DATA" 1 4 1 LE A 
O E ALA | TILA TR" 


REI AARARARA ¿Pe=3 RAAPAFARARAARA 
DATA"1=",7,3,"2= ",7,11,"3-= ",7,13,"4- ",7,15,"5--",7,17 


7 DATA 3.20,0,10,9 


DATA 4,2,0,33,9 


3 DATA 3,26,0,10,11 


DATA 4,2,0,33,11 
DATA 3,20,0.10,13 
DATA 4,2,0,33,13 


3 DATA 3,20,8,10.15 


DATA 4,2,0,33,15 
DATA 4,2,0,33,17 


D REM ARRE PZA 


DATA"1- ",10,11,"2- ",10,13,"3- ",18,15,"4- ",10,17 
DATA"S- ",10,139 
DATH2,10,0,14,11 


S DATA1,2,0,26,11 


DATA3,10,0,14,13 
DATA1.2,0,26,13 
DATA3,16,0,14,15 


3 DATA1,2,0,26,15 


DATA3,16,0,14,17 
DATRA1,2,0,26,17 
DATA3,10,0.14,19 


3 DATA1.2,0,26,13 


REI ARMAR RA PZA ACI: 
DATA" AA LAA 17A1P", 11,0 
DATA3,35,0,3.,2 

REI ARRRRRARER OPZZS ARA 
DATA" HT PY 1781 P",1,0 


3 DATAS,35,0.3,2 


RENT ARA RARA IAN RAR RARA 
REM 
CEM AXRA POSICIONADO EN X, Y AR 


S POKE 211,% 


POKE 214,Y a 
Sy3se732 

RETURN 

REM 

REM 4k GENERACION SISTEMA Ak 


2 PRINTHOS : GOSUB7000 


=3:Y=11:G0SUB11088:PRINT"SR 17205 LO A0T Ta Fe" 


12094 
12006 
12008 
12009 
12010 
12611 
12012 
12013 
12014 
12016 
12017 
12018 
12019 
12020 
12022 
12024 
12026 
12028 
12029 
12030 
12032 
12034 
12036 
12038 
12040 
12045 


12060 R 


12100 
12102 
12104 
12105 
12106 
12108 
12110 
12112 
12113 
12114 
12115 
12116 
12118 


15024 
15026 
15023 


=X+3:Y=+3:GOSUB11000:PRINT"E | TAot—- 14 1 18" 
GETR$: IFR$<>""THEN12012 

FOR T=1 TO 130:NEXTT E 
X=8:Y=11:G05UB11000:PRIMT" E 
K=R+3 0 W="1+3: GOSUB11000:PRINT" 

GOTO 12083 

FOR I=1 TO 3 

NF$=FI$(1):GOSUB 6909 

IF A=62 THEN 12020 
PRINTHOS:X=16:Y=10:GOSUB11000:PRINT"ATENCION !" 
Xa7:Y=Y+2:G0SUB11000:PRINT"LOS FICHEROS ESTAN CREADOS" 
4=3:=22:G05UB11000:PRINT"WIPULSE UNA TECLA PARA VOLVER AL MENU" 
POKE198,0:WAIT198, 1:RUN 

NEXT 1 

GOSUEcuOn 
FOR I=1 TO 3 
NF$=FI$CI) 

IF NF$="DATOSG" THEN AA$="1":G0T012039 
ARAS=" ” 
FOR K=1 TO LFCI>:RAS=AAS+NS$ :NEXTK 
OPEN2,9,3, "0: "+NFS$+",L, "+CHRSCLFCI+1) 
PA=1 : GOSUBE300 
PRINTH2, RAS 

CLOSEZ 
NEXT 1 
GOSUB 12108 

ETURN 

REM aok INTRODUCCION USUARIOS M4 

PRINTHOS : GOSUB7000 : OZ=0PZ+5:GOSUB7040 

FOR I=2 TO 10STEP2:B$(1)="00":NEXTI 
X=4:Y=7:GOSUB11000:PRINT"W/AT=A3F7 M4mxTM0" 
GOSUB 2408 

GOSUB 3600 

IF FS=6 OR FS=9 THEN 12102 

IF f3=7 THEN RETURN 

NF$=F1$(3) :GOSUB6200 

1=1:PA=0 

AAS=" " 

AR$=BSCI2+B$(1+1) 

PA=PA+1 : GOSUBES00 : PRINTH2, ARS 

I=14+2:1F 1510 THEN 12130 

GOTO 12115 

COSUBS400 : GOSUBECOO 

RETUF11 

REM aok AYUDA doo 

CO=x:CY=Y 

X=a1:Y=23 

GOSUB11000:PRINTH$C1>;" 5 

FOR HE=2 TO 12 

GETR$: IFR$=""THEN13020 

IF R$<>CHR$(13) THEN 13020 
GOSUB11000:PRINTH$CHE> 

NEXT HE 

CETR$: IFR$=""THEN13035 

IF R$<>CHR$(13) THEN 13035 

G0SUB11009:PRINT" SAN A 
X=C0:Y=CY 

RETURN 

REM ik INTRODUCCION DIBUJOS ax 

PRINTHOS;CHR$(14) :POKES53280, 6 

NF$=F1$(1) :GOSUBS000 : GOSUBE240 

PA=1 : GOSUBE6890 : INPUTH2, ARAS 

MX=VALCAAS) :NRM=100 : GOSUB7590 
G60SUB64008 : GOSUBESE608 

LZ=13:P1=L 264 
TAC1)=145:TAC2)=17:TAC3)=157:TA(4)=29:TA(5)=65: Tf1(6)=83: TAC?)=82 
FO PA TO 1e62 POREI 0:NEXT 
FOR 1=P + , 

SP=53248:POKESP+21,1: POREZO4O, LZ:POKESP+29, 1 : POKESP+23, 1: POKESP+29, 1 
POKESP, 255: POKESP+1,60 

X=1:Y=0 

FOR J=1 TO 24 

X=X+1 :GOSUB1 1000 

J$=STR$(J>:IF LENCIJ$>=3 THEN J$=RIGHTSCJS$, 2) 
PRINT"A"¡LEFT$(J5,1)> 

Y=+1:GOSUB11000:PRINT" 3" 5¡RIGHT$CJ5, 1> 

Ys y-1 


15930 NEXT J 


15032 


X=1:Y=0:G0SUB11000:PRINT"Wa ":Y=W+1:GOSUB11090:PRINT"3h " 


15034 
15036 
15038 
15040 
15042 
15043 
15044 
15045 
15046 
15048 
15050 
15052 
15054 
15056 
15058 
15469 
15062 
15070 
15072 
15074 
15076 
15072 
15094 
15096 
15098 
15100 
15102 
15104 
15106 
15107 
15108 
15110 
15200 
15500 
15502 
15504 
15506 
15508 
15510 
15512 
15514 
15516 
15530 
15532 
15533 
15534 
15535 
13540 
15542 
15543 


a :GOSUB11000:PRINT"2A ":Y=Y+1:GOSUB11000:PRINT"Mh " 

= 

FOR J=65 TO J+20 

Y=Y+1:GOSUB11000:PRINT" 3h" ¡CHR$(J);SPCC24)"Da " 

NEXT J 

PRINT" da al 

REM 

X=28:Y=0:GOSUB11000:PRINT"M ———" 

FOR K1=1.TO 7 

Y=+1:G0SUB11000:PRINT" 1 pp 

NEXT K1 

GOSUB11000:PRINT" ——_—" 

K=1066 

FOR J=1 TO 21 

K=K+40 

E I=K TO K+23:POKEI, 160:POKE1+54272,14:NEXTI 
TJ 

X=28:Y=108:G0SUB11009 

PRINT"8_721: MENU"; 

Y=w+1:GOSUB11000:FRINT"BA : ILUMINA"; 

Y=Y+1:G0SUB11000:PRINT"BwR :APAGA "; 

W=Y+1:GOSUB11000:PRINT"B_£1 : INTRODUCE "; 

40=2:Y0=2:%F=25:YF=22:X=X0:Y=8:51=1:52=1:CC=14:RI=9 

GETA$: IFA$<>""THEN15107 

GOSUB11000:PRINT"Wa "; 

FOR T=1 TO 30:NEXTT 

GOSUB11009:POKE646,CC:PRINT"3 "; 

FOR T=, TO 30:NEXTT 

GOTO 15096 

IF A$=CHR$(136) THEN POKESP+21,PEEK<SP+21>AND254 : RETURN 

GOSUB 15500: IF RI=1 THEN A$=CHR$(136):G0TO 15107 

GOTO 15896 

REM ome 

REM CONTROL TECLH 

FA=0:K9=9 

CA=ASCCAS) 

FOR I=1 TO ? 

IF CA=TACI) THEN FA=I:I=? 

NEXT 1 

IF FA=s0 THEN RETURN 

ON a 15530, 15540, 15550, 15560, 15600, 15650, 15700 


Y=w-1:1F Y<18 THEN W=+1:RETURN 


cosUB1 5680: IF (PEEKC832+BT>AND21B1>>0 THEN CC=0:GOTO 15535 
=1 

RETURN 

Y=Y+1:1F YIYF THEN W=W-1:RETURN 

S2=82+1 

GOSUB1S600:1F (PEEKC832+ET>AND21B1))0 HEN CC=8:GOTO 15545 


13544 CC= 


15545 
15550 
15952 
15553 
15554 
15955 
15560 
15562 
15563 
15564 
15565 
15600 
15602 
15604 
15606 
15608 
15610 
15612 
15614 
15659 
15652 
15654 
15656 
15658 
15660 
15662 
13664 
15700 


RETURN 

X=%-1:1F X<xX0 THEN %=%+1:RETURN 

S1=51-1 

GOSUB15600:1F C(PEEKC232+BT>AND21B1)50 THEN CC=0:GOTO 15555 
Cc=14 

RETURN 

X=X+1: IF X2%XF THEN 2=X-1. RETURN 

S1=S1+1 

GOSUB153600: IF (PEEKC832+BT>AND21B1>>0 THEN CC=8:GOTO 13565 
Cc=14 

RETURN 

REM ILUMINA EN EL SPRITE 
BT=(S2-1)k3+INT((S1-1)/8) 
BI=3-S1+INTCC(S1-1)/378 

IF FAXOS THEN RETURN 

POKE 832+BT,PEEK(832+BT> OR 21BI 

IF (PEEK(332+BT)AND21B1>70 THEN CC=8 

IF X=XF+1 THEN X=2:Y=+1: RETURN 

RETURN 

REM APAGA EN EL SPRITE 
BT=(S2-1)k3+INTC((S1-1)/3) 
BI=3-Si+INT(CS1-1)/87K8 

IF FA<>6 THEN RETURN 

POKE 832+BT,PEEK(332+BT) AND (235-21B1> 
IF CPEEK(832+BT>0R21B1)>0 THEN CC=14 

IF X=XF+1 THEN X=2:W=+1:RETURN 

RETURN 

REM dado FASE DE GRABACIÓN aka 


15701 


15706 
15707 


16000 
16005 


16011 
16012 
16014 
16016 
16017 
16019 
16020 
16021 
16022 
16024 
16026 


REM PRIMERO GRABA LOS VALORES DEL SPRITE Y LUEGO S LINEAS DE DATOS C(68C.> 
PRINTHOS : PRINTCHR$( 14) :POKESP, 150: POKESP+1,70 
0Z=7:G0SUB 7040 

IF OPZ<52 THEN GL=14x:G0TO15787 
FORK=1T010:TPCK>=5: NEXTK 

GL=NL 

X=3:=22:00SUB11000:PRINT"ML—=F7 /. 9" ;GL 
X=25:=23:C0SUB11000:PRINT"M2d-z1 +1 : 417 
GOSUB 2088 

GOSUE 3069 

IF FS=6 THEN 15769 

IF FS=9 THEN 15710 

IF FS=7 THEN RUN 

FOR 1=4 TO 62 

B1=PEEK(832+1):B1$(1)=STR$(B1> 

IF B1<10 THEN B1$(1>="00"+RIGHT$(B1$(1),1):GOTO 15730 
IF B1<100 THEN B1$C1>="0"+RIGHT$(B1$(1>,2):G0T015738 
B1$(1)=RIGHT$(B1$(1)>,3) 

NEXT 1 

NR=1+4M(GL-1>+1 

NF$=F 1$(1) : GOSUBE000 : GOSUBE260 

Añs="" 

FOR I=8 TO 20 

ARS=AAS+B1$C1)> 

NEXT_1 

PA=NR:GOSUB 6800 :PRINTH2,RAA$ 

NR=NR+1:AR$="" 

INPUTH1,A,B$,C,D 

FOR I=21 TO 41 

AAS=ARS+B1$C1) 

NEXT_1 

PA=NR :GOSUB 6300 :PRINTH2, RAS 

NR=NR+1:AA$="" 

INPUTR1,A,B$,C,D 

FOR I=42 TO 62 

ARAS=ARS+B1$C1) 

NEXT 1 

PA=NR:GOSUB 6380:PRINTH2Z, RAS 

NR=NR+1:AA$="" 

INPUTR1,A,B$,C,D 

FOR I=1 TO 10:AR$=AAS+B$(1>:NEXTI 

AAS=ARS+ "448" 

PA=NR : GOSUBE800 : INPUTH1 A, B$,C,D:PRINTH2Z, ARS 
INPUTH1,A,B$,C,D 

IF 0PZ=2 THEN R$="N" :GOSUB6448:GOSUBESB0:GOTU 15832 
AAS="":MX=MX+1:MX$=STR$ (MX) 

IF MXC10 THEN MX$="00"+RIGHT$(MX$, 1) :GOTO15795 
IF MxX<100 THEN MX$="0"+RIGHTS$(MX$, 2) :GOTO15795 
MX$=RIGHT$(MX$, 3) 

AAS=MX$ 

FOR I=i TO 68 

AAS=ARS e "8" :NEXT 1 

PA=1 : GOSUBESU0 

PRINTH2, ARS 

GOSUB 6400:G0SUB 6600 
X=0:Y=23:G05UB11000:PRINT"20TRA INTRODUCCION (S/N) ?";5 
GETR$:IFR$=""THEN 15830 

IF R$="N" THEN RI=1:RETURN 

IF R$<>"S" THEN 15830 

GOTO 15000 

REM --- FIN INTRODUCCION DIBUJO -- 

REM it CORRECCION LECCIONES xakk 
NF$=F1$(1) : GOSUB6000 : GOSUBE200 

PA=1 : GOSUBE300: INPUTR2, ARAS 

MA=VALCAAS) 

IF Mx<=1 THEN GO0SULE400 : GUSUBE6BO : RETURN 
GOSUB?7008 
X=3:=10:G0SUB11000:PRINT"SINTRODUCIR EL NUMERO DE LECCION "” 
%=3:Y=12:G0SUB11000:PRINT"2A VARIAR € 1 -"Mx-1") ";: INPUT "2a";NL 
IF NL<=0 OR NLMX-1 THEN 16014 

NR=1 rákk(NL-1)+1:REM APUNTA A LA LECCION PEDIDA 
PA=NR : GOSUBE2E90 : INPUTH2, ARS 

Kl=-2 

FOR 1=0 TO 20 

K1=K1+3 

B1$(1)=MIDS$CAR$,K1,3) 


16028 NEXT 1 


16039 
16031 


PA=NR+1 : GOSUBG200 + INPUTH2, ARS 
Ki=-2 


16032 FOR I=21 TO 41 

16034 K1=K1+3 

16036 B1$(1)=MID$(AA$,K1,3) 

16038 NEXT I 

16040 PA=NR+2:COSUBE300: INPUTHZ, ARAS 
16041 Ki=-2 

16042 FOR 1=42 TO €2 

16044 K1=K1+3 

16046 B1$(1>=MIDS$CARS$,K1,3) 

16048 NEXT 1 

16053 FOR I=0 TO 62 -POKE832+1,WAL(B1$(1)>:NEXT 1 
16055 PA=NR+3: COSUBESOO : INPUT 2. RAS 
16056 K4=-11 

16069 D=1 

16061 K4=k4+12 

16062 B$(D>=MIDS(AA$,K4, 10) 

16064 ESC(D+1>=MIDS$CARS,K4+10,2> 
15066 D=D+2:IF D>10 THEN 16070 
160868 GOTO 16061 

16878 GOSUEE400 : GOSUBEEDO 

16075 PRINTHOS;CHR$(14):POKES3280,6:G0T0 13006 
20008 REM RESTORE DATA 

20005 RESTORE 

20010 FOR I=6 TO 62:READ D:NEXTI 
20029 FOR I=1 TO NV:READ X$:NEXTI 
20025 FORK=1 TO 3 

20030 FOR 230 TO 62:READ D:NE«TI 
20033 NEXT K 

20045 IF LY<0 THEN RETURN 

20050 FOR I=1 TO LY:READ LV$:NEXTI 
20100 RETURN 


UG 


S REM MATT 
€ REM A ORTOGRAF IA-GRAF ICA, LECCIONES 
7 REM acond 


2 REM AMARA RA RARA MATAN RARA: 


DIM B$(80),TP(80),LCC80),ND(80),0X(80), 0180), DX(25), DW(25) 

DIM TFC15),D$(25),V0$(20),FI$(3),LF(3),H$(12),B1$(62) 
FI$(1>="DATOSG":FI$(2)="TEXTOG" :FI$(3)="NOMBRESG" :LF(1)=62:LF(2)=35:LF(3)=22 
EL$=" ":PD$=".":AS$="-' :NS$="4":SUS="M":GIUS="N":HOS$="0]" :SL$="/" 
US$=CHR$(133) :NV=4:XC=7:YC=6:SZ=2:POKE 650,128 

PRINTHOS : COSUB1300 :PRINTHOS : PRINTCHR$(142):REM dk MENU dk 

IF OPZ=4 THEN CLR:LOAD"ORTOGRAFIA",8 

GOUSUB20000 

FOR I=1 TO ¿5:READ TFCI>:NEXTI 


40 FOR I=1 TO 12:READ H$C1):NEXTI 
120 ON OPZ GOSUB 3500, 12100, 15300 
150 GOTO 26 

1300 REM rre 


1301 REM * 


MENU PRINCIPAL 


1302 REM era 

1303 LV"-1:POKES3281,6:POKES3280, 14 

1305 Us$=" MENU ":0P2=0:WO$C0PZ3="  Palfl-Aot (lA )":GOSUB 7000 
1309 OPZ=1 

1310 SS=53248 

1311 POKE 35+39,6:POKES5+23,0:POKES9+23, 0 

1312 POKESS,50:POKESS+1,111 

1313 POKESS+21,1:'POKE2040, 19 

1316 RESTORE 

1318 FOR I=0 TO 62:READH:POKES32+1,W:NEXTI 

1321 POKESS+39,1:C1=50:C2=111 

1323 GOSUB 1363 

1324 GOSUB 1396 
1327 CET OPZ$:1F OPZ$="" THEN 1327 

1333 IF OPZ$=GIU$ THEN C2=C2+16:0PZ=0PZ+1:G0SUB1363 
1336 IF 01 Z$=SU$ THEN C2=C2-16:0PZ=0P2-1:GUSUB1363 
1339 IF OPZ$=US$ THEN 1381 

1342 IF ASCCOPZ$)=25 THEN GOSUB 1456:G0T01385 

1345 GOTO 1327 

1363 REM xk 

1366 IF C2<111 THEN C2=C2+16:0PZ=0P2+1:RETURN 

1369 IF C27159 THEN C2=C2-16:0PZ=0PZ-1: RETURN 

1372 POKESS,C1 :POKESS+1,C2 

1373 RETURN 


REM ak 
1381 X=XC:'Y=0PZASZ+YC 
1324 GOSUB 11008 


1387 
1399 


PRINT" 3" ;VOSCOPZ) 
FOR T=1 TO 1000: NEXTT 
POKESS+21, PEEK(S5+21)AND234 


3 RETURN 


REM 

FOR J=1 TO NV:READ VO$cJ>:NEXTJ 
FOR II=1 TO NY 

X=AC:Y=11452+C 

G0sUB11009 

PRINT"a";VO$cI1) 

NEXT II 

RETURN 
DATAG,B,4,0,76,0,0,144,0,3,32,0 
DATA4,64,0,8, 143,252, 17,112,2,224,125,252 
DATAO.63,0,0,65,0,0,63,0,0,31,0 
DATAS, 33,0,0,31,0,224,63,0,16,81,0 
DATA15.30,0,8,0,0,0,0,0.0,0,0,0,0,0 
DATA"1- PRESENTACIÓN DEL TEXTO " 
DATA"2- LISTA USUARIOS" 


3 DATA"3- “ESARROLLO LECCIONES" 


DATA"0- IN DE TAREA" 


S REM aaa AYUDA MENU ARA AO 


PRINTCHR$(147) :PRINTCHR$(14> 
POKESS, 255: POKESS+1,115:POKESS+39,6 
POKES5+40,6:POKESS+41,6 


3 POKESS+21,7:POKE2040, 13:POKE2041, 14 :POK:2042, 15: POKES3+29, 4 


FORN=0T062 : READQ : POKES32+N, 0 :NEXTH 
FORN=0T062 : READO : POKE896+N, Q:NEXTN 
FORN=0T062 : READO : POKE960+N, Q:NEXTN 
POKESS+329, 1: POKESS+40, 1:POKESS+41, 1 
POKE 53281,6 


SPRINT KRÁ ————— A AA AAA 


FOR a =1 TO 15:PRINT"MI 1"5+NEXTI 
PRIN ” y _A_— —_——___—__ — _———  ——— — —————— ————, : 
PRINTCHR$(19>:PRINTTABC7) "MIMI TO — Nx 0" 
POKESS+2, 235: POKESS+3, 145: POKESS+4, 245: POKESS+5, 190 
PRINT"MIBBNDESPLAZA ABAJO: " 

PRINT"MEBBIDESPLAZA ARRIBA: " 

PRINT"MMBBINTRODUCE OPCION ELEGIDA: " 

PRINTTABC3) "MITA //% 1718 MA MUA ALO 
GET R$: IFR$=""THEN1513 

POKESS+39,6:PRINT"0J" : RETURN 
DATAS,255,192,12,6,32,16,16,16,32.56,8,32,108,8 
DATAÉ4, 40, 4,64,40,4,64,0,4,93,206,223,81,72,164 
DATAS1,205,228,81,66, 164,93,46.143,64,0,4 

DATRE4, 40, 4,64,48,4,32,103,8,32,56,8,16,16,16 
DATRA12,0,32,3,255,192 

DATAS, 255, 192, 12,0,32,16,32,16,32,120,8,32.192,8 
DATRE4,120,4,64,32,4,64,0,4.92,206,223,81,72,164 


5 DATAS1,206,225,91,6€, 164,93,46,148,64,4,4,64,16,4 


DATR64, 120,4,32,12,8,32,120,8,16,16,16,12,0,32,3,255, 192 
DATAG, 6,0,7,255,224,24,0,24,96,0,6,128,0,1,129,1,129 
DATA134,131,129,132,2,129,132,0,129,142,0,129 
DATA122,0,129,122,0,1293,132,0,129,12£,0,1,96,0,6 
DATA24,6,24,7,255,224;0,0,0,0,0,0,0,0,6,0,0,0 

E FIN DEL MENU PRINCIPAL 


REM Xd PRESENTA MASCARA 4% 
FORI=1TODS:X=DX<1):Y=DYC1):G0SUB11000:PRINT"A"D$CI>:NEXTI 
FOR J=1 TO NUC 

As="" 

IF TPCJ)<55 AND TPCJ)<74 THEN 2060 

XSCXCJ) ¿YC CJ): GOSUB11000:PRINT"A"5B$(J> 


5 GOTO 2130 


NISLCCJ) :N2=ND(J):1F TPCJ)=1 OR TP(J)=2 THEN CS=NS$:G0TOZ2078 
C$=A5$ 

FOR I=1 TO Ni-N2-1:A$-A$+C$:NEXTI 

IF N2=0 THEN AS=A$+C$:GOTO 2895 
AS=AS+PDS 

FOR I=1 TO N2:A$=A8+"8":NEXTI 

X=CRCI) ¡W=CY CJ) :GOSUB 11008 

PRINT "mAs; "a" 

BS(Jy="" 

FOR K=1 TO NI-N2-1 

ES(I)=BSCIIHHSS 

NEXT K 

IF N2=0 THEN ESC(J)=E$(J)+NS$:GOTO 2138 
ES CJ) =BS(J)+PD5 
FORK=1TONZES(J)=E$(J)+NS$ : NEXTK 


8 IFASCCAS)=190RASCCAS>= 


NEXT J 

RETURN 

REM 

REM kk DATA ENTRY ak 

J=1 

NC=J : X=CX(NC) : W=C' Y NC) 

Cc=1 

GOSUB 3248 

IF FS=9 THEN RETURN 

IF FS=6 THEN 3109 

IF FS>74 THEN 23210 

GOTO 3120 

REM CARACTER 

J=3+1:1F J>NUC THEN 3030 

GOTO 3048 

ON FS GOTO 31230,3150,3178,3190 
IF J>1 THEN J=J-1:GOTO 23049 
FS=0: J=NUC:GOTO 3048 

IF J<NUC THEN J=J+1:G0TO 3040 
Fs=0:GOTO 3030 

IF CC<LCCJ) THEN S=1:CC=CC+1:%=X+1:G05UB 11000:G0TO 30608 


O FS=0:COTO 3108 


IF CC>1 THEN S=-1:CC=CC-1:X=X-1'GOSUB11098: GOTO 3069 
FS=0:GUTO 3048 

REN 

IF FS>3 THEN FS=0:G0TO 3860 

IF FS=3 THEN FS=8:GOTO 3108 

RETURN 


REM 

REM dk LECTURA DE 1 CAMPO dk 

Fs=0 

IF TPCNC)=4 THEN RETURN 

IF TPNC)=2 THEN GOSUB 90900: RETURN 

IF MIDSCBSCNC>,CC,1)=FDS$ THENX=X+S :CC=CC+S 
GOSUB 11060 

GET A$:IF A$<>"" THEN 3338 

G0SUB11600:PRINT" 2"; :GOSUB11000:PRINT"k"¿MIDSCBS(NCI,CC, 1); 
FOR T=1 10 20:NEXxT T 

GOTO 3330 

GORASC(AS)=1470RASCCAS)=148 THEN 3330 
PRINT"MA"; AS; 

CA=ASCCAS) 

FOR I=1 TO 15 

IF TFCID=CA THEN FS=1:1I=15:G0SUB3620 : RETURN 
IF FS=9 THEN RETURN 

NEXTI 

IF TPCNC<O1 THEN 3450 

IF _CA=45 OR CA=46 ORCCA>=48ANDCA<=57 )THEN3420 
GOTO 3338 

IF CA<>46 THEN345u 

GOSUE 4278 

IF SWP=1 THEN 3416 

S=1:G0SUB 3520 


O IF CC=LC(NC> THEN «ETURN 


CC=CC+1:X=X+1:G0TO 3310 

REM 

REM ak TRASFERENCIA AL BUFFER dk 
REM 

IF CC=1 THEN SN$="":GUTO 3598 


SN$=LEFT$(BG$(NC>,CC-1) 
IF CC=LC(NC) THEN DE$="":GOTO23619 


N=LC<NC)=CC : DES=RIGHTECBSCUNC)¿N) 
BS(NCI)=SNS+AS$+DES$ 

RETURN 

REM 

REM dk COMANDOS 4h 

REM 

IF FS>5 THEN 3710 

RETURN 

IF FS=3 THEN GOSUP 13008: RETURN 


IF FS=8 THEN GOSUE 4888:RETURN 
IF FS<O THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 


REN 
REM dk INSERCION 3d 
REM 


IF CC=LC(NC)THEN RETURN 
IF CC=1 THEN SN$="":CcOTO3800 


SNS=LEFTFCBFCNCI,CC-1) 
NaLCONCIEC+1 E DES=RIGITECESFONCI ¿NM 
CS=BLg$ 

AS=3H3+C$+DE$ 

BS(NCI=LEFTSCAS, LOCNCI 

AAA 

X=CXUNC) :Y=CY(NC):GOSUB 11000 
ZSRR: =P 

REM 

PRINT B$(NC>:S=-1 

IF RIGHT$CB3C(NC), 1)=PDS THEN 3780 


S RETURN 


REN 

REM dao BORRADO HRARA 

REM 

IF TPCNCI<51 THEN 3950 

IF MIDS$CBS$(NC),2,1)=PDS AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF CC=LCCNC) THEN DE$="":GOTO 3930 
H=LCINCI—CC  VES=RIGHTSCESONCI,N) 
SN$=LEFTS<B$(NC>,CC-1) 


IF TPCNCA=1 OR TPONCI=2 THEN C$=N3$:GOTO 4019 
C$=A3$ 
BS(NC)=SNI+DES$+C$ 
RRA: 
Y X=CXUNC) :'=CW NC) :GOSUB 11000 
AS 
PRINT BS$(NC> -S=1 RETURN 


REM AR ALINEADOS ARA 

IF LC(NCI=1 THEN RETURN 

N1sLC(NC)-CC+1 

IF CC=1 THEN BS4(NC)="":GOTO4108 
BS(NCI=LEFTSCBSCNC),CO-1) 

IF TPONC>=1 OR TPNC=2 THEN 4150 

FOR I=1 TO N1 

BSUNCI)=BFCNCI+BLS 

NEXT 1 

GOTO 4190 

FOR I=1 TO Ni 

BSUNC)=CHR$C32+BGCNC) 

NEXT 1 

IF RIGHT$CBS$CNC),1)=PDS THEN ES(NC>=BL$+LEFTSCBSONC),LOCNCI=1> 
A=CACNC) ¿Y=CW (NC) :GOSUB 11000 

PRINT B$(NC> RETURN 

SHP=0 

IF CC=1 OR CC=LCINC) THEN SWP=1:RETURN 
FOR I=1 TO LCCNC> 

IF MIDSCBSINC>,1,1)=BL$ THEN I=LCCUNC) :SHP=1 : RETURN 
NEXT I:RETURN 

REN 


REM 
REM 44 GESTICN DISCO A 
REN 


OPEN1,8,15 
RETURN 

REM ona nión 
REM APERTURA FICHERO 
RENALES SS 
OPENZ, 3, 3,NF$ 
REN 


REM -======-=-- 


REM APUNTA AL REGISTRO 

REM —=—========-- 

R1=PA:R2=0 

IF R1>256 THEN R2=INT(PA/256) :R1=R1-2564R2 


PRINIF1L, "PLHR$O3+967LHR$SCRI)CHASCRZLICHAREC1) 
RETURN 

REM 

REM CONTROLES SOBRE LOS FICHEROS 
CUSUBE060 : GCOSUBE2U0 

INPUT+1,A,B$,C,D 

GOSUBS480 : GCOSUBSEGO 

RETURN 

REM 

REM dex CARGA LOS DATA Ak 

IF OPZ=S THEN 7006 
L=LENCWO$C0PZ>>-3:L$=RIGHTS(VWOSCOPZ),L):1F OPZ=0 THEN 7005 
U$="x0Z "+STRSCOPZI+" " 
P=(30-L>/2:P$="":FORK=1TOP:P$=P$+" ":NEXT K 
PRINT"3";:PRINTCHR$(14) 


PRINT"MAN ET.|... “DICIONES —ORUM, 4.%." 
PRINT'"MZA "¡US; "A pl 
PRINT"MEN DPS; 


IF OPZ=0 THEN PRINT" 3 Ma"; 

PRINT"ET"L$; "20 PS 

PRINT"IBDDDDDIAS : 
IF 0PZ=2 OR OPZ=1 THEN 7049 

X=1 :Y=22: GOSUB1 10999 : PRINT ——————_—_—_——_—_——___—————————————_—_" 
4=23:Y=23:G0SUB11000:PRINT"A-|_L+ 1: 4158" 

REM 

IF OPZ=08 THEN RETURN 

ON OPZ GOTO 7842, 7044,7110, 7046 

LV=27 : COSURB204408 : NUC=1 : DS=1 :GOTO7098 

Lv=35: G0SUB20090 : NUC=18: DS=7:GOTO7099 

LvV=106 : COSUB20000 :NUC=6 : DS=6:G0TO7098 

FOR I=1 TO DS:READ D$C1>,DXC1>,DYC1):NEXTI 

FOR I=1 TO NUC:READ TPCI>,LCCI)NDC 12, CXC 12 CC 1) 
REM 

NEXT 1 

RETURN 

REM CONTROL FIN FICHEROS 

IF MXCNRM THEN RETURN 

PRINTHOS 

2=10:Y=10:G0SUB11000:PRINT"EL FICHERO DATOS ESTA AGOTADO" 
A=2:Y=20:G0SUB11000:PRINT"PULSE UNA TECLA PARA VOLYER AL MENU" 
POKE198,0:WAIT198, 1:RUN 

REM 4 PRESENTACION TEXTO 404% 

PRINTCHR$(14);5 

NF$=FI$(2):GOSUB 7030 

P1=Cw(1):NUC=28 

FORD=2TONUC 

P1=P1+1:TPCD)=TPC1):LOCD=LCC1> 
NDCD)=NDC 1) :CX(D)=CXC1) 

CvcD>=P1 

NEXT D 

GOSUB6080 : GCOSUBEZ208 

FOR D=1 TO 20 

PA=D: GOSUEG200 : INPUTH2, ARS 

BS$(D>=AAS$ 

NEXT D 

4=26:Y=0:GOSUB11000:PRINT"=aL7 = CONTINUA" 

GOSUB 2000 

CETAS$: IFA$=""THEN 8532 

IFAS<OCHR$C(136)THEN 8532 

REM SUCCESSIVI 29 

FOR D=21 TO 40 

PA=D: GOSUESEUO : INPUTRZ. ARAS 

ESCD-20)=AR$ 

NEXT_D 

PRINTHOS : GOSUB2088 

GETAS: IFA$=""T EN 38560 

IFAS<OCHR$C136)THEN 8568 


> COSUBE408 : GOSUBECUO : RETURN 


REM 
REM RUTINA CALCULOS 
REM 


REM RARA DATA HUA 

DATA 145,17,29,157,148,133,136,13.25,124,135,0,0,0,0 
REM 

IATA" A  <-1./> MA Ta tn" 

A a SI A 
DATA"A 0 LI: TO LAOA A 10057" 








0 Lst0t e 18 a 
DATA"za 0 "TO/ : MN TO LAO AIR 


DATA" —-0- 1 


12105 
12107 
12109 
12113 
12114 
12115 
12117 
121183 
12119 
12120 
12121 
12122 
12123 
12124 
12125 
12130 
12132 
12134 
12135 
13000 
13005 
13010 
13015 
13017 
13020 
13021 
13022 
13030 
13035 
13036 
13040 
13045 





DATA" sa gana 8748 LALA 
DATA" sha ¿ae AT 
DATA" dh E E 
DATA" sa Ez VAT WUSTE 
DATA" sa 21 ASE 
DATA" 1 +1 ATA 

DATA"dA 1 0/ A E Y 
DATOS IRA LO 


DATAS,35,0,3,2 

REM MAR OP ZO AAAMOOO 

DATA" 9 /SUARIO",7,7,"8d ATIMA LECCION SUPERADA", 15,7 
DATA"1-= *,7,9,"2= ",7,11,"3- ",7,13,"4- ",?.15,"5- ",7,17 
DATA 4,20,0,10,9 

DATA 4,2,8,33,9 

DATA 4,28,0,10,11 

DATA 4,2,0,33,11 

DATA 4,20,0,10,13 

DATA 4,2,0,33,13 

DATA 4,20,6,18,15 

DATA 4,2,0,33,15 

DATA 4,20,0,10,17 

DATA 4,2,0,33,17 

A MA 

DATA"1- ",10,13,"2- ",10,15,"3- ",10,17,"4- ",10,19 
DATA"S- 10,21," TAN TA 7",5,11 
DATA4, 10,0,14,13 

DATA4,10,0,14,15 

DATA4,10,0,14,17 

DATA4, 10,0,14,19 

DATA4,16,0,14,21 

DATA1,2,0,34,11 

a HECHA A AA dol: 

El 


REM Ak POSICIONADO EN X.Y od 

POKE 211,% 

POKE 214. 

Svs58732 

RETURN 

REM dk LISTA USUARIOS ok 

PRINTHOS : GUSUB70U0 

NF$=FI$(3):G0SUB 6909 

IF AC262 THEN 12113 

RETURN 

GOSUBE0B0 : GOSUBE200 

K9=1:PA=1 

COSUEE800 : INPUTH2Z, ARS 

BS(K9)=LEFT$CARAS, 20) 

ES(K9+1)=RIGHTSCARS, 2) 

P=VAL(BS(K9+1)>-1:1F P<O THEN B$(K9+1>="009":G0TO12123 
IF P<10 THEN B$(K9+1)="0"+RICHTSCSTRS(P),1):G0TO12123 
IF P=0 THEN B$(K9+1)="01":GOTO12123 
B$(K9+1)=RIGHTS$CSTRECP),2> 

K9=K9+2:1F PAS THEN 12125 

PA=PA+1:GOTO 12115 

GOSUB2000 

4=3:W=21:G05UB11000:PRINT" PULSE UNA TECLA PARA VOLVER AL MENU" 


POKE198,0:WAIT198, 1 
GOSUB6408 : GOSUBEEGO 

RETURN 

REM Aok AYUDA ak 

C0-X:CY="Y 

2=1:Y=23 

E UREA PRINTHSC1)5" 
FOR HE=2 TO 12 

GETR$: IFR$=""THEN13020 


IF R$<>OCHR$(13) THEN 12029 

GOSUB11000: PRINTH$<HE> 

NEXT HE 

GETR$: IFR$=""THEN13035 

IF R$COCHR$(13) THEN 12035 

GOSUB11000:PRINT" A+ 1: 410; 
X2=CU0:Y=CY 


130590 RETURN 


15900 
15903 
15906 
15910 
15911 
15912 


REM 44 LECCIONES ak 


PRINTHOS:0PZ=3:GOSUB 7080 = 
X=7:=10:GOSUB11899:PRINT"3R/1 7 TAN" 
X=7:Y=13:GOSUB1 1889: PRINT"M ===> " 
%=7:Y=12:G0SUB1 1690: INPUT"NI" NOS 

IF LENCHOS)=0 THEN 15910 


15913 
15914 
15916 
15918 
15920 
15922 
15924 
15926 
15928 
15938 
15932 
15934 
15936 
15938 
15950 
15952 
15953 
15954 
15955 
15956 
15957 
15958 
15959 
15969 
15961 
15965 
15978 
16009 
16005 
16007 
16010 
16011 
16012 
16615 
16017? 
16018 
16020 


16021 Kl= 


16022 
16024 
16026 
156028 
16030 
16031 
16932 
16034 
16076 
16038 
16040 
16041 
16042 
16044 
16046 
16048 
16053 
16053 
16056 
16069 
16061 
16062 
16064 
16866 
16068 
16970 
16073 
16030 
16082 
16024 
16026 
16023 
16029 
16099 
16092 
156100 
16102 
16185 
16119 
16112 
16114 


GOSUB25008 : NO$=LEFT$(NO$, 20) 
NF$=F1$(3):GOSUB 6900 
IF AX>62 THEN 15920 
RETURN 
Aa a GOSUBE6208 
GOSUB 6288: INPUTR2.AAS 
D$=LEFTSC(AAS$, 20) 
IF D$=NO$ THEN K8=20:G0T015950 
FOR l=1 TO 20 
C1$=MID$CNO$,M, 1):C2$=MIDG CARAS. M, 1) 
IF C2$=CHR$(32) OR C2$=CHR$(35) THEN K8=K38+1:G0TO 15938 
IF C1$=C2$ THEN K8=K8+1 
NEXT W 
IF K3=20 THEN 15969 
PA=PA+1:K8=0:1F PAS THEN 15954 
GOTO 15924 
GOSUB 6400:GOSUE 6600 
X=7:Y=14:G0SUB11000:PRINT"ZEL NOMBRE 4";NOS; "33" 
%=7:Y=1+1:GOSUB11000:PRINT"NO EXISTE ENTRE LOS" 
w=Y+1:G0SUB11000:PRINT"PREVISTOS EN EL FICHERO USUARIOS" 
X=3:221:G05UB11000:PRINT"NPULSE UNA TECLF. PARA VOLVER AL MENU" 
POKE198,0:WAIT193,1:RETURN 
REM Ao ENCONTRADO Ak 
GOSUB 6400:G0SUE 6689 
LE=WALC(RIGHTS$CAR$, 2)):PR=PA 
IF LE=0 THEN LE=1 
REM dk DESARROLLA LECCION HLE 44% 
WFS=FI$(1): GOSUBEBOO : GOSUBE200 
PA=1 : GOSUBE300: INPUTH2, ARAS 
MA=VAL CARS) 
IF mMX<=1 THEN GOSLIBG400 : GOSUESEDB : RETURN 
IF LE>=t1xX THEN GOSUEE6460: GOSUBEE00 : RETURN 
GOSUE7000 
NL=LE 
NR=1+9A(WL-1>+1:REM APUNTA A LA LECCION DESEADA 
ORAR 
FOR 1=0 TO 20 
K1=K1+3 
B1$C1)=MID$(AA$,K1,3) 
NEXT 1 
CT RRA 
1=- 
FOR I=21 TO 41 
K1=K1+3 
B1$C1)=MIDSCAR$,K1,3) 
NEXT_1 
PA=NR+2 : GOSUBE300 : INPUTH2. ARS 
Ki=-2 
FOR I=42 TO 61 
K1=K1+3 
B1$(1)=MIDSCAR$,K1,3) 
NEXT 1 
FOR I=0 TO E<:POKES32+1,WAL(B1$(1)):NEXT 1 
PASHR+3: GOSUBES00 : INPUTH2, ARS 
K4=-11 
D=1 
K4=K4+12 
BS(D>=MIDSCARS,K4, 10) 
RCDI=VAL(MIDÍCARS,K4+10,2>) 
D=D+1:1F D>S THEN 16870 
GOTO 16061 
GOSUBE406 : COSUBECGO 
PRINTHOS;CHR$(14) :POKES3280. 6 
L2=13:PI=L 2464 
SP=53248 : POKESP+21,1: UE LZ:POKESP+39, 1: POKESP+23, 1:POKESP+29, 1 
POKESP, 150: POKESP+1, 7! 
OPZ=4:COSUB 7048 






LE 
$ 


GOSUB 2000 

GUSUE 3068 

IF FS=6 THEN 16090 

IF FS=9. THEN 16092 

IF FS=7? THEN POKESP+21,PEEKC(SP+217AND254 : RETURN 
FOR l=1 TO 5 

IF RCMN)<O0 THEN RI=b 

NEXT ul 


16128 E 
16138 
16131 
16150 
16153 


16160 LE= 


16165 
16167 
16170 
16175 
16180 
16183 
16185 
16190 
16192 
16194 
16196 
16198 
16200 
20000 
20005 
20010 
20020 
20025 
20030 
20035 


a 
mua 


F VALCESC6))=RI THEN ER=0:C0TO016130 
=1 


REM OO EXISTENCIA ERROR 
GOSUB 21080 


IF ER=1 THEN 16099 

LE+1:LS$*STRECLE) 

IF LE<10 THEN L$="0"+RIGHT$CL$,1):GOTO 16178 
L$=RIGHT$(L$, 2) 

AR$=NO$+L5$ 

NF$=FI$(3):GOSUB 6008:G0SUB 6268 

PA=PR:GOSUB 6300 

PRINT+2, ARS 

GOSUB 6400:GUSUB 6604 

POKE SP+21,PEEKCSP+21 )AND254 : PRINTHOS 
X=2:Y=10:G0SUB11000:PRINT"2PROXIMA LECCION PARA" 
W=+2:G0SUB11000:PRINT NOS; : INPUT" (S/N) A"¡R$ 
IF R$="S" THEN PRINTHOS:OPZ=3:COSUB7990:G0TO15912 
O R$<>"N" THEN 16192 

REM RESTORE DATA 

RESTORI 

FOR 156 TO 62:READ D:NEXTI 

FOR I=1 TO NV:READ 4$:NEXTI 

FORK=1 TO 3 

FOR I=8 TO 62:READ D:NExTI 

NEXT K 


= 
m 
a 


3 1F Lv<O THEN RETURN 


20030 
20100 
21000 
21001 
21002 
21005 
21009 
21010 
21012 
21014 
21016 
21018 
21025 
21027 
21029 
21030 
21032 
21035 
21037 
21039 
21040 
21045 
21050 
253000 
25005 
25010 
25020 


FOR I=1 TO LY:READ LV$:NEXTI 

RETURN 

REM 

ESOS" A ESCORTS TA 

L(1)=97 :L(2)=104:L(3)=143:L(4)=47:L(5)=142:L(6)=24 :L(7)=210 
Hc1)=8:H(2)=9:H(3)=10:H(4)=11:H(57=12:H(6)=14:H(73=15 
FOR R=54272 TO 54296: POKER. 0: NEXTR 
POKES4272,0:P0KES34273,9 
POKES4274,0:POKES54273,8 
P0KES4278,240:P0OKES4296, 15 
POKES54277,6:POKES4276,65 

FOR F=1 TO 7? 

POKE 54272,L(F>:POKES4273,Htr> 

FOR T=1 TO 100: NEXTT 

POKES46.F :X=22:'1=8:GOSUB11000:PRINTESCER> 
NEXTF Ñ 

FOR F=7? TO 1STEP-1 

POKE 54272,LCF): RAN HCF> 

FOR T=1 TO 100:NEXT 

POKE646,F:X=22:=0: Cosup1 1008: PRIMTESCER> 
NEXTF 

FOR R=54272 TO 54296 :POKER, 0: NEXTR 
X=22:Y=0:G0SUB11000:PRINT" "RETURN 
REM ---- COMPLETA CADENA ---- 
L9=LENCNOS>:IF L9=>20 THEN RETURN 

FOR K=1 TO 20-L9:NO$=N0$+CHWR$(32):NEXT K 
RETURN 


2114 


RELACION DE LAS VARIABLES - COMMODORE 64 


Versión con sólo texto 


BS$(+*) = matriz de los buffers (1 por 
campo de introducción 

LC(«*) = longitud del campo de in- 
troducción 

ND(+*) = número de decimales en el 
campo de introducción 

ol 


CY («) 


DX(«) 
DY («) 


= coordenadas en la pantalla 
del campo de introducción 


= coordenadas en la pantalla 
de la descripción 

TF(+) = matriz numérica que con- 
tiene códigos ASCII de las 
teclas comando 

D$(«*) = descripciones en máscara 
vídeo 

VOS$(«) = voces del menú principal 

BL$  = blank 

PD$  =punto decimal 

AS$  =carácter “—”; ¡identifica 
campos introducción alfa- 
numéricos 

NS$ =carácter “*”; identifica 
campos introducción nu- 
méricos 

HO$  = borra la pantalla 

NUC =número de campos intro- 
ducción en máscara vídeo 
activada 

DS = número descripciones en 
máscara vídeo 

HS(*) = matriz que contiene las ca- 
denas ayuda 

FIS(«) = matriz nombres ficheros 
datos usados 

LF(*) = longitud registro (en bytes) 
de los ficheros tratados 

NL = número lecciones a variar 
y lecciones a introducir en 
generación 

RI = registro principio lección 

RL = registro fin lección 

AA$  —= cadena usada para lectura 
y escritura datos 

A, B$ = indican eventuales errores 

C,D en el disco 


Versión con gráficos 


B$(«) = matriz de los buffers (1 por 
campo de introducción 

LC(«*) = longitud del campo de in- 
troducción 

ND(+) = número de decimales en el 
campo de introducción 

CX(+) 

CY (+) 


DX(+) 
DY («) 


= coordenadas en la pantalla 
del campo de introducción 


= coordenadas en la pantalla 

de la descripción 

TF(+*) = matriz numérica que con- 
tiene códigos ASCII teclas 
comando 

DS(+*) = descripciones en máscara 
vídeo. 

VOS(«) = voces del menú principal 

BL$ —= blank 

PD$  —= punto decimal 

AS$  =carácter “—; identifica 
campos de introducción 
alfanuméricos. 

NS$  =carácter “*x”; identifica 
campos introducción nu- 
méricos. 

HO$  = borra la pantalla. 

NUC  =número de campos intro- 
ducción en máscara vídeo 
activada. 

DS = número de descripciones 
en máscara vídeo. 

FIS(*) = nombres ficheros datos 
usados. 

HS(+*) = matriz cadenas para ayu- 
da. 

LFS(*) = longitud registros en fi- 
cheros datos 

B15$(+) = matriz valores para sprite. 

AA$  = cadena de l/O con el disco. 

LZ = bloque datos para sprite. 

P1 = posición partida para los 
datos sprite. 

TA(«*) = teclas comando en crea- 

ción sprite. 





Ortografía / Versión Philips VG 8010 
Generación texto 


10 
20 


25 








Et 
33 K 
40 
46 
50 
$0 
70 
73 F 


REM 


REM ORTOGRAFIA 

REM generacion 

REM 
LS: CLEARBO0O 
EY OFF:KEY 1,CHR$(15):KEY 2,CHR$ (16) ¿KEY 3,CHR$(17): KEY 4,CHR$(19) :KEY 5,CHR$(20) : WIDTH 40 
DIM TF(15),TP(20),LC (20) ,ND(20) ,CX (20) ,CY (20) ,DX (20) ,DY(20),TS$(25) 
[3=20: REM M3=Max lecciones 

DIM B$(20),D$(20),V0$(10),AA$(M3) 

REM CONSTANTES 

A1=1:42=31:BP$="08L30DFB":¿NS$="=";AS$="-"¡PD$=".":¿BL$=" ":MP$="| MENU fa 
$=CHR$ (1) +CHR$ (87) Y 


77 O$="":FOR I=0 TO 39:0$=0$+F$: NEXT 1 


80 

90 X 
100 
110 
115 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
218 
219 
220 
221 
222 
223 
230 
240 
250 
290 
600 
610 
700 
7073 
705 
707 
710 
"TS 
720 
730 
800 
803 
805 
eto 
820 
1300 
1310 
1320 
1322 
1335 
1340 


"lu 
s 


1345 
1346 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 





S7=2:MI=1 

O=16:YO=1: XC=4: YC=8: XS=2 

US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$(32) 
HE$="CTRL Y (AYUDA) " 

Hi$=" E.G.S. Ediciones Forum, S.A." 
REM CARGA VOCES 
RESTORE 

READ PROG$ 

READ NV 

FOR I=1 TO NV¡READ VO$(1):NEXT 

MA=NV+1 

VO$(MA)="Fin de tarea" 

FOR I=1 TO 15 

READ TF (1) 

NEXT I 
REA AAA 
REM -- 
REM=— MAIN 





REM 


GOSUB 1300: REM MENU 

IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS:COLOR 15,4 :END 
ON OPZ 60TO012000, 5000, 8000, 6000 

GOTO 230 

ESPERAR =-===== 
¿Y=12:GOSUB11000:PRINT"E S PE R A R":RETURN 


REMO o 


REM FOSICIONA CINTA GRAB. 





Tó$="REC y PLAY." 

CLS: Y=7:G0SUB11000:PRINT"Rebobinar la cinta datos":X=10: Y=10:GOSUB11000:PRINT"y apretar 
31 X=9:Y=16:G0SUB11000:PRINT"Despues pulsar una tecla." 

IF INKEY$ =""THEN 720 

RETURN 


REA 


REM POSICIONA CINTA LECT. 

REM o 

Té=" PLAY." 

G0TO710 

REM 

REM MENU PRINCIPAL 

REM 

CLS: COLORS, 4 

X=1:Y=0:GOSUB 11000:PRINT Hi 

=2:GOSUB 11000: PRINTU——1 04 X=7 — ¿Y=3:GOSUB 11000:PRINT"|";PROG$; 
X=7:Y=4 :GOSUB 11000:PRINT "_____ q" 
X=16:Y=Y+2:GOSUB 11000:FRINT MP$;:Y=5  :GOSUB11000:PRINT" 7"; 
Y=7: 605UB11000: PRINT"L_4" 

FOR 1 = MI TO MA 

Y=14SZ+YC: X=XC: GOSUB11000 

11=1 

IF 1I= (MA) THEN 11=0 

FRINT 113"-"5Y0S(1) 

NEXT 

I=MI 

Y=IXSZ+YC: X=XS: GOSUB1 1000 

SP=Y0=6 











1440 PRINT "=>"; 

1450 OPZ$=INKEYS: IF OPZ$="" THEN 1450 

1455 OPZ=VAL (D0PZ$): IF OPZ$=US$ THEN 1530 

1460 IF OPZ >NV THEN 1450 

1470 IF OPZ$=2E$ THEN. X=XS:GOSUB 11000:PRINT SPC( SP);:I=MA:GOTO 1420 
1480 IF ASC(OPZ$)>48 AND ASC (0PZ$) <58 THEN X=XS:GOSUB 11000:PRINT SPCÍ SP);: 1=0PZ:GOTO 1420 
1490 IF OPZ$ <> GIUS THEN 1450 

1500 X=XS:GOSUB 11000:PRINT SPC( SP); 

1510 I=I+1:1F 15 (MA) THEN 1410 

1520 GOTO 1420 

1530 X=XC: Y=14S52+YC 

1540 II=1:1F 1 > NY THEN I1=0 

1560 PRINT 113 "-"¿VOS(1) 

1580 OPZ =1 

1590 RETURN 

2000 REM 
2010 REM PRESENTA MASCARA 

2020 REM === 

2030 CLS: COLOR OPZK2,14 

2130 L=LEN(VOS (0PZ)) 

2140 FM=(36-L) /2: FM6=SPACE$ (FM) 

2150 X=1:Y=0:GOSUB 11000: PRINTH1$; 

2215 Y=3:X=0:G0SUB 11000:PRINT Fm; "lv; yos(orz)3")"3Fms: X=FM: Y=2 
2216 G0SUB11000: G8$=LEFTS (0$,LK2): PRINTCHR$ (1) ; CHRS (2458) 688; CHR$ (1) ¡ CHRS (2H59) : Y=4: GOSUB11000: 
PRINTCHR$ (1) ¿CHR$ (LHSA) ; G8$; CHAS (1) ¿CHRS (LHSB) 3 

2218 Y=21:X=0:GOSUB 11000:PRINT 0$ 

2219 Y=22:X=25:GOSUB 11000 

2220 PRINT HES$ 

2240 FOR J=1 TO NUC 

2245 As= "" 

2270 X=DX(J) :Y=DY(J):GOSUB 11000:PRINT D$(J) 

2275 1FTP(J)<>5 AND TP(J)<> 4 THEN2290 

2280 X=CX (3): Y=CY (J) :GOSUB11000 

2285 PRINTB$ (J) : 60702420 

2290 Ni=LC(J)+N2=ND(J):1F TP(J)=1 OR TP(J) = 2 THEN C$=NS$:GOTO 2310 
2300 C$=AS$ 

2310 A$=STRING$ (NI-N2-1,0$) 

2320 IF N2=0 THEN A$= A$*C$:GOTO 2350 

2330 A$=A$+PDS 

2340 FOR I=1 TO N2:A$=AS+C$:NEXT 1 

2350 X=CX (3): Y=CY(J):GOSUB 11000 

2360 PRINT AS 

2380 B$(J)= SPACES (NI-N2-1) 

2410 B$(J)= BS(J)+RIGHTS (A$,N2+1) 

2420 NEXT J 

2430 RETURN 

3000 REM === 

3010 REM DATA ENTRY 

3020 REM —————--- 

3030 J=1 

3040 NC=J: X=CX (NC) : Y=CY (NC) 

3050 CC=1 

3060 GOSUB 3240 

3070 1F FS=0 THEN 3100 

3080 IF FS>4 THEN 3210 

3090 GOTO 3120 

3100 J=3+1: 1F JóNUC THEN 3030 

3110 GOTO 3040 

3120 ON FS GOTO 3130,3150,3170,3190 

3130 1F J>1 THEN J=J-1:GOTO 3040 

3140 PLAY BP$ :FS=0:J=NMUC:GOTO 3040 * 

3150 IF Jí NUC THEN J=J+1:GOTO 3040 

3160 PLAY BP$:FS=0:GOTO 3030 

3170 IF CO<LC(J) THEN S=1:CC=C0+1: X=X+1:GOSUB 11000:GOTO 3060 
3180 PLAY BP$:FS=0:GOTO 3100 

3190 IF CC>1 THEN S=-1:CC=CC-1:X=X-1:G0SUB 11000:G0TO 3060 
3200 PLAY BP$:FS=0:G0TO 3040 

3210 IF FS>B THEN FS=0:GOTO 3060 

3220 IF FS=8 THEN FS=0:GOTO 3100 

3230 RETURN 

3240 REM —-——— — 








3250 REM LECTURA DE UN CAMPO 4110 IF LC(NC) =1 THEN RETURN 








IA RE: > 4120 Ni=LCINC) -CC+1 . 

3270 FS=0 4130 IF CC=1 THEN BS(NC) = ""z GOTO 4150 
3280 IF TP(NC)=4 THEN RETURN 4140 B$(NC)= LEFTS (BS$(NC),CC-1) 

3290 1F TP(NC)=2 THEN TP (NC)=1 4150 IF TP(NC) =1 OR TP(NC)=2 THEN 4200 
3300 IF MID$(B$(NC),CC,1)=PD$ THEN X=X+S:CC=CC+S 4150 FOR I=1 TO Ni 

3310 GOSUB 11000 > 4170 BS(NC)=BS (NC) +BL$ 

3320 A$=INKEYS: IFA$=","OR A$= "" THEN PRINT"I'; :GOSUB11000:PRINTMIDS (B$ (NC),CC,1);:60SUB11000:6G 4180 NEXT 1 

0TO3320 4190 GOTO 4240 

3330 CA=ASC(A$): 1F CA > AZ THEN 3380 4200 FORI=1 TO Ni 

3340 FOR I=1 TO 15 4210 B$(NC)=BL$ +B$(NC) 

3350 IF TF(I)= CA THEN FS = l: GOSUB 3630: RETURN 4220 NEXT 1 

3360 NEXT 1 4230 IF RIGHTS (B$(NC),1) =PD$ THEN BS(NC)= BL$ +LEFT$ (B$(NC),LC(NC)-1) 
3370 GOTO 3320 4240 X=CX (NC) : Y=CY (NC) 

3380 IF TP(NC)<>1 THEN 3440 - 4250 GOSUB 11000 

3390 IF CA=45 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 4260 PRINT B$(NC) : RETURN 

3400 PLAY BP$:GOTO 3320 4270 REM ——_—_—_—— 

3410 IF CA <> 46 THEN 3440 " 4280 REM CTRL PUNTO 

3420 GOSUB 4270 a 4290 REM ————_—= 

3430 1F SWP=1 THEN 3400 4300 SWP = 0 

3440 S=1: GOSUB 3520 A310 IF CC=1 OR CC=LC(NC) THEN SWP =1:RETURN 
3450 IF CO=LC(NC) THEN RETURN 4320 FOR I=1 TO LC(NC) 

3460 CC=CC+1:X=X+1:GOTO 3300 4330 IF MID$(B$(NC),1,1)= PDS$ THEN 1 = LC(NC): SWP=1: RETURN 
IS2O REM 4340 NEXT Il: RETURN 

3530 REM TRANSFERENCIA AL BUFFER 5000 REM: ———= mr comence 

3540 REM ===. — 5003 REM CORRECCION DATOS 

3550 IF CC=1 THEN SN$= "":GOTO 3370 . 5005 REM ——__—__—__—__ == 

3560 SN$=LEFTS (B$ (NC) ,CC-1) 5010 GOSUBSS00 

3570 1F CC=LC(NC) THEN DS$= "":GOTO 3590 5020 G0SUB12200 

3580 N=LC(NC)-CC:DS$=RIGHTS (B$(NC),N) 5030 FORI=1T020: TP (1)=S:NEXTI 

33590 B$ (NC) =SN$+A$+DS$ 5040 CLS:X=7:Y=9:GOSUB11000:PRINT"Due leccion": Y=11:G0SUB11000: INPUT"se quiere variar"¿K$: IFK$=" 
3620 PRINT A$: RETURN "THENSO40 ELSE K=VAL (K$) 

SAO RENA, 5050 IFK<1DRK>M3THENSO4O 

3640 REM COMANDOS 5055 IFAAS (K)=""THENSO4O 

JESO REM === 5060 P1=19:P2=16:P3=2:FORI=1T019STEP2 
3660 IF FS>4 THEN 3490 5070 B$(1)=MIDS(AAS(K),P1,P2):P1=P1+P2 
3680 RETURN 5080 B$(1I+1)=MID$ (BAS (K) ,P1,P3):P1=P1+P3 
3690 IF FS=9 THEN GOSUB 13000; RETURN 5090 NEXTI 

3700 1F FS=8 THEN GOSUB 4080: RETURN 5100 G0SUB12235 

3710 IF FS¿8 THEN RETURN 5110 CLS:X=9: Y=9: GOSUB11000:PRINT"CONTINUAS ? <”S" o "No" 
3720 ON FS-9 GOSUB 3740,3910 5120 A$=INKEYS: IFA$="S"DRA$="s"THENSO40O 
3730 RETURN 5130 IFAS<>"N"AND A$<>"n"THENS120 

3740 REM ————=-- 5210 GOSUBS700:G0TO230 

3750 REM INSERCION 5500 REM —=====—=======-- 

3750 REM === 5503 REM LECTURA FICHEROS 

3770 IF CO=LC(NC) THEN PLAY BP$: RETURN 5505 REM -—— ooo 

3780 1F CC=1 THEN SN$= "":GOTO 3800 5510 GOSUB800: GOSUB400 

3790 SN$=LEFTS (B$ (NC) ,CC-1) 5520 OPEN"CAS: DATOS"FOR INFUT AS 41 

3800 N=LC(NC)-CC+1:DS$=RIGHT$ (B$(NC),N) 3530 INPUTH1,NUS 

3810 IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 5540 FORI=1T0M3 

3820 C$=BL$ 3550 INPUTH1,AAS$(1) 

3830 A$=SN$ +C$+DS$ 5560 NEXTI:CLOSE +1 

3840 B$(NC)=LEFT$ (A$,LC(NC)) 5570 OPEN"CAS: TEXTO"FOR INPUT AS 41 

3850 XX=X: YY=Y 3580 FORI=1T024 

3860 X=CX (NC): Y=CY (NC) :GOSUB 11000 5590 INPUT 41,TS$(1) 

3870 X=XX: Y=YY 5600 NEXTI:CLOSE $1 

3880 PRINT B$(NC):S=-1 5610 RETURN 

3890 IF RIGHT$(B$(NC),1)= PD$ THEN 3780 INN 

3900 RETURN 5703 REM ESCRITURA FICHEROS 

3910 REM ------- 3703 ¡RE-——————_—_=—_== 

3920 REM BORRADO 5710 G0SUB700: GOSUBS0O 

3930 REM -——-— 3715 A$="":OPEN"CAS: az "FOR OUTPUT AS 41 
3940 IF TP(NC)<>1 THEN 3960 5720 FORI=1T06:PRINT 41,A$:NEXTI:CLOSE*1:REM espacio cinta 
3950 IF MIDS (B$(NC),2,1) = PDS$ AND CC=1 THEN RETURN 5723 OPEN"CAS: DATOS"FOR OUTPUT AS +1 
3960 IF CC<1 THEN PRINT BP$: RETURN 5730 PRINT $1,NUS 

3970 1F CO=LC(NC) THEN DS$= "": GOTO 4000 5740 FORI=1TOM3 

3980 N=LC(NC) -CC:DS$ =RIGHT$ (B$(NC),N) 5750 PRINT $1, AAS(1) 

3990 IF CC=1 THEN SN$= "": GOTO 4010 5760 NEXTI:CLOSE $1 

4000 SN$=LEFT$  (B$(NC),CC-1) , 5770 OPEN"CAS: TEXTO"FOR OUTPUT AS 41 
4010 IF TP(NC) = 1 OR TP(NC)=2 THEN C$=NS$:GOTO 4030 5780 FORI=1T024 

2020 C$=AS5$ 5790 PRINT $1,TS$(1) 

4030 ES(NC)= SN$ +DS$ +C$ 5800 NEXTI:CLOSE 41 

24040 XX=X: YY=Y DÍA 5810 RETURN 

4050 X=CX (NC) : Y=CY (NC) : GOSUB 11000 $000 REM ———————-—— 

4060 X=XX: Y=YY 6003 REM CORRECCION TEXTO 

4070 PRINT ES(NC);:5=1: RETURN 5005 REM 

2080 REM ———————-- £020 BOSUB8000 

4090 REM ALINEADOS 5030 FORI=1T012: TP (1)=S:NEXTI 


ALOO REA 6033 FORK=1T02 


ITA AI mr 


£050 B$(I-(K-1)112)=TS$(1) 

6060 NEXTI 

6070 GOTO8040 

6080 NEXTK 

6090 GOSUBS700; GOTO230 

IN = 

7010 REM LECTURA DE LOS DATOS 

OLI AI 

7070 RESTORE 10100 

7072 FOR I=1 TO NUC 

7074 READ D$(1) 

7076 NEXT 1 

7080 FOR 1 = 1 TO NUC 

7090 READ TP(1),LC(1),ND(1),DX(1),CX(1),CY(1) 
7100 DY(1)=CY (1) 

7110 NEXT 1 

7120 RETURN 

ASS SS 

8003 REM INTRODUCCION TEXTO 

A Xq 

8007 GOSUBS500 

8010 FORI=11012 

8020 D$(1)=" ":TP(1I)=3:LC(1)=35:ND(1)=0:CX(1)=1:DX(1)=1:CY(1)=1+7:DY(1)=1+7 
8030 NEXTI:NUC=12 

8034 IFOPZ=4THENRETURN:REM correc.texto 

8037 FORK=1T02 

8040 GOSUB2000 

8050 X=13: Y=6; GOSUB11000:PRINT"PAGINA ";K;:Y=7:G0SUB11000: PRINTLEFT$ (0$, 189); 
8060 GOSUB3O00: IF FS=£THENSO40ELSE IFFS=7THEN230 
8070 FORI=1+12% (K-1)T012+12% (K-1) 

8080 TS$(1)=B$(1-(K-1)112) 

8090 NEXTI: IFOPZ=4THENGOTOS080:REM correc.texto 
8100 NEXTK 

8110 GOSUBS700 

8130 GOTO230 

10000 REM ----- 

10010 REM DATOS 

10020 REM ----- 

10030 DATA " ORTOGRAFIA (generacion) " 

10040 DATA 4 


10050 DATA "Introduccion nuevos datos", "Correccion datos", "Introduccion texto explicacion", "Corr' 


eccion texto" 

10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 
10100 DATA "Introducir nombre usuario" 

10110 DATA 3,20,0,8,8,9 

11000" REM! oran e 

11010 REM POSICIONA CURSOR 

TLOZLO REN aci 

11030 LOCATE X,Y 

11040 RETURN 

IT 

12003 REM GENERACION SISTEMA 

12005 _ 

12010 GOSUB 12100 

12020 GOSUB 12200 

12030 GOSUB 5700 

12095 GOTO 230 

12100 NUC=1:GOSUB 7070:CY(1)=DY(1)+4 

12110 GOSUB 2000: GOSUB 3000: IF FS=6 THEN 12110 ELSE IF FS=7 THEN RETURN 230 
12120 NU$=B$ (1)+"00" 

12130 RETURN 

12200 REM 

12205 J=0 

12210 FORI=1 TO 19 STEP 2:J=J+1: TP (1)=3:TP(1+1)=1 
12220 LC(I)=16:LC(1+1)=2:ND(1)=0:ND(1+1)=0:DX(1)=' 
+1)=28:CY (1)=9+J:0Y(I+1)=9+J:D$(1)=" ":D$(I+1)=" " 
12230 NEXT 1:NUC=20: IF OPZ=2 THEN RETURN: REM correccion 

12232 FOR K=1 TO M3 

12235 GOSUB2000 

12240 X=0:Y=6: GOSUB11000:PRINT"LECCION n. "¿K:zY=7:G0SUB11000: PRINTLEFTS (0$, 26); 

12245 X=9:Y=8:GOSUB11000:PRINT"V o c ab 1 0":X=27:G0SUB11000:PRINT"Flag" 

12250 FORY=10T019: X=5: GOSUB11000:PRINTY-9; : NEXTY 

12260 GOSUB3000: IFFS=6THEN12233 ELSE IFFS=7THEN RETURN230 

12265 GOSUB400 

12270 A1$="-—"+STR$ (K) :A$=01$+SPACES (18-LEN(A1$)) :AA$(K)="":AA$ (K)=A$ 

12275 FORI=1T019STEP2:A$="" 

12277 IFRIGHTS (B$(1),1)="-"ORLEF1$(B$(1),2)="_ "ORLEFTS(B$(1),1)=""THENBS (1) =STRINGS (16, "-") 
12278 IFRIGHTS(B$(1+1),1)="="DRB$(I+1)=" "ORB$(1+1)=""THENBS(I+1)="==" 








DX(1+1)=28: DY (1)=9+J: DY (I+1)=9+J:CX(1)=9:CX (1 





12285 AAS(K)=AA$ (XK) +"**"+SPACE$ (16) 
12287 IF OPZ=2 THEN RETURN: REM correccion 

12288 CLS: X=10: Y=10:GOSUB11000:PRINT"CONTINUAS ? (S o N)" 

12290 I$=INKEY$: IFI$="s"ORI$="S"THEN12295 ELSE IF 1$="N"DRI$="n"THEN12300 
12292 GOTO 12290 

12295 NEXT K 

12300 RETURN 

13000 REM ———— 

13010 REM AYUDA 

13020 REM ———— 

13050 LOCATE 0,22 

13055 PRINT "AYUDA (barra espaciadora para continuar)"; 

13060 GOSUB 13400 

13110 PRINT "FLECHAS: mueven en las 4 direcciones =$ 

13120 GOSUB 13600 

13130 PRINT "RETURN: alinea y convalida introduccion "; 

13140 G0SUB 13600 


13150 PRINT "Fiz vuelve al menu principal "3 
13160 GOSUB 13600 
13170 PRINT "F2: anula toda la introduccion e 
13180 GOSUB 13400 
13190 PRINT "F3: borra un caracter + 


13200 GOSUB 13600 
13210 PRINT "F4: permite la insercion de espacios SN 
13220 GOSUB 13400 


13222 PRINT "FS: graba toda la introduccion 3 
13224 GOSUB13500 

13230 PRINT " CTRL Y (AYUDA) "; 
13300 RETURN 


13600 AS=INKEYS: IF A$= "" THEN 13600 
13605 IF A$<> CHR$(32) THEN 13600 
13510 LOCATE 0,22 


136520 RETURN 

Uso texto 
LO REA ————— 
20 REM ORTOGRAFIA 
25. . REM us o 
30 REM ooo >. 


32 CLS: CLEARBO0O 

35 KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16) : KEY 3,CHR$(17):KEY 4,CHR$(19):KEY S,CHR$(20) : WIDTH 40 
40 DIM TF(15),TP(20),LC(20),ND(20) ,CX (20) ,CY(20),DX(20),DY(20),T8$(25) 

46 M3=20:REM M3 = Max. lecciones 

50 DIM B$(20),D$(20),V0$(10) , AA$(M3) 

55 ON STOP GOSUB 18000:STOP ON 

60 REM CONSTANTES 

70 A1=1:42=31: BP$="08L3ODFB":NS$="=":AS$="-":PD$=",":BL$=" smps="| MENU 6 
72 BM$="0D4L40ER16ER16ERSACCCCCCCC" 

73 BB$="D6L20EE-EE-EOSBOSDCOSAAARA" 

75 F$=CHR$ (1) +CHR$ (87) 

77 O$="":FOR I=0 TO 39:0$=0$+F$: NEXT 1 

80  SZ=3:MI=1 

90 X0=16: Y0=1: XC=8: YC=8: XS=6 

100 US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$ (32) 

110 HE$="CTRL Y (AYUDA) " 

115 Hi$=" E.G.S. Ediciones Forum, S.A." 

120 REM CARGA VOCES 

130 RESTORE 

140 READ PROGS$ 

150 READ NV 

160 FOR I=1 TO NV:READ VO$(1):NEXT 

170 MA=NV+1 

190 VOS(MA)="Fin de tarea" 

190 FOR I=1 TO 15 

200 READ TF(I) 

210 NEXT I 

JA 

2 REP AN AR 

A AAA ci 

223 REM 

230  GOSUB 1300:REM MENU 

240 IF OPZ=MA AND SW<>0 THEN GOSUBS700 

243 IF OPZ=MA THEN CLS:COLOR 15,4 :END 

247 IF SW=0 THENSW=2: GOSUBS500:CLS:X=2: Y=7: GOSUB11000:PRINT"Esta cinta contiene las lecciones de 
";X=12: Y=12: 60SUB11000: PRINTLEFTS (NUS, 20) : X=8: Y=17: GOSUB11000:PRINT"ESTAS PREPARADO? <pulsa *S*> 
" ELSE 250 


248 1$=INKEYS: IFI$<>"S"ANDI$<>"s"THEN248 2380 B$(J)= SPACES (NI-N2-1) 











230 ON OPZ GOTO15900,8500 2910 BS(J)= BS(J)+RIGHTS (A$,N2+1) 
290 GOTO 230 2420 NEXT J 

600 REM -—-- ESPERAR —--— 2430 RETURN 

610 CLS:X=11:Y=12:G0SUB11000:PRINT"E S P E R A R"¿RETURN SARNA 

700 REM 3010 REM DATA ENTRY 

703 REM POSICIONA CINTA GRAB. : o 

TOS REM — 3030 J=1 

707 Té="REC y PLAY." 3040 NC=J: X=CX (NC): Y=C Y (NC) 

710 CLS:X=6:Y=7:G0SUB11000:PRINT"Rebobinar la cinta DATOS":X=9:Y=10:GOSUB 11000:FPRINT"y apretar 3050 CC=1 

"3T$;:Y=16:GOSUB 11000:PRINT"Despues pulsar una tecla." 3060 GOSUB 3240 

720 1F INKEYS =""THEN 720 3070 IF FS=0 THEN 3100 

730 RETURN 3080 IF FS>4 THEN 3210 

II aa e 3090 GOTO 3120 

803 REM POSICIONA CINTA LECT. . 3100 J=J+1:1F JANUC THEN 3030 

A 3110 GOTO 3040 

B10 Té=" PLAY." 3120 ON FS GOTO 3130,3150,3170,3190 
820 GOTO710 3130 IF J>1 THEN J=J-1:GOTO 3040 

1300 /REM”? 3140 PLAY BP$ :FS=0:J=NUC: GOTO 3040 
1310 REM MENU PRINCIPAL 3150 IF J< NUC THEN J=J+1:GOTO 3040 
IZ REN o 3160 PLAY BP$:FS=0:GOTO 3030 

1322 CLS:COLOR1S, 4 3170 IF CC<LC(J) THEN S=1:CC=CC+1:X=X+1:GOSUB 11000:GOTO 3060 
1335 X=1:Y=0:G0SUB 11000:PRINT H1$ 3180 PLAY BP$:FS=0:G0TO 3100 

1340 X=11:Y=2:GOSUB 11000: PRINT"———————7 4 X=11: Y=3: G0SUB11000: PRINT"|";PROG$; "|"; : X=11 3190 IF CC>1 THEN S=-1:CC=CC-1:X=X-1:GOSUB 11000:G0TO 3060 
:Y=4 :GOSUB 11000:PRINT "3" 3200 PLAY BP$:FS=0:GO0TO 3040 

1345 X=16:Y=Y+2:GOSUB 11000:PRINT MP$;:Y=5  :GOSUB11000:PRINT" "3 3210 IF FS>8 THEN FS=0:GOTO 3060 

1346 Y=7:60SUB11000:PRINT"1___3" 3220 IF FS=8 THEN FS=0:GOTO 3100 

1350 FOR I = MI TO MA 3230 RETURN 

1360 Y=1*SZ+YC:X=XC: GOSUB11000 3240 REM —__—_—_—_—_————— 

1370 11=1 3250 REM LECTURA DE UN CAMPO 

1380 IF lI= (MA) THEN 11=0 3260 REM --——-—— —— 

1390 PRINT I17"-"¿V0$(1) 3270 FS=0 

1400 NEXT 3280 IF TP(NC)=4 THEN RETURN 

1410 I=MI 3290 IF TP(NC)=2 THEN TP(NC)=1 

1420 Y=IXSZ+YC:X=XS: GOSUB11000 3300 IF MID$(B$(NC),CC,1)=PD$ THEN X=X+S:CC=CC+S 
1430 SP=YC-6 3310 GOSUB 11000 

1440 PRINT "->"; 3320 A$=INKEYS: IFA$=","OR A$= "" THEN PRINT"f]";:G0SUB11000:PRINTMIDS (B$ (NC) ,CC, 1); : GOSUB11000:G 
1450 OPZ$=INKEY$: 1F OPZ$="" THEN 1450 0TO3320 

1455 OPZ=VAL (0PZ$):1F OPZ$=US$ THEN 1530 3330 CA=ASC(AS): IF CA > A2 THEN 3380 
1460 IF OPZ »NV THEN 1450 3340 FOR I=1 TO 15 

1470 IF OPZ$=ZE$ THEN X=XS:GOSUB 11000:PRINT SPC( SP);:I=MA:GOTO 1420 3350 IF TF(l)= CA THEN FS = l: GOSUB 3630: RETURN 
1480 IF ASC(OPZ$)>48 AND ASC (0PZ$) <58 THEN X=XS:GOSUB 11000:PRINT SPC( SP);:1=0PZ:GOTO 1420 3360 NEXT 1 

1490 1F OPZ$ <> GIU$ THEN 1450 3370 GOTO 3320 

1500 X=XS:GOSUB 11000:PRINT SPC( SP); 3380 IF TP(NC)<>1 THEN 3440 

1510 I=I+1:1F 1> (MA) THEN 1410 3390 IF CA=45 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 
1520 GOTO 1420 3400 PLAY BP$:GOTO 3320 

1530 CLS:X=XC: Y=11S7+YC:GOSUB11000 3410 IF CA <> 46 THEN 3440 

1540 II=1:1F 1 > NY THEN 11=0 3420 GOSUB 4270 

1560 PRINT 11; "-";V0$(1) 3430 IF SWP=1 THEN 3400 

1570 FORK=1T01000:NEXT 3440 S=1: GOSUB 3520 

1580 OPZ =1 3450 IF CC=LC(NC) THEN RETURN 

1590 RETURN 3460 CC=CC+1:X=X+1:GOTO 3300 

2000 REM ————----- 3520 REM EN 

2010 REM PRESENTA MASCARA 3530 REM TRANSFERENCIA AL BUFFER 

2020 REM == 3540 REM — 

2030 CLS:COLOROPZA2, 14 3550 IF CC=1 THEN SN$= "":GOTO 3570 
2130 L=LEN(VOS (OPZ)) 3550 SN$=LEFTS (BS (NC) ,CC-1) 

2140 FM=(36-L) /2:FM$=SPACES (FM) 3570 IF CC=LC(NC) THEN DS$= "":GOTO 3590 
2150 X=1:Y=0:GOSUB11000: PRINTH1$; 3580 N=LC(NC)-CC:DS$=RIGHTS (B$(NC),N) 
2215 Y=3:X=0:G0SUB 11000:PRINT FMs; "|"; vos (0Pz);"Í";Fm$: X=FM: Y=2 3590 B$ (NC) =SN$+A$+DS$ 

2214 GOSUB11000: G8$=LEFTS (06,142): PRINTCHRS (1) ;CHR$ (2H58) ; 68$; CHR$ (1) ¿ CHR$ (£H59) : Y=4: GOSUB11000: 3620 PRINT A$: RETURN 

PRINTCHRS (1) ¡CHR$ (LHSA) ; G8$; CHR$ (1) ; CHR$ (2H5B) 3 3630 REM_-—----— 

2218 Y=21:X=0:GOSUB 11000:PRINT 0$ 3640 REM COMANDOS 

2219 Y=22:X=25:G0SUB 11000 3650 REM --—--— 

2220 IF OPZ = 1 THEN PRINT HES ELSE X=5:GOSUB11000:PRINT"Pulsar una tecla para continuar" 36650 IF FS>4 THEN 3490 

2240 FOR J=1 TO NUC 3680 RETURN 

2245 Ag= "" 3690 IF FS=9 THEN GOSUB 13000: RETURN 
2270 X=DX(J):Y=DY(J):G0SUB 11000:PRINT D$(J) 3700 IF FS=8 THEN GOSUB 4080: RETURN 
2275 IFTP(J)<>5 AND TP(J)<> 4 THEN2290 3710 1F FS<8 THEN RETURN 

2280 X=CX(J) :Y=CY (J) : GOSUB11000 3720 ON FS-9 GOSUE 3740,3910 

2285 PRINTB$ (J):G0TO2420 3730 RETURN 

2290 NI=LC(3):N2=ND(J): 1F TP(J)=1 OR TP(J) = 2 THEN C$=NS$:GOTO 2310 3730 REM —-———-—- 

2300 C$=AS$ 3750 REM INSERCION 

2310 AS=STRINGS (N1-N2-1,C0$) 3760 REM -———- — 

2320 IF N2=0 THEN A$= AS+C$:GOTO 2350 3770 1F CC=LC(NC) THEN PLAY BP$: RETURN 
2330 A$=AS+PD$ 3780 IF CC=1 THEN SN$= "":GOTO 3800 
2340 FOR I=1 TO N2:A$=0$+0$:NEXT 1 3790 SN$=LEFTS (B$ (NC), CC-1) 


2350 X=CX(J):Y=CY(J):GOSUB 11000 3800 N=LC(NC)-CC+1:DS$=RIGHT$ (B$ (NC) , N) 


3820 Cé$=BL$ 5780 FORI=1T024 








3830 A$=SN$ +C$+DS$ 5790 PRINT 41,TS$(1) 
3840 ES (NC)=LEFTS (A$,LC(NCI) 5800 NEXTI:CLOSE +41 
3OS0 XX=X1 YY=Y 5810 RETURN 
3860 X=CX (NC) : Y=CY (NC) :GOSUB 11000 8500 REM. -—---—-—-- 
3870 X=XX: Y=YY 8503 REM LECTURA TEXTO 
3880 PRINT ES(NC):S=-1 + PRE 
3890 IF RIGHTS(B$(NC),1)= PD$ THEN 3780 8510 FORI=1T012 
3900 RETURN 8520 D$(1)=" ":TP(1)=4:LC(1)=35:ND(1)=0:0X(1)=1:DX(1)=1:0Y(1)=1+7:DY(1)=1+7 
3910 REM —===-- 8530 NEXTI:NUC=12 
3920 REM BORRADO 8535 FORK=1T02 
3930 REM -——--— 8540 FORI=1+12k(K-1)T012+12*(K-1) 
3940 1F TP(NC)<>1 THEN 3960 8550 B$(1-(K-1)K12)=T8$(1) 
3950 1F MID$ (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 8560 NEXTI 
3960 IF CC<1 THEN FRINT BF$: RETURN 8570 GOSUB2000 
3970 1F CC=LC(NC) THEN DS$= "": GOTO 4000 8580 X=13: Y=6: GOSUB11000:PRINT"PAGINA ";K;:Y=7:GOSUB11000: PRINTLEFT$ (0$,18); 
3980 N=LC(NC) -CC:D5$ =RIGHTS (B$(NC).N) 8590 1F INKEYS=""THENB590 
3990 1F CC=1 THEN SN$= ""; GOTO 4010 8600 NEXTK 
4000 SN$=LEFT$ — (B$(NC),CC-1) B610 GOTO230 
4010 IF TP(NC) = 1 OR TP(NC)=2 THEN C$=NS$:GOTO 4030 10000 REM ----- 
4020 C$=A8$ 10010 REM DATOS 
4030 B$(NC)= SN$ +DS$ +C4 10020 REM ----- 
4040 XX=X: YY=Y 10030 DATA "ORTOGRAFIA (uso)" 
4050 X=CX (NC) + Y=CY (NC) :GOSUB 11000 10040 DATA 2 , 
4060 X=XX: V=YY 10050 DATA "U S 0", "LECTURA TEXTO" 
4070 PRINT BS(NC);:S=1: RETURN 10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 
A090 "REM SR o 
4090 REM ALINEADOS 11010 REM POSICIONA CURSOR 
4100 REM ooo 11020 REM —————------ 
4110 IF LC(NC) =1 THEN RETURN 11030 LOCATE X,Y 
4120 Ni=LC(NC) -CC+1 11040 RETURN 
4130 IF CC=1 THEN B$(NC) = "": GOTO 4150 13000 REM ---—- 
4140 BS$(NC)= LEFT$ (B$(NC),CC-1) 13010 REM AYUDA 
4150 IF TP(NC) =1 OR TP(NC)=2 THEN 4200 13020 REM ---— 
4160 FOR I=1 TO Ni 13050 LOCATE 0,22 
4170 B$(NC)=E$ (NC) +BL$ 13055 PRINT "AYUDA (barra espaciadora para continuar)"; 
4180 NEXT 1 13060 GOSUB 13600 
4190 GOTO 4240 13110 PRINT "FLECHAS: mueven en las 4 direcciones la 
4200 FORI=1 TO Ni 13120 GOSUB 13400 
4210 BS$(NC)=BL$ +B$(NC) 13130 PRINT "RETURN: alinea y convalida introduccion "; 
4220 NEXT 1 13140 GOSUB 13600 
4230 IF RIGHT$ (B$(NC),1) =PD$ THEN B$(NC)= BL$ +LEFT$ (B$(NC),LC(NC)-1) 13150 PRINT "Fi: vuelve al menu principal sá 
4240 X=CX (NC): Y=CY (NC) 13160 GOSUB 13400 
250 GOSUB 11000 13170 PRINT "F2; anula toda la introduccion Sl 
4260 PRINT BS$(NC):RETURN 13180 GOSUB 13400 
270 REM -——======- 13190 PRINT "F3: borra un caracter se 
4280 REM CTRL PUNTO a 13200 GOSUB 13400 
A290 REM =mmmesmramonmmos 13210 PRINT "F4; permite la insercion de espacios =l 
4300 SWF = 0 13220 GOSUB 13600 
4310 IF CC=1 OR CC=LC(NC) THEN SWP =1:RETURN 13222 PRINT "FS: graba toda la introduccion 24 
4320 FOR I=1 TO LC(NC) 13224 GOSUB13600 
4330 IF MID$(B$(NC),1,1)= PD$ THEN I = LC(NC): SWP=1: RETURN 13230 PRINT " CTRL Y (AYUDA) "; 
4340 NEXT l: RETURN 13300 RETURN 
5500 REM 13600 AS=INKEY$: IF A$= "" THEN 13600 
5503 REM LECTURA FICHEROS 13605 IF A$<> CHR$(32) THEN 13600 
5505 REM ———— 13610 LOCATE 0,22 
5510 GOSUB800: GOSUB400 13620 RETURN 
5520 OPEN"CAS: DATOS"FOR INPUT AS 41 15900 REM 
5530 INFUTH1,NU$ 15903 REM 
5540 FORI=1T0M3 15905 REM 
5550 INPUTH1,AA$(1) 15910 KK=VAL (RIGHTS (NU$, 2)) :K=KK+1 
5560 NEXTI:CLOSE +1 15915 IFVAL (MID$ (AA$ (K) ,3, 5) ) =OTHEN17000 
5570 OPEN"CAS: TEXTO"FOR INPUT AS 41 15920 P1=19:P2=14 
5580 FORI=1T024 15930 FORI=1TO19STEP2 
5590 INPUT H1,TS$(1) ; 15940 B$(1)=MIDS (AA$ (K),P1,P2) 
5600 NEXTI:CLOSE +1 15950 P1=P1+18:NEXTI 
5610 RETURN 16010 J=0:FORI=1TO19STEP2:J=+1: TP (1)=4: TP (1+1)53 
5700 REM 16020 LC(1)=16:LC(1+1)=2:ND(1)=0:ND(1+1)=0:DX(1)=9:DX(1+1)=28: DY (1)=9+J:DY(1+1)=9+J:CX (1)=9:0X (1 
5703 REM ESCRITURA FICHEROS +1)=28:0Y (1)=9+3: CY (1+1)=9+J:D$(1)=" "¿DS$(1+1)=" " 
5705 REM 16030 NEXTI 
5710 GOSUB700: GOSUB400 16040 NUC=20: GOSUB2000 
5715 A$="":0FEN"CAS: az "FOR OUTPUT AS Hi 16050 X=0:Y=6:GOSUB 11000:PRINT"LECCION n.";K:zY=7:GOSUB 11000: PRINTLEFT$(0$,26); 
5720 FORI=1T06:FPRINTH1,A$:NEXTI:CLOSEN1: REM espacio cinta 16060 X=9:Y=8:GOSUB 11000:PRINT"V o c a b 1 0":X=27:G0SUB 11000:PRINT"Flag" 
5725 OPEN"CAS: DATOS"FOR OUTPUT AS *1 16070 FORY=10T019:X=5: GOSUB11000:PRINTY-9; : NEXTY 
5730 PRINT 41,NU$ 16080 GOSUB3000: IFFS=6THEN16040ELSEIFFS=7THEN230 
5740 FOR I=1 TO M3 16090 IFVAL (B$ (2) ) >1THEN16200 
5750 PRINT 4$1,AA$(1) 16095 P1=35:P2=2 
5760 NEXTI:CLOSE +41 16100 FORI=2T020STEP2 


5770 OPEN"CAS: TEXTO"FOR OUTPUT AS 41 16110 G=VAL (MIDS (AA$(K),P1,P2)):P1=P1+18 


16120 IF (G=1AND(B$ (1)="SI"ORB$(1)="si"))0R(G=0AND(B$ (1)="NO"ORBS (1)="n0")) THENNEXTI:GOTO 16140 
16130 PLAYBM$: X=10:Y=24:FOR I=1 TO 8:GOSUB 11000:PRINT" ERRONEO "¿sFOR J=1 TO 40:NEXT J: 
GOSUB11000:PRINTSPACES (17)5:FOR J=1 TO 40:NEXT J:NEXT 1:GOTO16080 

16140 CLS:X=14:Y=9:GOSUB 11000:PLAYBB$:PRINT"B R A V 0":X=6:Y=12:GOSUB 11000:PRINT"Has superado 
la leccion "¿K 

16150 K$=STR$ (K) ¿L=LEN(K$) 

16160 NUS=LEFTS (NUS, (22-L))+KS 

16170 X=9:Y=18:G0OSUB11000:PRINT"Continuas ? <S o N>" 

16175 A$=INKEYS: IFA$="s"ORA$="S"THEN15900 

16180 IFA$="n"DRA$="N"THEN230ELSE16175 

16200 P1=35:P2=2 

16210 FOR I=2 TO 20 STEP 2 

16220 G=VAL (MID$ (AAS (K) ,P1,P2)):P1=P1+18 

16230 IF G=VAL(B$(1)) THEN NEXT I:GOTO 16140 

16240 GOTO16130 

17000 CLS:X=10:Y=9:GOSUB 11000:FOR I=1 TO 3:PLAYBB$:NEXT I:PRINT"E XCELENTE" 

17010 X=5:Y=13:G0SUB11000:PRINT"Has superado todas las lecciones" 

17020 FOR I=1 TO 4000:NEXT:GOTO 230 

18000 RETURN ¿REM stop 


Generación gráficos 


VOTRE e” 
20 REM ORTOGRAFIA 
23 7./REM GRAFICA 

25 REM generacion 

30 7 REM iii imetininnas 


32 CLS: CLEARBOOO 

35 KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16):KEY 3,CHR$(17):KEY 4,CHR$(19):KEY S5,CHR$(20) : WIDTH 40 
40 DIM TF(15),TP(20),LC(20),ND(20) ,CX (20) ,CY (20) ,DX (20) ,DY (20) ,TS$(25) 
46 M3=20:REM M3 = Max. lecciones 

50 DIM E$(20),D$(20),SS$(M3,4),AA$(M3) 

60 REM CONSTANTES 

70 Ai=1:A2=31:BP$="0BL30DFB":NS$="="¿AS$="-":PD$=","¿BL$=" "¿MP$=" | MENU 6 
73 F$=CHR$ (1) +CHR$ (87) 

77 0$="":FOR 1=0 TO 39:0$=0$+F$: NEXT 1 

80  SZ=3:MI=1 

90 XO=16:Y0=1: XC=7:YC=8: XS=5 

100 US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$(32) 

110 HE$="CTRL Y (AYUDA) " 

115 Hi$=" E.G.S. Ediciones Forum, S.A." 

120 REM CARGA VOCES 

130 RESTORE 

140 READ PROG$ 

150 READ NV 

160 FOR I=1 TO NV:READ VO$(1):NEXT 

170 MA=NV+1 

180 VO$S(MA)="Fin de tarea" 

190 FOR I=1 TO 15 

200 READ TF(1) 

210 NEXT I 

219 REN ——_ 





230 GOSUB 1300:REM MENU 

240 IF OPZ=MA THEN GOSUBS700:FOR I=1 TO 1000: NEXT:CLS:COLOR 15,4 :END 
250 ON OPZ GOTO15000,8500 

290 GOTO 230 

600 REM ——- ESPERAR —--- 

610 CLS: X=13:Y=12:GOSUB11000:PRINT"E S P E R A R"¿RETURN 

700 REMPARAA 

703 REM POSICIONA CINTA REC. 

TOS RENA 

707 Té="REC y PLAY." 

710 CLS:X=9:Y=7:GOSUB11000:PRINT"Rebobinar la cinta":Y=10:G0SUB11000:PRINT"y apretar ";T$;:Y=16: 
GO0SUB11000:PRINT"Despues pulsar una tecla." 

720 1F INKEY$ =""THEN 720 

730 RETURN 

SORA 

803 REM POSICIONA CINTA LECT. 

DU 

810 T$=" PLAY." 

820 GOTO710 

1300 REM. ———== re 

1310 REM MENU PRINCIPAL 

1320 REN: AS 

1322 CLS: COLORS, 4 

1335 X=1:Y=0:GOSUB 11000:PRINT H1$ 

1340 X=5:Y=2:GOSUB 11000: PRINT" Wi X=5 : Y=3: GOSUB11000: PRINT" | "¿PROG 








$3"l";:X=5:Y=4 :GOSUB 11000:PRINT "._____________________y* 
1345 X=15:Y=Y+2:G0SUB 11000:PRINT MP$;:Y=S  :GOSUB11000:PRINT"N———1"; 
1346 Y=7:G0SUB11000:PRINT"_____7" 

1350 FOR I = MI TO MA z 

1360 Y=11SZ+YC:X=XC: GOSUB11000 

1370 11=1 

1380 IF 1l= (MA) THEN II=0 

1390 PRINT 11;"-";V0$(1) 

1400 NEXT 

1410 I=5MI 

1420 Y=11S2+YC:X=XS: GOSUB11000 

1430 SP=YC-6 

1440 PRINT "->"; 

1450 OPZ$=INKEYS: IF OPZ$="" THEN 1450 

1455 OPZ=VAL (0PZ$):1F OPZ$=US$ THEN 1530 

1460 IF OPZ >NV THEN 1450 

1470 IF OP7$=ZE$ THEN X=XS:GOSUB 11000:PRINT SPC( SP); :I=MA:GOTO 1420 
1480 IF ASC(OPZ$)>48 AND ASC (0PZ$) <S8 THEN X=XS:GOSUB 11000:PRINT SPC( SP);: I=0PZ:GOTO 1420 
1490 IF OPZ$ <> GIUS THEN 1450 

1500 X=XS:GOSUB 11000:PRINT SPC( SP)3 

1510 I=I+1:1F 1> (MA) THEN 1410 

1520 GOTO 1420 

1530 REM 

1540 II=I:1F 1 > NV THEN 11=0 

1560 PRINT 11;"-"3V0$(1) 

1580 OPZ =1 

1590 RETURN 

2000 REM ——————==—===-- 

2010 REM PRESENTA MASCARA 

2020 REM ————————- 

2030 CLS: COLOROPZF2+2, 14 

2130 L=LEN(VOS (0PZ)) 

2140 FM=(36-L) /2:FM6=SPACES (FM) 

2150 X=1:Y=0:G0SUB11000: PRINTH1$; 

2215 Y=3:X=0:GOSUB 11000:PRINT FMS;"|"; VOS(OPZ);" Íl"¿FM$: X=FM: Y=2 
2216 GOSUB 11000: G8$=LEFTS (0$,L42) :PRINTCHRS$ (1) ;CHR$ (1HS8) G8$;CHR$ (1) ¿CHR$ (2H59) : Y=4: GOSUB11000 
¿PRINTCHRS (1) 3 CHR$ (£HSA) ; G8$; CHR$ (1) ; CHR$ (LHSB) ; 

2218 Y=21:X=0:GOSUB 11000:PRINT 0$ 

2219 Y=22:X=25:G0SUB 11000 

2220 PRINT HES 

2240 FOR J=1 TO NUC 

2245 As= "" 

2270 X=DX(J):Y=DY(J):GOSUB 11000:PRINT D$(J) 

2275 IFTP(J)<>5 AND TP(J)<> 4 THEN2290 

2280 X=CX (3): Y=CY (J) : GOSUB11000 

2285 PRINTBS (J):G0T02420 

2290 Ni=LC(J):N2=ND(J):1F TP(J)=1 OR TP(J) = 2 THEN C$=NS$:GOTO 2310 
2300 C$=AS$ 

2310 A$=STRING$ (N1-N2-1,C$) 

2320 IF N2=0 THEN A$= A$+C$:GOTO 2350 

2330 A$=A$+PD$ 

2340 FOR I=1 TO N2:A$=A$+C$:NEXT 1 

2350 X=CX(J):Y=CY(J):GOSUB 11000 

2360 PRINT As 

2380 B$(J)= SPACES (N1-N2-1) 

2410 B$(J)= B$(J)+RIGHTS (A$,N2+1) 

2420 NEXT y 

2430 RETURN 

3000 REM —---—-— 

3010 REM DATA ENTRY 

3020 REM -——--—=-— 

3030 J=1 

3040 NC=J: X=CX (NC) 2 Y=C Y (NC) 

3050 CC=1 

3060 GOSUB 3240 

3070 IF FS=0 THEN 3100 

3080 IF FS>4 THEN 3210 

3090 GOTO 3120 

3100 J=J+1:1F JANUC THEN 3030 

3110 GOTO 3040 

3120 ON FS GOTO 3130,3150,3170,3190 

3130 1F J>»1 THEN J=J-1:G0TO 3040 

3140 PLAY BP$ :FS=0:J=NUC:GOTO 3040 

3150 IF J< NUC THEN J=J+1:GOTO 3040 

3160 PLAY BP$:FS=0:GOTO 3030 

3170 1F CC<LC(J) THEN S=1:CC=CC+1:X=X+1:G0SUB 11000:GOTO 3060 
3180 PLAY BP$:FS=0:GOTO 3100 

3190 IF CC>1 THEN S=-1:CC=CC-1:X=X-1:G0SUB 11000:GOTO 3060 
3200 PLAY BP$:FS=0:GOTO 3040 





3210 IF FS>8 THEN FS=0:G0TO 3060 4070 PRINT B$(NC);:S=1: RETURN 








3220 IF FS=8 THEN FS=0:GOTO 3100 2080 REM ---———- 

3230 RETURN 4090 REM ALINEADOS 

A 4100 REM -------- 

3250 REM LECTURA DE UN CAMPO 4110 IF LC(NC) =1 THEN RETURN 

3260 REM ===> 4120 Ni=LC(NC) -CC+1 

3270 FS=0 - 4130 IF CC=1 THEN B$(NC) = ""z GOTO 4150 
3280 IF TP(NC)=4 THEN RETURN 4140 B$(NC)= LEFTS (B$(NC),CC-1) 

3290 IF TP(NC)=2 THEN TP (NC)=1 4150 IF TP(NC) =1 OR TF(NC)=2 THEN 4200 
3300 IF MIDS(B$(NC),CC,1)=PDS THEN X=X+S:CC=CC+S 4160 FOR I=1 TO Ni 

3310 GOSUB 11000 * 4170 B$(NC)=B$ (NC)+BL$ 

3320 A$=INKEYS: IFA$=","OR A$= "" THEN PRINT"f";:G0SUB11000:PRINTMIDS (B$ (NC) ,CC, 1); : GOSUB11000: 6 4180 NEXT 1 

OTO3320 4190 GOTO 4240 

3330 CA=ASC(A$): IF CA > A2 THEN 3380 4200 FORI=1 TO Ni 

3340 FOR 1=1 TO 15 4210 B$(NC)=BL$ +B$(NC) 

3350 IF TF(I)= CA THEN FS = l: GOSUB 3430: RETURN 4220 NEXT 1 

3360 NEXT 1 4230 IF RIGHTS (B$(NC),1) =PD$ THEN B$(NC)= BL$ +LEFTS (B$(NC),LC(NC)=1) 
3370 GOTO 3320 4240 X=CX (NC): Y=CY (NC) 

3380 IF TP(NC)<>1 THEN 3440, 4250 GOSUB 11000 

3390 IF CA=45 OR CA=44 OR (CA>=48 AND CA<=57) THEN 3410 4260 PRINT BS (NC) : RETURN 

3400 PLAY BP$:GOTO 3320 4270 REN-—-=enan 

3410 IF CA <> 46 THEN 3440 4280 REM CTRL PUNTO 

3420 GOSUB 4270 420 REN meme 

3430 IF SWP=1 THEN 3400 4300 SWP = 0 

3440 S=1: GOSUB 3520 4310 IF CC=1 OR CC=LC(NC) THEN SWP =1: RETURN 
3450 IF CC=LC(NC) THEN RETURN 4320 FOR I=1 TO LC(NC) 

3460 CC=CC+1:X=X+1:G0TO 3300 4330 IF MIDS(B$(NC),1,1)= PD$ THEN 1 = LC(NC): SWP=1: RETURN 
3520 REM ------- 4340 NEXT TI: RETURN 

3530 REM TRANSFERENCIA AL BUFFER 5500 REM —————————--- 

3540 REM 5503 REM LECTURA FICHEROS 

3550 IF CC=1 THEN SN$= "":GOTO 3570 5505 REM —————————-—- 

3560 SN$=LEFT$ (BS (NC) ,CC-1) 5510 GOSUB 800: GO0SUB 600 

3570 1F CO=LC(NC) THEN DS$= "":GOTO 3590 5520 OPEN"CAS: DIBUJ"FOR INPUT AS 41 
3580 N=LC(NC)-CC:DS$=RIGHT$ (BS (NC),N) 5540 FOR I=1 TO M3 

3590 B$ (NC) =SN$+A$+DS$ 5545 FOR J=1 TO 4 

3620 PRINT A$: RETURN 5550 INPUTH1,SS$(1,J) 

3630 REM --—--— 5560 NEXTJ, I:CLOSE 41 

3640 REM COMANDOS 5570 OPEN"CAS:LECCI"FOR INPUT AS $1 
3650 REM -------- 5580 FORI=0TOM3 

3660 IF FS>4 THEN 3690 5590 INPUT H1,AAS(I) 

3680 RETURN 5600 NEXTI:CLOSE +1 

3690 IF FS=9 THEN GOSUB 13000: RETURN 5610 RETURN 

3700 IF FS=8 THEN GOSUB 4080: RETURN 5700 REM —————————————— 

3710 IF FS<8 THEN RETURN 5703 REM ESCRITURA FICHEROS 

3720 ON FS-9 GOSUB 3740,3910 5705 REM 

3730 RETURN 5710 GOSUB700: GOSUB600 
STAREAAAÓ 5720 A$="":OPEN"CAS: az"FOR OUTPUT AS 41 
3750 REM INSERCION 5725 FOR I=1 TO 6:PRINT 41,A$:NEXTI:CLOSER1: REM espacio cinta 
SIRENA 5730 OPEN"CAS: DIBUJ"FOR OUTPUT AS 41 
3770 1F CO=LC(NC) THEN PLAY BP$: RETURN 5740 FOR I=1 TO M3 

3780 IF CC=1 THEN SN$= "":GOTD 3800 5745 FOR J=1 TO 4 

3790 SN$=LEFTS (E$ (NC) , CC-1) 57530 PRINT $1,S8$(1,J) 

3800 N=LC(NC)-CC+1:DS$=RIGHT$ (B$(NC),N) 5760 NEXTJ, I:CLOSE 41 

3810 IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 5770 OPEN"CAS:LECCI"FOR OUTPUT AS *1 
3820 C$=BLG$ 5780 FORI=0TOM3 

3830 A$=SN$ +C$+DS$ 5790 PRINT 41,A0$(1) 

3840 B$(NC)=LEFTS$(A$,LC(NC)) 5800 NEXTI:+CLOSE $1 

3850 XX=X: YY=Y S810 RETURN 

3850 X=CX (NC) : Y=CY (NC) :GOSUB 11000 7000 REM ——————— 

3870 X=XX:Y=YY 7010 REM LECTURA DE LOS DATOS 

3880 PRINT B$(NC):S=-1 TOZO REM ————————— 

3890 IF RIGHTS (B$(NC),1)= PDS THEN 3780 7070 RESTORE 10100 

3900 RETURN 7072 FOR I=1 TO NUC 

3910 REM -—-—-- 7074 READ D$(1) 

3920 REM BORRADO 7076 NEXT 1 

3930 REM ————--— 7080 FOR 1 = 1 TO NUC 

3940 IF TP(NC)<>1 THEN 3960 7090 READ TP(1),LC(1),ND(1),DX(1),CX(1),CY (1) 
3950 IF MIDS (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 7100 DY(1)=CY(1) 

3960 IF CC<1 THEN PRINT BP$: RETURN 7110 NEXT 1 

3970 1F CO=LC(NC) THEN DS$= "": GOTO 4000 7120 RETURN 

3980 N=LC (NC) -CC:DS$ =RIGHTS (B$(NC),N) SIR sion 

3990 IF CC=1 THEN SN$= ""z GOTO 4010 8503 REM CORREC. LECCIONES 

4000 SNS=LEFTS  (BS(NC),CC-1) DO REM AS 

4010 IF TPINC) = 1 OR TP(NC)=2 THEN C$=NS$: GOTO 4030 8510 IF MB=0 THEN GOSUB 5500 

4020 C$=A95$ 8540 CLS:X=7:Y=9:GOSUB11000:PRINT"Que leccion”":Y=11:GOSUB 11000: INPUT"se quiere variar";K$: IFK$= 
4030 B$(NC)= SM$ +DS$ CS "" THEN 8540 ELSE JK=VAL (K$) :K$="" 

4090 XX=X: YY=Y 8545 IFIJK<OTHEN230 

4050 X=CX (NC): Y=CY (NC) :GOSUB 11000 8350 IFJK=00RJK >M3THENBS40 


HO60 X=XX:Y=YY IFAAS (JK)=""THENSS40 


8560 GOTO1S040 

8570 FORI=1T010: TP (1)=5: NEXTI 

8580 P1=19:P2=16:P3=2: FORI=1TO9STEP2 

8590 B$(1)=MIDS$(AA$(JK),P1,P2):Pi=P1+P2 

8600 B$(1+1)=MIDS (AA$S(JK),P1,P3):P1=P1+P3 

8605 NEXTI:G0SUB12235 

8610 CLS:X=9: Y=9: GOSUB11000:PRINT"CONTINUAS ? <?*S* o *N*>" 

8620 A$=INKEY$: IFA$="S"DRA$="s"THENBS540 

8630 IFA$<>"N"AND A$<>"n"THENS6ZO 

8640 GOTO230 

10000 REM ----- 

10010 REM DATOS 

10020 7RE Me 

10030 DATA "ORTOGRAFIA GRAFICA (gener.)" 

10040 DATA 2 : 

10050 DATA "Introduccion datos", "Correccion datos" 

10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 

10100 DATA "Introducir nombre usuario" 

10110 DATA 3,20,0,9,9,9 

VLO00 REM === =E 

11010 REM POSICIONA CURSOR 

LLOLREM 

11030 LOCATE X, Y 

11040 RETURN 

TRI 

12202 REM INTRODUCCION VOCABLOS 

II AAA 

12205 J=0 

12210 FORI=1TO9STEP2:J=3+1:TP(1)=3:TP(1+1)=1 

12220 LU(I)=16:LC(1+1)=2:ND(1)=0:ND(1+1)=0:DX(1)=9:DX(1+1)=28:DY(1)=11+J:DY(1+1)=11+J:CX (1)=9:0X 
(1+1)=28:0Y(1)=11+J:CY (I+1)=11+J:D$(1)=" ":D$(I+1)=" " 

12230 NEXTI: IF OPZ=2 THEN RETURN 8570: REM correcciones 

12233 NUC=10:GOSUB 2000 

12240 X=13:Y=7:GOSUB 11000:PRINT"LECCION n.";JK:Y=8:GOSUB 11000: PRINTLEFT$ (0$,26) ; 
12245 X=9:Y=10:GOSUB 11000:PRINT"V oc ab 1 0":X=27:GOSUB 11000:PRINT"Flag" 
12250 FORY=12T016: X=5: GOSUB11000:PRINTY-11;: NEXTY 

12260 GOSUB3000: IFFS=6 THEN 12235 ELSE IF FS=7 THEN RETURN 230 

12265 GOSUB600 s 

12270 Al$="--"+STR$(JK) : A$=A1$+SPACES (18-LEN (A1$)):AA$ (JK)="": AA$ (JK)=A$ 
12275 FOR I=1 TO 9 STEP2: 
12277 IFRIGHTS$(B$(1),1)="-"ORLEFT$(B$(1),2)="  "ORLEFT$(B$(1),1)=""THENB$ (1) =STRINGS (16, "-") 
12278 IFRIGHTS(B$(1+1),1)="="0RB$(I+1)="  "ORB$(I+1)=""THENBS(I+1)="==" 
12280 A$=B$(1)+B$ (141) :AA$ (JK)=AA$ (JK)+A$: NEXTI 

12285 AA$(JK)=AA$ (JK)+"Mk"+SPACES (16) 

12300 RETURN 

13000 REM ---— 

13010 REM AYUDA 

13020 REM —-— 

13050 LOCATE 0,22 

13055 PRINT "AYUDA (barra espaciadora para continuar)"; 

13060 GOSUB 13600 

13110 PRINT "FECHAS: mueven en las 4 direcciones mo 

13120 GOSUB 13600 

13130 PRINT "RETURN: alinea y convalida introduccion "; 

13140 GOSUB 13400 









13150 PRINT "Fi: vuelve al menu principal dl 
13160 GOSUB 13600 

13170 PRINT "F2: anula toda la introduccion sl 
13180 GOSUB 13400 

13190 PRINT "F3: borra un caracter .s 
13200 GOSUB 13400 

13210 PRINT "F4: permite la insercion de espacios ns 
13220 GOSUB 134500 

13222 PRINT "FS: graba toda la introduccion Ss 
13224 GOSUB13600 

13230 PRINT " CTRL Y (AYUDA) "; 
13300 RETURN 


13600 A$=INKEY$: IF A$= "" THEN 13600 
13605 IF A$<> CHR$(32) THEN 13400 

136510 LOCATE 0,22 

13620 RETURN 

15000 REM === 

15003 REM INTRODUCCION DATOS 

A 

15010 M8=1:NUC=1:G0SUB7070:CY(1)=DY (1) +4 
15020 GOSUB2000: GOSUB3000; IF FS=6 THEN 15020 ELSE IF FS=7 THEN 230 
15030 AA$(0)=B$(1)+"00" 

15035 FOR JK=1 TO M3 

15040 CLS: COLOR2+0PZ42, 15 


15050 X=13:Y=2:GOSUB11000:PRINT"1111111":X=4:Y=3:60SUB11000:PRINT"1234557890123456" 

15060 X=3: Y=4: GOSUB1 1000: PRINTCHR$ (1) ;CHR$ (2458) ¿LEFTS(0$,32) 3 CHR$ (1) ;CHR$ (2H59) 

15070 X=0:4=0: FORY=5T020: A=0+1:A$=STR$ (A) : GOSUB1 1000: PRINTSPACES (3-LEN(A$));A$;" les SPACES (16) 5" | 

"22: NEXT Y: X=3:2 GOS!R 11000: PRINTCHR$ (1) ¿CHR$ (2454) ¿LEFT$ (08,32) ¿ CHR$ (1) ¿CHR$ (2HSB) ; 

15075 :X=24: :GOSUB11000:PRINT"*E* enciende": Y=8:GOSUB11000:PRINT"*A* apaga"; 

15080 PLAY BP$:X=24: Y=10:GOSUB11000:PRINT"Usa las flechas";:Y=11:G0SUB11000:PRINT"para desplazar 

"52 Y=12:GOSUB11000:PRINT"el cursor.";:Y=15:GOSUB11000:PRINT"FS confirma." 

15083 X=6:Y=23:GOSUB11000:PRINT"Leccion n.";JK; 

15090 O=6:4W=9 

15100 A$=INKEYS$ 

15110 IF A$<>"" THEN 15150 

15120 LOCATEO,W,1:FOR T=1 TO 30:NEXT 

15130 LOCATEQ, W,O:FOR T=1 TO 30:NEXT 

15140 GOTO 15100 

15150 IFA$=CHR$ (28) THENO=0+1: IFQ>19THENO=19 

15160 IFA$=CHR$ (29) THENO=0-1: IFO< 4THEND=4 

15170 IFA$=CHR$ (30) THENLI=b=-1 : IFWXSTHENW=S 

15180 IFA$=CHR$ (31) THENWN=W+1: IFW>20THENW=20 

15190 IFA$="e" OR A$="E" THEN LOCATEQ,W:PRINT"fP" 

15200 IFA$="a" OR A$="A" THEN LOCATED, W:PRINT" " 

15210 IFA$=CHR$ (20) THEN15225 

15220 GOTO15100 

15225 X=24:FOR Y=7 TO 8:GOSUB 11000:PRINTSPACES (12) NEXT Y 

15230 PLAYBP$: X=24: Y=10:G0SUB11000:PRINT"Pulsar una tecla";:Y=11:GOSUB11000:PRINT"para elegir 
";:Y=12:G0SUB11000:PRINT"el color ";:3Y=13:GOSUB11000:PRINT"de la figura. ":Y=15:G0OSUB11000:P 

RINT"FS CONFIRMA. " 

15235 A=2+0P742 

15240 A$=INKEYS: IFA$=""THEN15240 

15250 IF AS=CHR$(20) THEN X=4:Y=23:GOSUB11000:PRINT" E S P E R A R";:PLAY BP$:GOTO 15300 

15260 A=A+1: IFA>14THENA=1 

15270 COLORA 

15280 GOTO15240 

15300 PP=203:R=1:GOSUB15500 

15310 PP=523:R=2: GOSUB15500 

15320 PP=211:R=3: GOSUB15500 

15340 PP=531:R=4: GOSUB15500 

15350 FORI=1T04 

15360 SS$(JK, 1)=S$(1)+STR$(A) 

15370 NEXTI 

15400 GOSUB12200 

15410 CLS:X=11:Y=10:GOSUB11000:PRINT"CONTINUAS ? <S o N>" 

15420 A$=INKEYS: IFA$="S"ORA$="s" THEN NEXT JK:GOTO15440 ELSE IFA$="n"ORA$="N" THEN 230 

15430 GOTO 15420 

15440 CLS: X=3: Y=9: GOSUB11000:PRINT"Se ha alcanzado el maximo numero":X=8: Y=12: GOSUB11000:PRINT"d 

e lecciones previsto (";M3;")":PLAY BP$+BP$: FORI=1T02000: NEXT: G0TO0230 

15500 REM 

15510 K=0:S$(R)="": 1=0 

15520 FORW=0T01:P=PP+4xW 

15530 FORZ=1T08 

15540 FORJ=7TO1STEP-2: I=1+1 

15550 IF VPEEK(P+1)=219 THEN K=k+2"J+2% (J-1) 

15560 NEXTJ:S$="" 

15570 IF K<10 THEN S$=S$+"00"+RIGHTS (STR$(K),1) ELSE IFK<100THENS$=5$+"0"+RIGHTS (STR$(K) , 2) ELSES 

$=S$+RIGHTS (STR$ (K),3) 

15580 S$(R)=S$ (R)+5$+S$ 

15590 P=P+40:K=0: 1=0 

15594 NEXT 2,4 

15600 RETURN 


Uso gráficos 


A A 
20 REM--ORTOGRAFIA— 

30 -REM—grática 

10 REN — 

S0 MAXFILES=2: CLEAR10000: COLORA, 15,14 

60 KEY OFF:KEY S, CHR$(20) 

70 M3=20:DIM DI$(M3,4),LE$(M3),B$ (6) 

72 BM$="04L60ER16ER16ERS4CCCCCCCC" 

73 BB$="D£L20EE-EE-EOSBOS£DCOSARARA" 

80 BP$="0SL14CDEFGABOS£C" 

85 A$=CHR$ (1)+CHR$ (2H57)3 FOR I=1 TO 32:0$=08+A$:NEXT I 
87 UR$=" E.G.S. Ediciones Forum, S.A." 

90 CUR$=0$+UR$+0$ 

200 REN: === _= 

203 REM —M A 1 N—— 

¿205 E: 

210 SCREEN2,3 





220 OPEN"grp:"FOROUTPUTASK1 
230 GOSUB 1100 

240 GOSUB 1500 

260 GOSUB 3000 

270 GOTO 400 


300 COLOR15,2,6: CLS ¿LINE (20, SS 171),1,BF:LINE(40,40)-(215, 151),11,BF:L INE (60,60)-(195,13 


1),4,BF 

310 PSET(90,75): ¿PRINTH1, "EXCELENTE" 

315 LINE (89,85)-(167,85),15 

320 PSET(82,95):PRINT4H1, "HAS SUPERADO" 

330 PSET(66, 110): PRINTH1, "TODAS LAS LECCIONES":PLAY BB$+BB$+BP$ 
340 FOR I=1 TO 4000:NEXT 1 

400 REM -—---- 

403 REMF IN 

4035 REM ---— 

410 COLOR6,15: CLS :PRESET (30, 60):PRINTH1,"Rebobina la cinta datos"; 
420 PRESET (55,90): PRINTH1, "y aprieta ";:COLOR1 :PRINTH1, "REC y PLAY"; 
430 COLOR4: PRESET (13,150): PRINTH1," Si estas preparado pulsa una 
440 IF INKEY$="" THEN 440 

450 GOSUB 600 

460 LE$(0)=LEFTS(LE$(0),20)+R15HT3 (STR$ (NL), 2) 

470 A$="":OPEN"CAS:AZ"FORQUTFUT ASH2 

475 FORI=1T08 

477 PRINTH2, A$:NEXTI: CLOSER2 

480 OPEN"CAS: DIBUJ"FOROUTPUT ASH2 

490 FOR I=1 TO M3 

500 FOR J=1 TO 4:PRINTR2,D1$(1,J):NEXTJ, 1 

510 CLOSE +2 

520 OPEN"CAS:LECCI"FOROUTFUT ASH2 

530 FORI=0TOM3: PRINTH2,LES$(1):NEXTI 

540 CLOSE 42 ¿CLOSE 41 

350 SCREENO: WIDTH40: COLOR1S, 4: LOCATES, 12 

560 PRINT"F IN DEL PROGRAMA" 

570 LOCATEO,20: END 

600 REM A 

603 REM ESPERAR 


605 REM_------- 
610 LOLOR12,15: CLS :PRESET(SO, 90) 


620 PRINTH1," ESPERAR" 
630 RETURN 


653 REM IMPRESION cabecera 

AAA 

660 COLOR2:PRESET (0,0) :PRINTH1,CUR$; 

670 RETURN 

1100 ¡REM === 

1103 REMPRINCIPIO 

1105 REM 

1120 GOSUB6450 

1130 COLOR1 

1140 LINE (40,40)-(208,56),11,BF 

1150 LINE(39,39)-(209,57),1,B 

1160 PRESET(40,46):+COLOR1:PRINTH1,"ORTOGRAFIA"; 
1180 COLOR6: PRESET (30,90) :PRINTH1, "Rebobina la cinta datos"; 
1190 PRESET(70,110): PRINTH1,"y aprieta ";:COLOR1: PRINTH1, "PLAY"; 
1200 COLOR4:PRESET(9,150):PRINTHH1," Si estas preparado pulsa una 
1210 IFINKEYS=""THEN1210 

1220 GOSUB 600 

1230 OPEN"CAS: DIBUJ"FORINPUT ASH2 

1240 FORI=1T0M3 

1245 FORJ=1T04: INPUTR2,D1$(1,J):NEXTJ, I 

1250 CLOSE $2 

1260 OPEN"CAS:LECCI"FORINPUT ASH2 

1270 FORI=0TOM3: INPUTH2, LE$(1) :NEXTI 

1280 CLOSE 42 

290 RETURN 

A o 

1503 REM CONTROL NUM. LECCION 

o 

1508 CLS:GOSUB 650 


tecla"; 


tecla";:PLAY BP$ 


1510 COLORS: FRESET (30,60) : PRINTH1, "Esta cassette contiene":PRESET(60,80) :PRINTH1, "las lecciones 


de:" 
1520 COLOR4:PRESET (80, 110) :PRINTH1,LEFTS (LE$(0),20); 


530 PLAYBP$:COLOR7:PRESET (10,140): PRINTH1," Si estas preparado pulsa una 


1540 NL=VAL (RIGHTS (LE$(0),2))+1 
1580 IFINKEYS=""THEN1590 

1590 RETURN 

2000 REM === ==-=-=--- 
2003 REM GENERACION SPRITES 


tecla" 


2005 REM ——=-— 

2008 GOSUB600 

2010 IFVAL(MIDS (LES (NL),3,3))<1THENRETURN3OO 

2015 S$(1)="":S$(2)="":S5$(3)=""25$/4)="" 

2020 FOR I=i TO 4:P1=1:P2=3 

2030 FOR J=1 TO 32 

2040 S$(1)=38$ (1)+CHR$ (VAL (MIDS (DIS (NL, 1),P1,P2))):P1=P1+P2 
2050 NEXTJ, 1 

2060 FOR I=1 TO 4 

2070 SPRITES(1)=S$(1) 

2080 NEXTI 

2090 C=VAL (RIGHTS (DI$(NL,1),2)) 

2100 RETURN 

3090: REN === 

3003 REM DESARROLLO LECCION 

30053. REN ———_—— == 

3010 GOSUB2000: COLOR15, 4: CLS 

3015 PRESET(1,1):PRINTH1,UR$; 

3020 LINE (80,10)-(154,84),15,BF 

3050 PUT SPRITE 1, (85,15),C,1 

3060 PUT SPRITE2, (85,47),0,2 

3070 PUT SPRITE 3, (117,15),C,3 

3080 PUT SPRITE 4, (117,47),C,4 

3100 REM 

3105 COLOR15:P=80:P1=19:P2=16 

3110 FORI=1T0S:P=P+20 

3120 PRESET(30,P):PRINTH1,MIDS (LES (NL) ,P1,P2)3" -";:P1=P1+18 
3130 NEXTI 

3160 GOSUB4000 

3170 CLS:PRESET(35,95):PRINTH1, "CONTINUAS ? < *S* o *N* >" 
3190 A$=INKEY$: IFA6="N"ORA$="n"THENRETURN 

3200 IFA$="S"ORA$="s"THEN3220 

3210 GOTO3190 

3220 IFSW=1THENNL=NL+1 

3230 GOTO3O00 

4000 
4003 REM --- DATA ENTRY 
4005 REM: == oca 

4010 A=166:B=100:V=0 

4020 I$=INKEY$: FORL=1T060: NEXT 

4030 IFI$=CHR$ (20) THEN4100 

24040 IFI$="" THEN COLOR15:PRESET(A,B):PRINTH1, "*";:FOR L=1 TO 60:NEXT:COLOR4:PRESET (A, B) :PRINTH1 
» "M";: 60704020 

4050 COLOR15:PRESET(A, B) :PRINTH1, 16; :B=B+20: V=V+1: B$ (V)=1$: PLAY"O5L64C" 

4060 IFV=STHENPLAY"OSL64DE":G0T04010ELSEGOTO4020 

4100 P1=35:P2=2:FORI=1T0S 

4110 V=VAL (MIDS (LE$(NL),P1,P2)) 

4120 IF((B$(1)="S"ORE$ (D="s ") ANDV=1)0R ((B$(1)="N"ORE$(1)="n") AND V=0) THENP1=P1+18:NEXT1:SW=1:FO' 
RI=1T05:B$(1)="":NEXT1:G0T04140 

4130 PLAYBM$ :¿COLOR1: PRESET (95,45): PRINTH1, "ERROR"; ¿LINE (90, 55)- (135,55) :SW=0: GOTO 4150 

4140 COLORá6: PRESET(83,20) ¿PRINTH1,"B R A V 0": LINE(83,30)-(151,30): COLOR12:PRESET (100,40) :P 
RINTH1,"h a s";:PSET(87,55),15: PRINTH1, "superado"; :PRESET (83,70) :PRINTH1, "la lec. "¿RIGHTS$(STR$ ( 
NL) ,2)3:PLAYBBS 

4150 B=47:A=85:D=117:E=15:F=85:G=117:CC=1 

4150 FOR I=1 TO 40 

4170 A=A-2:D=D+2: B=B+2:F=F-1:6=G+1 

4180 PUT SPRITE 1,(A,E),CC,1 

4190 PUT SPRITE 2, (F,B),CC,2 

4200 PUT SPRITE 3, (D,E),CC,3 

4210 PUT SPRITE 4, (G,B),CC,4 

4220 IF 1>38 THEN E=209:B=207 

4225 IF CC>14 THEN CC=1 ELSE CC=CC+1 

4230 NEXTI 

4250 FOR I=1 TO 1000:NEXT 

4300 COLOR1S, 4: RETURN 


Generador de sonidos 






MOE 
20 REM -—— GENERADOR DE SONIDOS — 
O RE 
40 REM 


50 
60 0: COLOR 15,4: CLEAR 10000 

70 :60T012000 

80 CLS:WIDTI 0:LOCATE14,11:PRINT"E SFERAR" 

90 KEY DFF:KEY1,CHR$ (15) : KEYZ, CHR$ (16) :KEY3, CHR$ (17) :KEY4, CHR$(19) : KEYS, CHR$ (20) :KEY6, CHR$ (21) 2K 
EY7, CHR$ (22) 












110 L=B:L$=STR$(L) :SW=1 


120 FOR I=1T020:READAAS (1) :READAA (1,1): NEXT 1 


130 0$="4" 

140 FOR I=i TO 20:READAS 
150 IF l= 3 THEN 0$="5" 

160 IF I=10 THEN 0$= 
170 1F 1=13 THEN Os: 
180 IF 1=14 THEN+g$="5 
190 IF 1=19 THEN D$="6" 
200 N$(1,1)=0$:N$(1,2)=0$ 

210 NEXT 1 

220 GOSUB 7000 

230 SCREEN2, 3, O: COLOR15, 14,5 

240 GOTO 1000 

PO REA RÁ 
260 REM -- posiciona cinta -- 
270 REM -- - 













280 CLS:LOCATE2,8:FRINT "Posiciona la cinta de datos y apretar" 


290 LOCATE1S,11:PRINT BS 


300 LOCATE10,16:FRINT "Despues pulsar una tecla" 


310 IF INKEY$=""THEN310 

320 CLS:LOCATE14,11:PRINT "ESPERAR" 
330 RETURN 

1000 REM -—————=—==—==reommmm 

1010 REM -- prepara mascara -- 

1020 REM: == — omnia 

1030 LINE (8, 29)-(247,94),15, BF 

1040 A=0:FOR 1=9 TO 249 STEP20:A=4+1 

1050 LINE(1,29)-(1,94),1:AA(A,2)=1+2 

1060 NEXT 1 

1070 A=0:B=12:FOR I=5 TO 249 STEP20:A=A+1 


1080 IF A=1 OR A=3 OR A=ó6 OR A=10 OR A=13 THEN 1110 


1090 LINE(1,29)-(1+8,60),1,BF 

1100 B=B+1:AA(B,2)=1 

1110 NEXT 1 

1120 LINE (9, 12)-(249,27),6,BF 

1130 LINE (9,28)-(249,28),1 

1140 OPEN"grp: "FOROUTPUTASH1 

1150 PRESET(14,16):COLOR15:PRINTH1, "A" 
1160 PRESET(27,16):COLOR 1:PRINTH1,"u" 
1170 PRESET(40, 16): COLOR1S: PRINTA1,"S" 
1180 PRESET(S5,16) : COLOR1S:PRINTH1,"D" 
1190 PRESET (67,16): COLOR 1:PRINTH1,"R" 
1200 PRESET (78,16) :COLOR1S:PRINTH1,"F" 
1210 PRESET(88,16):COLOR 1:PRINTH1, "T" 
1220 PRESET (100, 16) : COLOR15:PRINTH1,"G" 
1230 PRESET(114, 16) :COLOR15:PRINTH 1. "H" 
1240 PRESET(126,16):COLOR 1:PRINTH1,"U" 
1250 PRESET(136, 16) :COLOR1S:PRINTH1, "J" 
1260 PRESET(146,16):COLOR 1:PRINTH1,"I" 
1270 PRESET(156, 16) :COLOR15:PRINTH1, "K" 
1280 PRESET(167,16):COLOR 1:PRINTH1, "O" 
1290 FRESET(187,16):COLOR 1:PRINTH1, "L" 
1300 PRESET(194,16):COLOR1S:PRINTH1,";" 
1310 PRESET(206, 16): COLOR 1:PRINTH1,"L[" 
1320 PRESET(218,16):COLOR1S:PRINTH1, ">" 
1340 PRESET(228,16):COLOR 1:PRINTH1,"]" 
1350 PRESET(238,16):COLOR1S:PRINTH1,"*" 
1360 PRESET(2,105):PRINTH1, "Fisoctava inf. 





1390 PRESET(3, 135) :PRINTH1, "FS: pausa 


1400 PRESET(18,165):PRINTH1," <- -> :escucha nota N.";CR 


1410 PRESET(80,150):PRINT41,"F7: F IN" 
2000: REM: in in nenas 
2010 REM -- formacion sprites -- 
2020 REA — 





2030 A$="":FOR I=1 TO 16:A$=A$+CHR$ (255) : NEXT 1 


2040 SPRITES (1)=A$ 


2050 A$="":FOR I=1 TO 16:A$=A$+CHR$(252) ¿NEXT 1 


2060 SPRITES (2)=A$ 


2070 A$=""¿FOR I=1 TO 16:A$=A$+CHR$ (240) : NEXT 1 


2080 SPRITES (3)=A$ 


2090 A$="":FOR I=1 TO 16:A$=A$+CHR$ (248) ¿NEXT 1 


2100 SPRITES (4)=A8 

3000 REM ----- o 

3010 REM -- ACEPTA LETRA — 

3O2O REM === 

3030 G6=INKEYS:1F G$="" THEN 3030 






F2: octava sup." 
1370 PRESET(2,120):PRINTH1,"F3zduracion min.F4:duracion may." 
1380 PRESET(70,180):PRINTH1,"ESC :* grabacion ON/OFF":GOSUB 5190: COLOR15 


3040 IF(ASC(G$)>14 AND ASC(G$)<23) OR ASC(G$)=27 THEN GOSUB S000:60TO 3030 

3030 IFASC(G$)=29 THEN IF CR>0 THEN CR=CR-1:PLAY MS$ (CR) : COLOR14:PRESET(216, 163) PRINTH1, "MN": C 
OLOR1:PRESET (216, 163): PRINTH1,CR É 

3060 IFASC(G$)=28 THEN IF CR<KR THEN CR=CR+1:PLAY MS$(CR):COLOR14:PRESET(216, 155): PRINTH1, "MI" 
:COLOR1:PRESET (216, 165) : PRINTH1,CR 





3080 REM — busca nota y suena — 

OO REM ———————— — —————————— 

3100 FOR TT=1 TO 20 

3110 IF G$=AA$ (TT) THEN 3130 

3120 NEXT TT:GOTO 3030 

3130 GOSUB 4280:KK$="D"+NS(TT, 1)+"L"+L$+NS(TT,2): PLAY KK$; 1F Shi=1 THEN CR=CR+1:MS$ (CR) =KK$: COLOR 
14: PRESET (216, 165): PRINTH1, "MW ": COLOR1:PRESET (216, 1635) :PRINT4H1,CR: IF KR<CR THEN KR=kR+1 
3140 ON AA(TT, 1) GOSUB 4060,4100,4160,4220 

3150 GOTO3030 

4000 REM 
4010 REM 
24020 REM 
4030 DATA"A",2,"8",3,"D",2,"F",4,"6",3,/MHU 200,9, UML DI MO UR TO 
AL Op a HS 2 MEA 0430 50,2, 070,440, 3, "00,4, R,1,"T 
4040 DATA A,B,C,D,E,F,G,A,B,C,D,E,0+,C+,D+,F+,G+,A+,0+,D+ 

24050 REM 

4060 REM SPRITE 1 

3070 REM 

4080 PUTSPRITE 4, (AA(TT,2),28),7,4 

4090 RETURN 

3109 REM 

34110 REM SPRITE 2 

4120 REM 

4130 PUTSPRITE 1, (AA(TT,2),61),7,1 

4140 PUTSPRITE 2, (AA(TT,2),29),7,2 

4150 RETURN 

4160 REM 

4170 REM SPRITE 3 

4180 REM 

4190 PUTSPRITE 1, (AA(TT,2),61),7,1 

4200 PUTSPRITE 2, (AA(TT,2)+4,29),7,2 

4210 RETURN 

4220 REM 

4230 REM SPRITE 4 

4240 REM 

4250 PUTSPRITE 1,(AA(TT,2),61),7,1 

4260 PUTSPRITE 3, (AA(TT,2)+4,29),7,3 

4270 RETURN 

4280 REM 

4290 REM SPRITE FUERA 

4300 REM 

4310 PUTSPRITE 1,(2,209),7,1 

4320 PUTSPRITE 2, (2,209),7,2 

4330 PUTSPRITE 3, (2,209),7,3 

4340 PUTSPRITE 4, (2,209),7,4 

4350 RETURN 

SO001REM Foncea 

5010 REM — teclas funcion -— 

NARA <p 5 

5030 G=ASC ($) -14 

5040 ON G GOSUB 5070,5100,5130,5060, 5150, 5170,5220,8000,5060,5060, 5060, 5060, 5190 

5060 RETURN 

5070 IF VAL(N$(1,1))=1 THEN RETURN 

5080 FOR I=1 TO 20 

5090 N$(1,1)=STRS(VAL(N$(1,1))-1):NEXT I:RETURN 

5100 IF VAL(N$(1,1))=6 THEN RETURN 

5110 FOR I=1 TO 20 

5120 N$(1,1)=STR$ (VAL (N$(1,1))+1):NEXT I:RETURN 

5130 L=L+2:1F L>64 THEN L=64 

5140 L$=STR$ (L) : RETURN 

5150 L=L/2:1F L<1 THEN L=1 

5160 L$=STR$ (L): RETURN 

5170 IF SW=1 THEN CR=CR+1:KR=KR+1:MS$(CR)="R16" 

5180 RETURN 

5190 Sl=SWR-1: 1F SW=1 THEN COLOR14:PRESET(3, 190): PRINTH1, " MN " : COLORó: PRESET (3, 180) :PRINTH1, 
"“R E C":GOTO S210:ELSE 5200 

5200 COLOR14: PRESET(3, 180) :PRINTH1, " MEN " : COLOR2: PRESET (3, 180): PRINTH1, "NO REC." 

35210 RETURN 

IRE 

5230 REM -—- escucha -- 

A A 

5250 GOSUB 4280:FOR I=1 TO KR:PLAY MS$(1):NEXT 1 

5260 RETURN 





7000: REM 

7010 REM -—— ESCUCHA DE LA CINTA — 

TODA 

7030 SCREENO: COLOR1S, 4 

7040 CLS:LOCATE2,7:PRINT"SI SE QUIERE ESCUCHAR O VARIAR UNA"*LOCATES, 9:PRINT"MUSICA YA EXISTENTE 
PULSAR *S*"":LOCATE2, 13:PRINT"SI SE QUIERE EMPEZAR UNA NUEVA":LOCATES, 15:PRINT"COMPOSICION ,PUL 
sa as yo" É 

7050 A$=INKEY$: IF A$="N" OR A$="n" THEN 7160 

7060 IF A$="S" OR A$="s" THEN 7080 

7070 GOTO 7050 

7080 CLS:LOCATES, 10: PRINT"INTRODUCIR NOMBRE DE LA MUSICA":LOCATE10, 13: INPUT"<MAX.ó6 CAR. >"A$ 
7090 IF LEN(A$)>6 THEN 7080 

7100 B$=" PLAY":GOSUB 250 

7110 OPEN"CAS: "+A$ FORINPUTAS+1 

7120 INPUTA1,TD$:KR=VAL (TD$) 

7130 FORI=2TOKR+1: INPUT 41,MS$(1-1) 

7140 NEXT I 

7150 CLOSER 

7160 RETURN 

AO REM 

8010 REM -- GRABACION EN LA CINTA -- 

$020 REN ———— 

8030 CLOSE1: SCREENO: COLOR15, 4:VW=1 

8040 CLS:LOCATES, 10:PRINT"SI QUIERES GRABAR LA MUSICA":LOCATE10, 13:PRINT"EN CINTA PULSAR >S*" 

8045 LOCATE7,16:PRINT"SI NO ,OTRA TECLA" 

8050 A$=INKEY$: IF A$="" THEN 8050 

8060 IF A$="S" OR A$="s" THEN 8070 ELSE 8140 

8070 CLS:LOCATES, 10:PRINT"INTRODUCIR NOMBRE DE LA MUSICA":LOCATE10,13: INPUT"<MAX.6 CAR. >"¡A$ 

8080 IF LEN(A$)>6 THEN 8070 

8090 B$="REC. Y PLAY":GOSUB 250 

8100 OPEN"CAS: "+A$ FOR OUTPUTASA1 

8110 TD$=STR$(KR):PRINTH1, TDS 


8120 FOR I=1TOKR:PRINTH1,MS$ (1) 

8130 NEXT 1 

8140 CLOSE+1:END 

10000 REM === 

10010 REM -- PRESENTACION -- 

10020" REN: ========_= 

10030 A$="05L16AGL2AL 14GFEDLAC+HL2DR16R16" 

10040 PLAY As 

10050 SCREEN3: COLORO, 0, 0: CLS 

10060 FOR Y=1 TO 1200:NEXT Y 

10070 COLOR15, 13, 13:CLS 

10080 OPEN"GRP: "FOROUTPUTASH1 

10090 COLOR11:PRESET (SO, 24) :PRINTH1, "MUSICA" 

10100 COLOR 1:PRESET(SO,20):PRINTH1, "MUSICA" 

10110 COLOR11:PRESET (63,80) :PRINTH1, "del" 

10120 COLOR11:PRESET (7,136) :PRINT+H1, "ORDENADOR" 

10130 COLOR 1:PRESET (7,140): PRINTH1, "ORDENADOR" 

10140 A$="L32AGL2AL4EFC+L2DR16R1R16R1603L 16AGL2AL 16GFEDL4C+L_2DR16R16L 16AGL2AL4EFC+L2DR16R16R16C+ 
DEFGL1A+L2AR16R16R1GRISGRIGR1C": PLAY AS 

10145 IF INKEY$=CHR$(13) THEN 10250 : 

10150 A$="05L8BA+AA+GA+FA+EA+DA+C+A+DA+EA+FADABOSAC+ADAEAC+ADAEAFDSDCDOSA+D4DOSADSDOSGOSDOSF+06DO 
SG0S5DOSADEDOSA+D6DOSDNSDOSEDSENOSF +D6DOSGOSDOSF+D6DOSGDSNOSADSDOSLZA+AGC+L1D": PLAY A$:A$="" 

10250 IF PLAY(0)=0 THEN 10270 

10260 GOTO 10250 

10270 FOR Y=1TO1000:NEXT Y:CLOSER1:KR=0 

10280 RETURN 

AAA 

12010 REM -- gestion errores 
AA A A 

12040 IF ERR=56 THEN LOCATES,22:PRINT"ERROR: "¡A$;" NO SE ACEPTA":FLAY"L1SCDEFGAR":FOR I=1T01000 
¿NEXTI: IF VW=1 THEN RESUME 8070 ELSE RESUME 7040 

12050 IF ERR+9 THEN SCREENO: CLS: COLOR4, 15:LOCATE1,10:PRINT"SE HA ALCANZADO EL MAXIMO NUMERO DE N 
OTAS (1000) ":CR=CR-1:FORI=1T02000: NEXT]: CLOSE: RESUME 230 

12060 RESUME 8000 
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RELACION DE LAS VARIABLES - PHILIPS VG 8010 


Versión con sólo texto 


M3 =número máx. lecciones (puede 
variarse) 

AAS$(M3) = contiene las lecciones 

TS$(24) = contiene el texto (24 líneas) 

NUS = contiene el nombre del usuario y 
el puntero a la última lección su- 
perada 

K = puntero lección en curso 

BM$ =indica introducción errónea 

BB$ =indica introducción correcta 

BPS$ = indica error 

BS(«) = matriz de los buffers (1 por campo 

. de introducción) 

LC(x) =longitud del campo de introduc- 
ción 

ND(x) = número de decimales en el cam- 
po de introducción 

CX(x) 

CY (x) 


DA) =cCcoordenadas en pantalla de la 
DY (x) d RES 
escripción 

TF(x) = matriz numérica que contiene los 
códigos ASCII de las teclas de co- 
mando 

TP(x) =tipo del campo de introducción 

DS(x) =descripciones en la máscara ví- 
deo 

VOS(x) =voces del menú principal 

BL$ = blank 

PD$ = punto decimal 

AS$ = Carácter “—”. Identifica los campos 
de introducción alfanuméricos 

NS$ =carácter “+”. Identifica los cam- 
pos de introducción numéricos 

NUC =número de campos de introduc- 
ción en la máscara activada 


= coordenadas en pantalla del cam- 
po de introducción 


Versión con gráficos 


=número máx. lecciones (puede 
variarse) 
DI$(M3, 4) 
SS$(M3, 4) 
AAS$(M3, 4) 
LES$(M3) 


AAS$(0) 
LES(0) 


= contienen los datos de los sprites 


O los datos de las leccio- 


= contienen el nombre del usuario y 
el puntero a la última lección su- 


BMS perada 
BBS$ = contienen sonidos 

BP$ 

URS$ 

H1$ 

CUR$ 

JK, NL = puntero lección en curso 
S$(1)... 
..S$(4) 


e = color de los sprite de la lección en 
curso 

BS(x) = matriz de los buffers (1 por campo 
de introducción) 

LC(x) = longitud del campo de introduc- 
ción 


= contienen la cabecera 


= datos de los sprites de la lección 
en curso 


ND(s) =número de decimales en el cam- 
po de introducción 

CX(+) 

CY (+) 


Da =coordenadas en pantalla de la 

(+) descripción 

TF(=) = matriz numérica que contiene los 
códigos ASCII de teclas de co- 
mando 

DS(«) = descripciones en la máscara ví- 
deo 

VOS(+) =voces del menú principal 

BL5$ = blank 

PD$ = punto decimal 

AS$ = identifica los campos de introduc- 
ción alfanuméricos 

NS$ = identifica los campos de introduc- 
ción numéricos 

NUC =número de campos de introduc- 
ción en la máscara vídeo 


= coordenadas en pantalla del cam- 
po de introducción 


Generador de sonidos 


MSS(x) = cada elemento contiene la octava, 
la duración y la nota correspon- 
diente a las teclas pulsadas en 
función REG-ON 

CR = índice de MS$(x) 

KR = número máximo de notas introdu- 

cidas en MS$(«) 
= contiene los caracteres del tecla- 
do correspondientes a las notas 

= contiene el tipo de sprite que indi- 
ca la nota activada (hay 4 tipos de 
sprites) 

=abscisa de principio de cada te- 

cla del teclado a la que se refiere 
la instrucción para la aparición de 
los sprites 

=0ctava base de la nota 

=símbolo (en notación inglesa) de 

la nota 

Ls$ = duración de la nota 

sw =si= 1, permite la memorización 
en MS$(«*) de las notas activadas. 
Si = 1, no memoriza 

G$ =cCarácter introducido por teclado 
(inkey$) 


AAS5(20) 


AA(20,1) 


AA(20,2) 


N$(20,1) 
N$(20,2) 


Significados de las teclas funcionales 


= decrementa la octava del teclado 

= incrementa la octava del teclado 

= decrementa la duración de la nota 

= incrementa la duración de la nota 

= introduce una pausa (duración se- 
microma) 

=reescucha notas y pausas graba- 
das 

= eventual grabación en cinta y fin 

= activa o desactiva la grabación 

= reescucha de una nota "hacia ade- 
lante” 

=reescucha de una nota “hacia 
atrás” 





La lógica del programa 


La finalidad del programa es la de enseñar la co- 
rrecta ortografía de las palabras de una lengua 
cualquiera. Para obtener la máxima elasticidad 
de uso, el procedimiento debe ser completamen- 
te parametrizado y adaptable, por parte del usua- 
rio, a cada posible aplicación. 

Este objetivo puede obtenerse reuniendo los tres 
módulos principales: Gráficos, Sonido y Texto. El 
procedimiento se presenta en dos versiones: el 
primero utiliza los gráficos, y sus posibles aplica- 
ciones son más limitadas; el segundo sólo prevé 
textos y es más generalizable, pero resulta menos 
ameno. En la página 2090 se ha representado el 
esquema lógico de las dos versiones. Su diferen- 
ciación se hace en los bloques de lectura de re- 
gistros del fichero de preguntas y en la presenta- 
ción. 

En la versión que no utiliza gráficos, los bloques 
sólo realizan las funciones indicadas, o sea la lec- 
tura de registros, presentación del contenido y 
espera y comprobación de la respuesta. En la 
otra versión, el procedimineto es más complejo y 
se describe a continuación. 


Versión con sólo texto 

En el gráfico de la página 2129 se muestra la es- 
tructura de fichero utilizada. Una lección está 
constituida por un conjunto de 10 vocablos deli- 
mitado por dos registros particulares. El primero, 
al principio del grupo, contiene el símbolo «—» y 
el número de la lección y el segundo, posiciona- 
do al final del grupo, contiene los símbolos «* * *» 
que indican el final de la lección. 

Las posibles lógicas de uso del programa son: 


"= Simple control de la grafía: entre los 10 voca- 
blos habrá algunos escritos correctamente 
(identificados con P = 1) y otros erróneamente 
(P = O). Durante el uso se pide la indicación 
de los erróneos. 

= Comprobación de la asociación: los 10 voca- 
blos están divididos en dos grupos (de 1 a 5 y 
de 6 a 10) relacionados entre sí mediante el 
puntero P, que si asume un valor mayor que 1 
indica una asociación. Después de la presen- 
tación de los vocablos, el usuario deberá indi- 
car las correspondencias. La máquina com- 
prueba las respuestas mediante el puntero P. 
Por ejemplo, en el gráfico en cuestión, el voca- 
blo «sea», que tiene el puntero 8, debe aso- 
Ciarse al vocablo «mar» (octava posición). 


La selección entre los dos posibles modos de 
funcionamiento (control ortográfico o asociación 


entre vocablos) se obtiene automáticamente se- 
gún el valor de P de los primeros 5 vocablos. 

Si P vale O o 1 se trata del primer caso y, si no, del 
segundo. En la página 2128 se ha representado el 
diagrama de esta versión del programa, en la que 
se supone que los ficheros ya se han preparado 
con el adecuado procedimiento presentado más 
adelante (las dos funciones, preparación y uso, 
son independientes, porque corresponden a dos 
usuarios diferentes). 

La fase de presentación de preguntas y gestión 
de respuestas se articula en dos flujos principa- 
les. En la primera parte se presentan en pantalla 
los vocablos sin ninguna asociación mediante la 
subrutina de presentación de máscara (2000), 
por lo que el usuario interrogado introducirá, utili- 
zando la data entry, las respuestas (y el valor de P 
asociado a cada vocablo). 

En la segunda parte se comparan los valores in- 
troducidos con los previstos en la fase de genera- 
ción, y se presenta el mensaje de respuesta co- 
rrecta o errónea. Por tanto, las respuestas se 
comprueban en función del valor del flag (1 = Sí, 
O = No) que debe implantarse en la generación. 


Comprobación ortográfica. La lectura del texto 
que constituye la pregunta y su presentación en 
pantalla requieren algunos trucos especiales pa- 
ra que también sean válidos en las versiones de 
disco. En el diagrama se muestra la técnica gene- 
ral utilizada. Para el detalle de cada función debe- 
rán consultarse los diagramas y listados que si- 
guen. El presentado en la página siguiente sólo 
es una parte del anterior, desarrollado para mos- 
trar cómo se gestiona el fichero de las preguntas. 
Tiene una validez a nivel de método, que en su 
mayor parte no corresponde con los listados. 
Cada grupo de datos que constituye una lección 
está distribuido en diferentes registros del fichero. 
Por tanto, para leer una lección completa deben 
leerse varios registros. Un método muy simple 
consiste en generar un bucle sobre un número de 
registros igual al paso, o sea igual al número de 
registros necesarios para memorizar una lección. 
En esta aplicación, por ejemplo, bastan 10 regis- 
tros. Sin embargo, en general, utilizando estructu- 
ras similares de datos, conviene iniciar el grupo 
con un símbolo particular. En el ejemplo se ha 
utilizado el signo «—». 

Si el programa encuentra el símbolo al leer el re- 
gistro, significa que está en la fase correcta y 
puede proseguir con la lectura de los 10 registros 
que siguen. En caso contrario, se ha producido 
un error y el programa se detiene. Naturalmente, 
el símbolo utilizado como flag de inicio de lección 
debe escribirse en la generación de las pregun- 
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- MODULO DIDACTICO: COMPROBACION 
ORTOGRAFICA CON SOLO TEXTO 


Apunta al principio del 
fichero preguntas 


El fichero Preguntas para la 
versión cinta es de tipo 
secuencial 
Bucle de búsqueda en la zona 
que contiene los 10 registros 
datos de la lección n.* NL + 1 NO 
El bucle sólo es necesario > 
en la versión cinta. Para el disco 
se sustituye por el acceso directo 


ii Se ha producido un error de 


sistema, por lo que se han 
perdido los punteros 


Los datos se han transferido 

a B$(:) y se presentarán en dos 
columnas de 5. Los punteros 
están en P(:) 


Esta función sirve para superar 
el registro de cierre de datos 
(el que contiene los 

simbolos xxx) 


La rutina de presentación 
también actualiza el fichero 
Usuarios, por el que sólo vuelve 
si la respuesta es correcta 


(*) Las preguntas se presentan y gestionan a través de la data entry. por 
tanto, se llamarán las subrutinas 2000 y 3000 
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ESTRUCTURA DEL FICHERO PREGUNTAS 
EN LA VERSION CON SOLO TEXTO 


xEÍ_— A>>++]>%»+ AAÁAÁKÁKÉKÁÓÁ 
Indicador de principio lección 


Conjunto de datos pertenecientes a una lección (12 registros) 


Vocablos y punteros 
en la introducción 


brass 
sea 
scuttle 
river 
raw 


río 
crudo 
mar 
latón 
cubo 


El puntero 
del vocablo 


Este puntero puede tener asociado es 
valores O (erróneos), 1 (correcto) o igual al del 
comprendido entre 6 y 10. En vocablo 
este caso indica el vocablo - asociador 


asociado 


Vocablos y punteros 
asociados 


brass río (puntero = 6;4) 
sea crudo (puntero = 7;5) 
scuttle mar (puntero = 8;2) 
river latón (puntero = 9;1) 
raw cubo (puntero = 10;3) 





Principio 
siguiente 
lección 
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tas. Las otras partes de la rutina son lecturas nor- 
males de disco y presentaciones de máscaras. 


Introducción datos. Este módulo debe prever 
dos modos de funcionamiento. En el primero pue- 
den introducirse hasta 10 vocablos, indicando la 
condición verdadero o falso para cada uno, o sea 
si es correcto o erróneo. De esta manera se dis- 
pone de diferentes modalidades de funciona- 
miento. Por ejemplo, pueden introducirse 9 voca- 
blos con ortografía errónea (flag = 0) y uno co- 
rrecto (flag = 1), en cuyo caso, el programa se 
utiliza a un nivel de dificultad mínimo, mientras 
que introduciendo más vocablos correctos puede 
utilizarse para comprobar los conocimientos de 
sinónimos o las capacidades deductivas. En par- 
ticular, pueden agruparse en la misma lección al- 
gunos vocablos inherentes al mismo objeto y 
otros extraños al mismo, invitando al usuario a 
que indique los homogéneos. 

La segunda forma, asociativa, presenta un solo 
modo, el cual permite la escritura de un vocablo 
en una lengua y la traducción en otra. 

Como complemento de la fase de preparación 
debe preverse un procedimiento para la introduc- 
ción de las notas de explicación. En los diagra- 
mas anteriores, esta función no se muestra, pues- 


to que se reduce a la simple presentación del 
contenido de un fichero que debe activarse antes 
de la petición del nombre del usuario (es una sub- 
rutina de lectura de fichero y presentación en ví- 
deo llamada al principio del programa). Y vicever- 
sa, en esta fase debe preverse su preparación y, 
por tanto, la generación y la introducción, o even- 
tuales correcciones, de las explicaciones. 

El fichero está constituido por un máximo de 40 
registros, cada uno con 35 caracteres, que se 
presentan con dos pantallas de 20 cada una. 
Para su gestión basta con definir una máscara 
con 20 campos de 35 caracteres alfanuméricos 
sin descripción, aunque debe prestarse atención 
al modo utilizado para la memorización. En la 
gestión normal de las máscaras, el contenido de 
una pantalla vídeo, memorizado en B$(«), ocupa 
un solo registro, por lo que la formación del regis- 
tro consiste en sumar todos los campos uno des- 
pués de otro (B$(1) + B$(2) + ...), mientras que 
en este caso, cada buffer forma un registro y, por 
tanto, la escritura en el disco consiste en un bucle 
entre 1 y 20 para la primera presentación y entre 
21 y 40 para la segunda. Abajo se ha representa- 
do el diagrama general del programa de introduc- 
ción de datos, y en las páginas 2131 a 2133 se 
han desarrollado con cierto detalle las principales 


PROGRAMA DE INTRODUCCION DATOS: VERSION SOLO TEXTO 


Generación 
12000 


2130 


Las funciones previstas son: 
— Introducción nuevos datos 
- Corrección datos 
- Introducción texto de 
explicación 
Corrección texto 
- Fin de tarea 


Introducción 
texto 


8000 





GENERACION 


Generación 
ficheros 


Introducción 
Usuarios 


12100 


"Introducción 
de Datos 


12200 


El programa avisa que debe 
introducirse un nuevo diskette 


Se han creado los ficheros: 

Datos: 100 registros (*) de 18 
bytes (***) 

Texto: 40 registros de 35 bytes 

Nombre: 5 registros de 22 bytes 


(5) 

ÚS 
Todos en blanco (o con otro 
símbolo que indique registro 
no ocupado) 


(*) Registros logicos. o sea lecciones Como cada leccion está compuesta por 12 registros fisicos. en total hay 100 x 12 = 1200 registros fisicos 


(**) 16 bytes el vocablo y 2 para el flag (P) 
(***) 20 bytes para el nombre y 2 para el numero de leccion (ultima superada) 


subrutinas de introducción utilizadas. Los diagra- 
mas de actualización no se presentan porque son 
análogos a los de introducción. 

El diagrama de la página 2130 muestra la estruc- 
tura general del programa de generación de las 
preguntas. Las subrutinas utilizadas son iguales O 
análogas a las de los demás programas. La única 
diferencia consiste en el modo de gestión de los 
datos que constituirán las lecciones. Como se ve 
en el menú principal, no se ha previsto la intro- 
ducción, sino sólo la variación. 

Esto se debe a la particular subrutina de genera- 
ción (1200) del sistema, que incluye otras funcio- 
nes además de la de preparación normal de los 
ficheros. 

En el diagrama de arriba se ha desarrollado con 
detalle la Generación del sistema. La primera fun- 
ción de esta subrutina es la creación de los fiche- 
ros, con los formatos indicados en la tabla (re- 
cuérdese que estos valores se refieren a las ver- 
siones disco). 





Al final se activa automáticamente la introducción 
de los nombres de los usuarios (subrutina 12100) 
y, a continuación, la de los datos que constituirán 
las lecciones (12200). Volviendo al diagrama prin- 
cipal, obsérvese que se ha previsto la introduc- 
ción de un texto de explicación de las lecciones, 
constituido por 40 líneas de 35 caracteres. La 
gestión de esta página de texto se obtiene con la 
data entry utilizada normalmente. 


Introducción usuarios. La introducción de los 
usuarios emplea una sola pantalla vídeo para 5 
posibles nombres, por lo que se necesitan punte- 
ros que puedan desempaquetar el buffer B$() 
en 5 registros diferentes. La primera función es la 
carga de los parámetros que definen la máscara 
vídeo (subrutina 7000) en la que deben definirse 
todos los campos correspondientes a los 5 nom- 
bres (todo esto es válido para las versiones disco. 
Para la Cassette, el problema se supera con la 
limitación a un solo usuario). 
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INTRODUCCION USUARIOS 


Transfiere 
al disco 


Antes de presentar la máscara se transfiere el va- 
lor O a cada uno de los campos que deberán con- 
tener el número de la última lección que se ha su- 
perado. 

Siguen las acostumbradas subrutinas de presen- 
tación y gestión de máscaras y la transferencia al 
disco de los datos. 

Obsérvese que la transferencia debe realizarse 
con un bucle de 1 a 5, y en cada registro debe 
colocarse la suma de los buffers N y N + M (con 
M valor impar). 


Introducción datos (lecciones). La introducción 
de las lecciones (preguntas y flags) se realiza de 
manera estructuralmente análoga a la de los otros 
programas, añadiendo la gestión de los registros 
de inicio y fin de lección. Como se ha visto ante- 
riormente, una lección puede estar compuesta 
por varios registros (en esta aplicación son 10 de 
datos y 2 para la comprobación de inicio/fin), por 
lo que al principio y al final del bloque deben es- 
cribirse unos identificadores. 
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La máscara Usuarios presenta los 
5 posibles nombres, todos en la 
misma pantalla vídeo 


Los campos que contienen el 
número de la última lección 
superada son los que tienen 
índice par (2, 4, 6, 8, 10), 

por lo que el bloque es un bucle 
con paso 2 


En los campos con índice par 
aparece 00, en los DATA se 
definen en la presentación 


La transferencia se hace 
nombre por nombre, cada uno 
en un registro: 

B$(1) + B$(2) registro 1 

B$(3) + B$(4) registro 2 

etc. 


En particular, al inicio se escribe el signo «—» en 
un determinado byte, mientras que al final se es- 
cribe un registro con los símbolos «: xx». Debido 
a esto, el diagrama presenta algunas funciones 
más que lo usual. Una introducción normal termi- 
naría con la escritura de los datos en el disco, 
inmediatamente después de la salida de la data 
entry, con FS = 5. En cambio, en este caso, pri- 
mero hay que escribir un registro de inicio de blo- 
que (símbolo «—»), desarrollar después un bucle 
sobre las 10 líneas de la máscara memorizando 
cada una en un registro (cada línea contiene en 
B$(N) el texto, y en BS(N + 1) el flag correspon- 
diente). Al final de este bucle debe cerrarse el 
conjunto de los datos de la lección con un regis- 
tro que contenga los simbolos «x * x». 

Esta función podría ser la propia presentación de 
las preguntas en la forma que serán utilizadas por 
el niño y así poder comprobar su eficacia. Sin em- 
bargo, su introducción complicaría excesivamen- 
te los listados y por esto se ha omitido, dejando al 
usuario su eventual incorporación. 


Presentación preguntas y 
gestión respuestas. La 
comprobación de las res- 
puestas consiste en leer, 
para cada pregunta, la res- 
puesta dada y compararla 
con la correcta memorizada 
en el fichero. El diagrama de 
la página 2134 muestra un 
método generalizado (por lo 
que no se ha numerado). 

La comprobación se realiza 
con un bucle que controla la 
igualdad entre las cadenas 
BS$(respuesta dada) y A$(«) 
(respuesta correcta memorl- 
zada). 


Versión con los gráficos 


La lección consiste en la 
presentación de un dibujo y 
5 vocablos, de los cuales 
uno, o más, se refiere a la 
imagen. El niño debe indicar 
cuál es el nombre correcto 
del objeto entre los que se 
presentan. También en esta 
versión pueden tenerse va- 
rios grados de dificultad en 
función de cómo se introdu- 
cen los datos. 

En el caso más sencillo, a 
cada figura hay asociados 4 
vocablos erróneos, que indi- 
can un objeto diferente, y 1 
correcto. 

En el caso más complejo 
pueden introducirse sinóni- 
mos o vocablos con errores 
de ortografía. La elección 
del grado de dificultad sólo 
depende de los datos intro- 
ducidos y, por tanto, está 
completamente desvincula- 
da del programa. Para esta 
aplicación también debe se- 
pararse la generación de las 
preguntas del desarrollo y, 
por tanto, la estructura del 
programa es análoga a la 
de los anteriores. La única 
diferencia consiste en el for- 
mato del fichero archivo pre- 
guntas y respuestas, que 
debe contener los datos ne- 
cesarios para la generación 
de las figuras, y en la subru- 


INTRODUCCION DATOS (LECCIONES) 


AS 


y 
y 
y 


Principio bucle lecciones: 
el máximo previsto es 100 


—D, 


Escribe el 
primer registro 
de la lección 


Transfiere 
al disco 


El primer registro contiene el 
simbolo “b” en los bytes 1 y 2 
mientras que en los 16 
restantes, el valor "Il" es 

el tema de las lecciones 


Los datos se presentan 
asociando los vocablos 
(punteros > 5) o los 
erróneos invertidos 


Al disco se transfieren 10 
registros, cada uno 
correspondiente a una línea 
de la data entry: 
B5$(1) + B$(2) registro 1 de 
la lección 
B5$(3) + B$(4) registro 2 de 
la lección 
etc 
El registro está compuesto de 
2 simbolos * y 16 espacios 
(u otros simbolos cualesquiera) 
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tina de creación y modifica- 
ción del dibujo. 

En la página 2135 se ha re- 
presentado el esquema de 
principio de la nueva estruc- 
tura del fichero. Dadas las 
notables diferencias de las 
gestiones de los gráficos, se 
han presentado por separa- 
do las tres versiones (C-64, 
DOS y MSX). 

En la primera (C-64) se ha 
previsto la generación de fi- 
guras por medio de sprites. 
No se han introducido los 
gráficos de alta resolución 
porque tienen una gestión 
muy compleja, y para esta 
aplicación no ofrecen sufi- 
cientes ventajas. 

En la versión DOS, al faltar la 
gestión de los sprites, es ne- 
cesario utilizar los gráficos 
de alta resolución y, por tan- 
to, la «tabla de desplaza- 
mientos». 

La útlima versión, MSX, pre- 
vé una gestión de los sprites 
que permite una excelente 
resolución sin utilizar progra- 
mas excesivamente com- 
plejos. Estas grandes dife- 
rencias entre las máquinas 
obligan a desarrollar las tres 
versiones del programa de 
manera completamente di- 
ferente, por lo que cada una 
se examinará por separado. 
Para cada versión, las prin- 
cipales características son 
estas: 


m Versión C-64 


La versión está compuesta 
por un solo sprite, puesto 
que su generación en el C- 
64 se hace con direcciona- 


dos directos en memoria, y- 


utilizando tablas de defini- 
ción demasiado extensas 
puede destruirse parte de 
los otros datos utilizados en 
el programa. 


m Versión DOS 


En esta máquina sólo es po- 
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PRESENTACION PREGUNTAS Y GESTION RESPUESTAS 
VERSION SOLO TEXTO 


Actualiza el 


registro Usuario 


El programa pide el nombre 
del usuario que deberá 

ser interrogado y lo compara 
con los ficheros Nombres 

en la generación 


Los últimos 12 bytes del registro 
en el que hay el nombre 
contienen el número de la 

última lección superada por 

el usuario 


Mediante el número de 

la última lección superada 
por el usuario se calcula 
el puntero a las preguntas 
del fichero Datos 


En el registro del usuario, el 
número de lección superada 
se incrementa en 1 


El programa pregunta si 
el usuario desea continuar 
desarrollando las lecciones 





FORMATO DEL FICHERO PREGUNTAS Y 
RESPUESTAS: VERSION CON GRAFICOS 


1 lección = 4 registros 


Sprite (3 registros) 


Versión C-64 


(60 caracteres + "4 4 4”) 


Sprites 


sible el uso de los gráficos de alta resolución y. 
por tanto, la figura se genera y se memoriza como 
una serie de caracteres gráficos. Análogamente, 
las leyendas se obtienen gráficamente presen- 
tando todos los segmentos correspondientes a 
cada letra del texto. Estos caracteres se memorl- 
zan en un fichero de servicio que lee el programa, 
por lo que en la presentación hace falta una rutina 
que analice, carácter por carácter, las leyendas y 
de los datos leídos e insertados en la memoria ex- 
traiga los caracteres correspondientes a los ca- 
racteres de alta resolución. 


m Versión MSX 


En esta versión, los sprites pueden definirse me- 
diante una cadena, por lo que su colocación en 
memoria está a cargo del sistema. 

El usuario no debe especificar las direcciones de 
las tablas. 

Para una mayor versatilidad es posible construir 


Versión DOS 


Versión MSX con sprites 





un dibujo uniendo más sprites, y en el programa 
se han previsto 4, cada uno compuesto de 16 x 
16 puntos. 

En la página 2136 se ha representado el diagra- 
ma de principio de las versiones que utilizan los 
sprites (C-64 y MSX). Los datos (cadenas de defi- 
nición y textos) se memorizan en un fichero único, 
en el que los registros de número par (2, 4, 6) 
contienen los valores para los sprites y los impa- 
res, los textos asociados. Si bien con estructuras 
similares, las dos versiones difieren notablemen- 
te. En particular, la versión MSX permite gestionar 
un elevado número de sprites simultáneamente. 
Aprovechando esta característica, el dibujo está 
constituido por 4 sprites y, por tanto, tiene mayor 
detalle. 

En la página 2137 se ha representado el diagra- 
ma detallado de la subrutina de generación de di- 
bujo en la versión MSX. 

La pantalla está dividida en dos zonas. En la pri- 
mera, arriba a la izquierda, aparecen los coman- 
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dos útiles para la construc- 
ción de la figura y, en la par- 
te central, una retícula que 
representa, muy ampliado, 
el sprite durante su defini- 
ción. Posicionando el cursor 
en la retícula, el usuario pue- 
de identificar cada punto del 
sprite y activarlo. Al mismo 
tiempo, el punto se presenta 
en el conjunto, por lo que 
puede realizarse el desarro- 
llo de la figura a medida que 
se completa cada detalle. 

La definición de cada uno 
de los 4 sprites se obtiene 
mediante 4 cadenas (T$(1), 
T$(2), TS(3) y TS(4)), cada 
una de las cuales contiene 
el valor del punto activado 
convertido en carácter. Por 
ejemplo, la figura obtenida 
activando los puntos mostra- 
dos en la página 2138 está 
constituida por4 cuadrados. 


E Primer cuadrado, identifi- 
cado por las líneas 1 a 8 
y las columnas 1 a 8. Los 
correspondientes valores 
están en T$(1) 

m Segundo cuadrado, com- 
prendido entre las líneas 
1 a8 y las columnas 9 a 
16, en T$(2) 

m Tercer cuadrado entre 9 
a16y1a8, en T$(3) 

= Cuarto cuadrado entre 9 
al6y2a 16, en T$(4) 


A medida que se desplaza 
el cursor, el valor numérico 
asociado se actualiza. Por 
ejemplo, si el cursor está en 
la línea 3, columna 4, el valor 
es 16 (el valor sólo depende 
de las columnas). Al activar- 
lo es necesario memorizar, 
pues, el número 16 (conver- 
tido en cadena). En la figura 
de la página 2138 se han re- 
presentado los valores co- 
rrespondientes al sprite di- 
bujado. 

Como se ve, cada uno de los 
4 cuadrados en que se divi- 
de un sprite necesita 8 valo- 
res (uno por cada línea). 
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GENERACION DE LAS FIGURAS E INTRODUCCION TEXTOS 
Versión con sprites (C-64 y MSX) 


O—— y 


El desarrollo de esta rutina 
depende mucho de la 
máquina, por lo que se 
presenta para las 

dos versiones C-64 y MSX 


La introducción del texto 

prevé 5 vocablos de 10 
caracteres, cada uno 

con un flag, que puede valer 1 

si el vocablo es una 

respuesta correcta o 0 

si es errónea. Esta 

introducción se efectúa mediante 
las rutinas 2000 y 3000 


Actualiza 
registro 1 


El registro 1 contiene, como 
de costumbre el número del 
último registro ocupado. 

Sin embargo, el fichero Datos 
está estructurado con una 
lección en dos o más registros 
y, por tanto, los datos están 

en los registros 2 y 3, 4 

y 5, etc. 


MX es el valor leido en el 
primer bloque (registro 1) 


Para la versión cinta, las funciones son análogas. pero se realizan enteramente en memoria, 


con transferencia al fichero sólo al final de la introducción 





GENERACION SPRITES EN MSX 


— Borra la pantalla 

— Borra el contenido de las 
variables 

- Inicializa los contadores 


— E, 


En la pantalla aparece 
ampliada la retícula del sprite 
en la fase de generación (1 : 4) 
y el conjunto de la figura 


A su vez, el cursor es un 
sprite 


: 


Sólo con acuerdo, si no 
se Ar la activación del 
pun 


En la pantalla aparece el sprite en 
fase de generación 
junto con los anteriores 
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La retícula contiene, ampliado, el sprite en fase de construcción 


12864 32 16 8 4 2 


TS(1) =CHR$(64) + 
CHR$(27) + 
CHRS$(0) + 
CHR$(112)+ 
CHRS(8) + 
CHR$(96) + 
CHRS(2) + 
CHR$1(0) 


S$(1) 


s 157 AS 
Ja pl lid east PA 


S$(3) S$(4) 


S$(n) = TS(1) + TS(2) + 
+ T5(3) + T5(4) 


pepa Ele 
PPP PA 
AAA PAPAS 


Por esto es evidente la necesidad de una matriz 
intermedia, de dimensión 8, en la que recoger los 
valores numéricos a transformar, sucesivamente, 
en cadena. 

Resumiendo: 


1 / La línea y la columna de la retícula comnmciden 
con la posición física del cursor y, por tanto, 
hay que gestionar los desplazamientos con 
dos contadores, uno para la línea y otro para 
la columna 


2 /La línea identifica uno de los 8 elementos de la 
matriz auxiliar (AA(8)), mientras que la colum- 
na, el valor numérico a insertar. Por ejemplo, 
indicando con L la línea y con C la columna en 
que se encuentra el cursor, su activación pro- 
duce la memorización en el elemento AA(L) 
del valor numérico 2(C — 1). Y viceversa, si con 
el cursor en la posición L,C se pulsa la tecla 
«S» (Borra), se tiene AA(L) = 0 y el punto se 
desactiva. 


3 / Al final de uno de los 4 cuadrados que consti- 
tuyen el sprite, los 8 valores numéricos son 
convertidos en cadena en la matriz T$(1). 
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Para evitar que el usuario tenga que ordenar este 
desplazamiento, se ha previsto una matriz inter- 
media para cada una de las cadenas T$(«) y, por 
tanto, en el listado su dimensionado es AA(4,8). 
El diagrama de la página 2137 sólo es a nivel fun- 
cional, y el detalle puede obtenerse en los lista- 
dos. En particular se muestra la lógica utilizada 
para el borrado, mientras que no se ha mostrado 
la del desplazamiento. El cursor se posiciona utili- 
zando las teclas correspondientes (—, >, P., |), 
pero la zona no se activa si no es bajo acuerdo, O 
sea con la tecla A. Por tanto, después del bloque 
de cálculo de la nueva posición, debe insertarse 
la lectura de un carácter. Si el carácter introduci- 
do es A, se realizan las siguientes funciones. De 
otro modo se saltan. 


Actualización. Como para todos los programas 
de gestión de datos, en este caso también debe 
preverse la función de actualización, o sea de va- 
riación de valores introducidos anteriormente, por 
ejemplo para corregir errores cometidos en la in- 
troducción. El diagrama de la página 2136 no indi- 
ca, para sencillez, esta función, pero su introduc- 
ción requiere pocas modificaciones. Después de 
la generación del sprite, los datos correspondien- 


tes se transfieren al fichero en el registro MX + 1, 
o sea en el primero libre. Para activar la función 
de actualización basta con pedir al usuario qué 
registro desea escribir y así, el dato introducido 
por vídeo (sprite), en lugar de ocupar una posi- 
ción vacía (Reg. = MX + 1) vuelve a escribirse en 
el registro que contenía los valores erróneos. Para 
el texto cabe seguir un procedimiento análogo. 
Uno u otro modo de proceder se selecciona con 
un flag que indica si la función deseada es una 
Introducción o una Actualización. En el primer ca- 
so, los datos se introducen en el registro MX + 1 
y, en el segundo, el usuario debe especificar su 
posición. 

Naturalmente, este método sólo es aplicable a las 
versiones disco, o sea con ficheros de tipo ran- 
dom. Para la versión cinta (secuenciales) hay que 
cargarlo todo en memoria y después volver a es- 
cribir el fichero por completo. 


Versión en alta resolución. Para los sistemas 
DOS no hay previstos los sprites, por lo que debe 
utilizarse la alta resolución desarrollando el dibujo 
como una serie de caracteres gráficos. El diagra- 
ma de principio también es el de la página 2136, 
con la diferencia de que la subrutina Sprite se ha 
sustituido por la gestión de la pantalla gráfica. 
Una vez construido el dibujo debe leerse la me- 
moria vídeo y transferir su valor al fichero datos. 
Este procedimiento también puede utilizarse en 
un sistema MSX, con instrucciones de alto nivel 
que facilitan la gestión del vídeo en alta resolu- 
ción. Las dos variaciones son análogas y, por tan- 
to, se han omitido los diagramas. 


Modificaciones para la versión DOS. Cuando 
hay que trabajar en alta resolución, por ejemplo 
para realizar gráficos o dibujos bastante detalla- 
dos, se produce la imposibilidad de sobreponer a 
los gráficos el texto de caracteres ASCII. En el 
Apple se ha previsto el modo gráfico 1, que per- 
mite escribir cuatro líneas de texto en la parte 
baja de la pantalla. Sin embargo, en la mayor par- 
te de los casos, este sistema no es suficiente para 
resolver el problema y, por tanto, deben preparar- 
se subrutinas que permitan la presentación de 
caracteres en alta resolución. 

Los resultados a conseguir son: 24 líneas de 40 
caracteres; posibilidad de leyendas en inverso y 
gestión de un cursor parpadeante; disponibilidad 
de un juego de caracteres semigráficos predefini- 
dos, y finalmente, una alta velocidad de ejecu- 
ción. 


Construcción del carácter. En el Apple, un ca- 
rácter está constituido por una matriz de 7 «w 8 
puntos, y precisamente por esto en este modo de 
texto se tienen 24 líneas de 40 caracteres: efecti- 


vamente, 7 x 40 = 280 (resolución horizontal) y 8 
+ 24 = 192 (resolución vertical). 

Cada punto de la matriz puede encenderse o 
apagarse: asociando la condición lógica 1 al pun- 
to encendido y la condición O al punto apagado, 
por ejemplo se ve que, para formar la letra «A», 
son necesarias ocho series de 7 bits, cada una 
correspondiente a una línea de la matriz. Por tan- 
to puede decirse que, para memorizar un carác- 
ter, bastan ocho bytes, correspondientes a los va- 
lores, en binario, de la matriz a dibujar. En la pági- 
na 2140 se presenta un ejemplo con la letra A. 


Organización de la página gráfica. La página 
gráfica del Apple está formada por 8192 bytes 
(8K); un grupo de 40 bytes corresponde a una 
línea de 40 x 7 = 280 puntos (se considera que 
un byte sólo está formado por 7 bits, porque el 
octavo no se emplea para formar la imagen). 
Cuando, utilizando la instrucción «HPLOT» del 
Basic, se enciende un punto en las coordenadas 
X,Y, la máquina calcula el byte de pantalla corres- 
pondiente a las coordenadas proporcionadas en 
la instrucción y, sucesivamente, introduce en esta 
posición un valor que depende, bien del conteni- 
do del byte seleccionado en aquel momento, 
bien del valor de la coordenada X indicada. 
Dividiendo la página gráfica en 40 columnas y 24 
líneas, si X e Y son las coordenadas donde se 
quiere que se dibuje el carácter, la fórmula que 
proporciona la posición de partida, o sea la locali- 
zación en que terminará la primera línea de la ma- 
triz de la figura, es la que está en (HGR2): 

LOC = 16255 x (Y < 9) + 16295 x (Y > 8) xe 
(Y < 17) + 16335 x (Y > 16) + (Y-8x (Y >8)-8x 
* (Y > 16))x 128 + X 
Las siguientes líneas de la matriz se posicionarán 
con paso 1024 a partir de la posición calculada. 
Hasta ahora no se ha hablado de la tabla de los 
caracteres. Sin embargo, es claro que para utili- 
zar este sistema debe cargarse en memoria una 
tabla en la que, para cada carácter, se memori- 
zan los ocho bytes necesarios para construirlo. 
Para hallar la posición del carácter en la tabla se 

tiene la fórmula: 

POS = 24575 + (CO -— 32) x 8 
Se supone que ésta está memorizada a partir de 
la posición 24576 (o sea después de la página 2 
en alta resolución) y que CO es el código ASCII 
del carácter a presentar. 
Un juego completo de caracteres está compues- 
to de 64 figuras, por lo que ocupa 64 x 8 = 512 
bytes. 
La rutina útil para la gestión de la tabla de carac- 
teres, proporcionada por las funciones de l/O, se 
utilizará en lugar de la data entry en las aplicacio- 
nes en las que se necesita la gestión simultánea 
de texto y gráficos. 
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GENERACION CARACTERES EN ALTA RESOLUCION 


' 
8.* bit no usado mE : 
> (1000)2  =(8)10 
=> (10100) =(20)10 
> (100010)2 =(34)10 
=> (100010)2 =(34)10 
> (111110)2=(62)10 
> (100010), =(34)10 
> (100010)2 =(34)10 
> (0) =(0)10 


1 
2 
3 
4 
5 
6 
Y 
8 


Pantalla 40 x 25 
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Ortografía / Versión Apple ll 


Generación texto 


LO RE O 

20 REM  ORTOGRAFIA - GENER. (TEXTO) 

30 REM VERSION DOS 

e 

50 REM INICIALIZACIONES 

60 DIM TF(15),TP(21),LC(21),ND(21),C 
X(21),CY(21),DX (21) ,DY(21),B$5(21) 
,D$(21),VO$(10),HE$(8) 


70 BPS >= CHRS (7): 
NS$ = "40; 
AS$ = CHR$ (95): 
EDS = 0.0: 
qe 
DS = CHR$ (4); 
US$ = CHR$ (13): 
7ES = "0"; 
Ius ="" 
SLE= "/" 
go  Bs=" " 
BAS = Bé + Eg + ES + B4: 
as En” 


90 HES = "AYUDA.CTRL - Y" 
100 HE$(1) = "CTRL Y. AYUDA (ESPACIO 
PARA CONTINUAR)  " 
110 HE$(2) = "ESC. ANULA TODA LA INTR 
ODUCCION e 
120 HE$(3) = "RETURN. ALINEA Y CONVAL 
IDA INTRODUCCION " 
130 — HE$(4) = "CTRL 1. FERMITE LA INSE 
RCION DE ESPACIOS" 
140 — HNE$(5) = "CTRL D. BORRA UN CARACT 
ER " 
150 HE$(6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL e 
160 HE$(7) = "CTRL W,A,S,7.MUEVEN EN 
LAS 4 DIRECCIONES" 
170 HE$(8) = "CTRL E. INTRODUCCION EN 
DISCO 4 
ATA TESTEATES 
HOME : 
YT = 12: 
TI$ = "CUANTAS UNIDADES HAY? (1/2 
AS 
GOSUB 11200 
174 GET A$: 
IF A$ < "1" OR AS > "2" THEN 172 
176 DR$ = A$; 
FRINT DR$ 
178 HOME ; 
YT = 12: 
TI$ = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD " + DR$: 
GOSUR 11200: 
GOSUB 11100 
177  ONERR GOTO 40000 
180. MP$ = "ORTOGRAFIA - GENER. (TEXTO 
yo 
220  GOSUB 500 
230. RESTORE +2 
READ. FROG$: 
READ NV: 
MA = NV +1 
240 FOR I= 1 TO NV: 
READ VO$(1): 
NEXT 1 
250  VO$(MA) = "FIN DE TAREA" 
260 FOR 1 = 1 TO 15: 
READ TF(1): 
NEXT 1 
320 L=0: 
FOR 1] = 1 TO NV +1 


330 


360 
370 


390 


400 


410 


460 
500 
S10 
520 


540 


560 


570 
1300 
1310 


Li = LEN (VO$(1)): 
IF Li >LTHENL = Li 


NEXT 1 

L=L+S5: 

XC = (42 - L) / 2 

YC = (25 - (NV * 2 + 1)) / 2 

GOSUB 1300 

IF OPZ = (MA) THEN FOR 1 = 1 
TO 1000: 

NEXT 1: 

TEXT 2 

HOME : 

END 

LM = OPZ - 1: 


ON OPZ GOSUB 12000, 15000, 14000,15 
000 

IF S = 1 THEN PRINT D$: 
PRINT D$; "PRHO": 

FRINT D$: 

s=0 

Y =5: 

X= 1: 

GOSUB 11000: 

INVERSE : 

PRINT— LEFTS (BA$,40)5: 
NORMAL 

GOTO 230 

RE => === 
REM PRESENTA CABECERA 
rr 
POKE 34,0: 

HOME : 

INVERSE : 

PRINT " E. G. S. "+ LEFTS (BAS 
,7) + "EDICIONES FORUM, S.A." 
no 

NORMAL 

YT = 3: 

TIS = MPS; 

GOSUB 11200 

Y = 2: 

X= 1: 

INVERSE : 

GOSUB 11000: 

PRINT " "z 

X = 403 

GOSUB 11000: 

PRINT -" 9e 

Y =3: 

X= 1 

GOSUB 11000: 

PRINT " ": 

X = 40: 

GOSUB 11000: 

PRINT- "53 

Y =4: 

X =:1: 

GOSUB 11000: 

PRINT " ": 

X = 40: 

GOSUB 11000: 

PRINT * "ss 

Y =5: 

X=d; 

GOSUB 11000 

FRINT— LEFT$ (BA$,40);5: 

NORMAL : 

POKE 34,5 

RETURN 

E 

REM MENU PRINCIPAL 


1320 
1330 
1330 
1350 


1370 
1380 
1390 
1400 
1410 
1415 


1420 


1440 
1450 


1460 
1470 


1480 


1490 
1500 
1510 


1520 
1530 


1540 
1550 
1560 
1570 
1580 
1590 
2000 
2010 
2020 
2025 


2030 


2035 


2040 


2050 





ay ES A 
HOME 
FOR I = 1 TO MA 
Y = 1.8 .2+vCEs 
X = XCz 
GOSUB 11000 
11 =1 


IF 11 = (MA) THEN II = 0 


- 2 
= XS 
2 + YC: 


" 
ES 
J 


X = X3: 

GOSUB 11000 

FRINT "->"3 

GET 0PZ$: 

OPZ = VAL (0PZ$): 

IF OPZ$ = US$ THEN 1530 

IF 0PZ > NV THEN 1450 

IF 0PZ% = ZE$ THEN X = XS: 
GOSUB 11000: 

PRINT_ SPC( SP);: 

I = MA: 

GOTO 1420 

IF. ASC (0PZ$) > 48 AND ASC (0PZ 
$) < 58 THEN X = XS: 

GOSUB 11000: 

PRINT_ SPC( SP): 

1 = 0PZ: 

GOTO 1420 

IF 0PZ$ < > GIU$ THEN 1450 
X = XS: 

GOSUB 11000: 

PRINT — SPC( SP); 

I=1+1: 

IF 1 > (MA) THEN 1410 

GOTO 1420 

X = XC: 

Y=1%2+YC 

11 = 1: 

IF 1 > NV THEN 11 = 0 
PRINT_1I5"- “5: 

INVERSE 

PRINT VO$(1) 

NORMAL 

OPZ = 1 

RETURN 

REM 

REM PRESENTA MASCARA 

REM em es 

IF CY(1) < =7 THEN HOME s 
GOTO 2040 

HOME : 

Y=7: 

X= 1: 

GOSUB 11000: 
FRINT " VOZ ";¡0PZ 
YT = 5: 

TIS = HES$: 
INVERSE : 

GOSUB 11200: 
NORMAL 

YT =7: 

TIS = IN$: 
G0SUB 11200 
IFCO< >0 THEN Y = 
X =XT+ LEN (INS) + 
GOSUB 11000: 
FPRINT CO 


72 
1: 


2060 
2070 
2080 
2090 


2100 
2110 


2130 
2140 
2150 
2160 
2170 
2180 
2240 


2260 
2270 


2280 
2290 


2300 


2310 
2320 
2330 


2340 
2345 


2360 


2370 
2380 


2390 


2400 
2410 
2420 
2430 
2440 
2450 


2460 
2470 
2480 
2490 


2510 
2600 
2610 
2620 


Dm 
2 





SP = 33 - LEN (VO$(0P2)) 
SPg = "" 
IF SP = O THEN 2100 
FOR J = 1 TO SP: 
SP$ = SP$ + BL$: 
NEXT 


LP = LEN (PROG$) 
SI = INT ((40 - LP) / 2): 
DE = 40 - LP - SI 
sIi5=""; 
DES = "" 
FOR J = 1 TO Sl 
SI$ = SIS + BL$ 
NEXT 
FOR J = 1 TO DE 
DE$ = DES + EL$ 
NEXT 
REM MASCARA 
FOR J = 1 TO NUC 
As ="" 
X= DX(J): 
Y = DY(J): 
GOSUB 11000: 


: 

PRINT D$(J) 

NORMAL 

IF TP(J) < > 5 AND TF(J) 

< > 4 THEN 2330 

X= CX(J)s 

Y = CY(J): 

GOSUB 11000 

FRINT B$(J) 

GOTO 2500 

Ni = LC(J)3 

N2 = ND(J): 

1F TP(J) = 1 0R TP) = 2 

THEN C$ = NS$; 

GOTO 2350 

C$ = AS$ 

IF Ni = 1 THEN A$ = C5 

GOTO 2390 

FOR 1 = 1 TON1 - N2 - 
AS = AS + CS: 

NEXT 1 

IF N2 = 0 THEN AS = As + ($: 

GOTO 2390 

AS = AS + PDS 

FOR 1 = 1 TO N2: 
A$ = AS + 2ES: 

NEXT 1 

X = CX(): 

Y = CY(J): 

GOSUB 11000 

PRINT A$ 

BD) ="" 

FOR K = 1 TO Ni - N2 - 1 
B$(J) = B$(J) + BLS 

NEXT K 

IF N2 = O THEN B$(J) = B$(J) 

+ BLS: 

GOTO 2500 

B$(J) = B$(J) + PDS 

FOR K = 1 TO N2 
B$(J) = B$(J) + BL4 

NEXT K 

NEXT J 


IF LM = O THEN YT = 9: 

TIS = "INTRODUCIR LOS NOMBRES DE 
LOS USUARIOS": 

GOSUB 11200: 

RETURN 

IF LM< > 1 THEN 2680 

X= 3: 
Y = 10: 
G0SUB 11000: 


2670 
2680 
2685 
2690 


2700 
2710 


2720 
2900 
3010 
3020 
3030 
3040 
3050 
3070 


3090 
3100 


3110 
3120 
3130 


3140 


3150 


3160 


3170 


3180 


3190 


3200 


3210 


3220 


3310 
3320 


PRINT "VOCABLO": 

X = 28: 

EOSUB 11000: 

PRINT "INDICADOR" 

RETURN 

IF LM< > 2 THEN 2900 
IF OPZ = 4 THEN 2710 

YT = 1: 

TI$ = "INTRODUCCION TEXTO": 
GOSUB 11200 

RETURN 

YT = 1: 

T1$ = "CORRECCION TEXTO": 
GOSUB 11200 


REM DATA ENTRY 

REM PS 

J=1 

NC = J: 

X = CX(NC): 

Y = CY (NC) 

CL = 1 

GOSUB 3240 

IF FS = O THEN 3100 

IF FS > 4 THEN 3210 

GOTO 3120 

Y=J+1i: 

IF J > NUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 
IF J >1 THEN J=J- 1: 
GOTO 3040 

PRINT BP$;2 

FS = 0: 

J = NUC: 

GOTO 3040 

IF J < NUC THEN J =J+ 1: 
GOTO 3040 

PRINT BP$;: 

FS = 0: 

GOTO 3030 

IF CC < LC(J) THEN SO = 1: 
CC = CC + 1: 
A EX 11 
GOSUB 11000: 
GOTO 3060 
PRINT BP$: 

FS = 0: 

GOTO 3100 

IF CC > 1 THEN SO 
CC = CC - 1: 
NR 
GOSUB 11000: 
GOTO 3060 
PRINT BP$;: 
FS = 0: 

GOTO 3040 

IF FS > 8 THEN FS = 0: 
GOTO 3060 

IF FS = 8 THEN FS 
GOTO 3100 
RETURN 

RENA 
REM LECTURA DE UN CAMPO 
A 

FS =0 

IF TP(NC) = 4 THEN RETURN 
IF TP(NC) = 2 THEN GOSUB 9000: 
BS(NC) = LEFTS (B$(NC),LC(NC))5 
CC = LEN (ES(NC)) + 1: 
G0SUB 4080: 

RETURN 

IF MIDS (B$(NC),CC,1) = PD$ 
THEN X = X + SO: 

CC = CC + SO 

GOSUB 11000 

GET A$: 


Ú 
1 
ro 


O: 


3330 


3340 


3360 
3370 
3380 
3390 


3400 


3410 
3420 
3430 
3440 


3450 
3460 


3520 


3540 


3560 
3570 


3580 


3590 
3620 


3630 
3640 
3650 
3660 
3670 


3690 
3700 


3710 
3720 
3730 
3740 
3750 
3760 
3770 


3780 


3790 
3800 


a 
3 


3830 


3890 


3900 
3910 
3920 


1F AS = "" THEN 3320 
CA = ASC (AS): 
IF CA > 31 THEN 3380 
FOR 1 = 1 TO 15 
IF TF(I) = (CA) THEN FS 
= 1: 
GOSUB 3630: 
RETURN 
NEXT 1 
GOTO 3320 
IF TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 46 0R (CA 
> = 48 AND CA < = 57) THEN 341 
0 
PRINT BP$;: 
GOTO 3320 
IF CA<X > 46 THEN 3440 
GOSUB 4270 
IF SWF = 1 THEN 3400 
SO = 1: 
GOSUB 3520 
IF CC = LC(NC) THEN RETURN 
CC = CC + 13 
X= X +1: 
GOTO 3300 


REM 


REM TRANSFERENCIA AL BUFFER 






IF CC = 1 THEN SN$ = ""z 
GOTO 3570 
SN$ = LEFT$ (B$(NC),CC - 1) 
IF CC = LC(NC) THEN DS$ = ""; 
GOTO 3590 

N = LC(NC) - CC: 

DS$ = RIGHTS (B$(NC),N)> 
B$(NC) = SN$ + AS + DS$ 
PRINT A$: 

RETURN 

REM ———————— 

REM_ COMANDOS 

REM A 

IF FS > = 5 THEN 3690 

IF FS = 5 AND TP(NC) = 1 THEN 
GOSUB 4080 

RETURN 

IF FS = 9 THEN GOSUB 13000: 
RETURN 

IF FS = 8 THEN GOSUB 4080: 
RETURN 

IF FS < 8 THEN RETURN 

ON FS - 9 GOSUB 3740,3910 
RETURN 

REM A 

REM INSERCION 

REM A 

IF CC = LC(NC) THEN PRINT BP$: 
RETURN 

IF CC = 1 THEN SN$ = ""; 
GOTO 3800 

SN$ = LEFTS (B$(NC),CC - 1) 
N = LC(NC) - CC + 12 

DS$ = RIGHTS (B$(NC),N) 

C$ = BL$ 

AS = SN$ + C$ + DS$ 

BS$(NC) = LEFTS (A$,LC(NC)) 
XX =X: 

YY = Y 

= CX(NC)s 

= CY(NC)s 


PRINT B$(NC):z 
s0=- -1 
IF RIGHTS (B$(NC),1) = PD$ 


3930 
3940 
3950 


3960 
3970 


3980 


4000 
4010 


4020 
4030 
4040 


4050 


4060 


4070 


4080 
4090 
4100 
4110 
4120 
4130 


4140 


4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 


4240 


250 


4260 


4270 
4280 
4290 
4300 
4310 


4320 
4330 


4340 


5000 
5010 


5030 
5040 


e e > ; 
IF TP(NC) < > 1 THEN 3960 
IF. MID$ (B$(NC),2,1) = PD$ 
AND CC = 1 THEN RETURN 
IF CC < 1 THEN PRINT BP$: 
RETURN 
IF CC = LC(NC) THEN DS$ = "":z 
GOTO 4000 
N = LC(NC) - CC: 
DS$ = RIGHTS (B$(NC),N) 
IF CC = 1 THEN SNS = "": 
GOTO 4010 
SN$ = LEFT$ (B$(NC),CC - 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN C$ = NS$: 
GOTO 4030 
C$ = AS$ 
B$(NC) = SN$ + DS$ + C$ 
XX =X: 
YY = Y 
X = CX(NC):2 
Y = CY (NC): 
GOSUB 11000 
X = XX: 
Wat NY 
PRINT B$(NC): 
S0 = 1: 
RETURN 
REM 
REM ALINEADO 
REM -- 
IF LC(NC) = 1 THEN RETURN 
Ni = LC(NC) - CC + 1 
IF CC = 1 THEN B$(NC) = "": 
GOTO 4150 
B$(NC) = LEFTS (B$(NC),2C 
a-1) 
IF TP(NC) = 1 OR TF(NC) = 2 
THEN 4200 
FOR 1 = 1 TO Ni 
B$(NC) = B$(NC) + EL$ 
NEXT 1 
GOTO 4240 
FOR I = 1 TO Ni 
B$(NC) = BL$ + BS$(NC) 
NEXT 1 
IF. RIGHTé (B$(NC),1) = PD$ 
THEN B$(NC) = BL$ + LEFTS (ES UN 
C),LC(NC) - 1) 
X = CXI(NC): 
Y = CY (NC) 
GOSUB 11000 
PRINT B$ (NC): 
RETURN 








SsWwP =0 
IF CC = 1 0R CC = LC(NC) THEN SWP 


FOR 1 = 1 TO LC(NC) 
IF MIDS (B$(NC),1,1) += PDS 
THEN 1 = LC(NC): 
SWP = 1: 
RETURN 
NEXT 1: 
RETURN 
REM A e e a a 
REM INTRODUCCION LISUARIOS 
REM 
HOME 
LM = 0: 
GOSUB 7000: 
GOSUB 2000: 
GOSUB 2600 
GOSUB 3000: 
IF FS = 7 THEN RETURN 
IF FS = 6 THEN 5040 


5070 


5080 
5090 
5100 
s110 
5120 


£010 


6210 


6240 
6260 


6270 
6400 


7060 
7070 


7075 


7080 


7090 
7092 
7095 


7100 


7110 


7120 


8010 


8030 


NF$ = "NOMBRES": 

LR = 22; 

GOSUB £000 

FOR NR = 1 TO S: 
AAS = BS(NR) + "00" 
GOSUB 6400 

NEXT NR 

GOSUB 66500 


PRINT DS 
PRINT DS; "OPEN";NF$ + ",D" 
+ DR$;",L"5LR + 2 
PRINT DS 
RETURN 
REM A AAA A AAA AA 
REM LECTURA REGISTRO 
=> 
PRINT D$ 
PRINT D$;"READ"¿NF$;",R"¿NR 
INPUT AA$ 
PRINT DS 
RETURN 
REM 
REM ESCRITURA REGISTRO 
REN->z>_-——________________—— 
PRINT DS 
PRINT DS; "WRITE"5NF$;",R"¿NR 
PRINT— CHR$ (34) + AAS 
PRINT DS$ 
RETURN 
EN 
REM CIERRA FICHERO 
REN ->-—————— 
PRINT D$ 
PRINT D$;"CLOSE";NF$ 
PRINT D$ 
RETURN 
REM A A A 
REM LECTURA DE LOS DATOS 
REM -. 
RESTORE 
READ DAS: 
READ NV 
FOR 1 = 1 TO NV + 15: 
READ DA$: 
NEXT 1 
IF LM = O THEN 7075 
ND = O: 
FOR 1 = O TO LM - 1: 
READ DA: 
ND = ND + DA + (DA £ 7): 
NEXT 1 
READ NUC: 
IF NUC = O THEN RETURN 
IF NV - LM- 1 = O THEN 7090 
FOR I = 1 TO NV - LM - 1: 
READ DAS: 
NEXT 1 
IF LM = O THEN 7100 
IF ND = O THEN 7100 
FOR 1 = 1 TO ND: 
READ DAS: 
NEXT I 
FOR I = 1 TO NUC: 
READ D$(1): 
NEXT 1 
FOR 1 = 1 TO NUC: 
READ TP(1),LC(1),ND(1),DX(1), 
Y(D,CX(1),CY (1): 
NEXT 1 
RETURN 
Rao 
REM INTRODUCCION DATOS 
REM AA A AAA AAA 
LM = 1: 
GOSUB 7000: 





8035 


8040 


8060 


8070 


8080 
8090 


8100 


ei110 
8120 


8130 

10000 
10010 
10020 
10030 
10040 
10050 


10060 


10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 


10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10345 
10350 
10360 
11000 
11010 


IL = 1: 

IN$ = "LECCION N. "s 

NF$ = "DATOS": 

LR = 18: 

GOSUB 000: 

IR = 1 

CO = IL: 

GOSUB 2000: 

GOSUB 2400 

GOSUB 3000: 

IF FS = 7 THEN GOSUB 6600: 
RETURN 

IF FS = 6 THEN 8030 

NR = IR: 

ARAS = " -" + STR$ (IL) + 
MIDS$ (BA$,1,2 — LEN ( STR$ (IL) 
1) + B$(21)2 

GOSUB 6400 

IR = 1R + 13 

J=1: 

FOR NR = IR TO IR + 9 

AAS = BS(J) + BS(J + 1): 


ARS = "En: 
GOSUB 6400 

IR = IR + 13 

IL = IL +1 

IF IL > 100 THEN GOSUB 6600: 
RETURN 

GOTO 8035 

REM mm 

REM DATOS 

REM --—- 

DATA "ORTOGRAF 14" 

DATA 4 

DATA "GENERACION SISTEMA", "CORREC 
CION DATOS", "INTRODUCCION TEXTO", 
"CORRECCION TEXTO" 

DATA 23,26,19,1,5,27,18,13,23,9,4 
,0,0,0,0 

DATA 5,21,1,0 

DATA ML ta O 0,090 
DATA 3,20,0,8,12,11,12 

DATA 3,20,0,8,14,11,14 

DATA 3,20,0,8,16,11,16 

DATA 3,20,0,8,18,11,18 

DATA 3,20,0,8,20,11,20 

DATA Lt a Oz 
00 05,0, 00, gd 70h Dr, 
hon go, da o o TEMA, 

DATA 3,16,0,3,12,7,12 

DATA 1,2,0,1,1,28,12 

DATA 3,16,0,3,13,7,13 

DATA 1,2,0,1,1,28,13 

DATA 3,16,0,3,14,7,14 

DATA 1,2,0,1,1,28,14 

DATA 3,16,0,3,15,7,15 








DATA 1,2,0,1,1,28,15 
DATA 3,16,0,3,16,7,16 
DATA 1,2,0,1,1,28,16 
DATA 3,16,0,3,17,7,17 
DATA 1,2,0,1,1,28,17 
DATA 3,16,0,3,18,7,18 
DATA 1,2,0,1,1,28,18 
DATA 3,16,0,3,19,7,19 
DATA 1,2,0,1,1,28,19 
DATA 3,16,0,3,20,7, 20 
DATA 1,2,0,1,1,28,20 
DATA 3,16,0,3,21,7,21 
DATA 1,2,0,1,1,28,21 
DATA 3,12,0,1,23,12,23 
DATA =* 

DATA 3,35,0,1,1,3,4 
REM A 


REM POSICIONA CURSOR 


11020 
11030 


11040 
11100 
11110 
11120 
11130 


11140 


11150 
11200 
11210 
11220 
11230 
11235 


11240 
11250 


11260 


11300 
11310 
11320 
11325 
11330 
11340 


11350 
11355 
11360 


11370 
11380 


11390 


11400 


11410 
11420 
11500 
11510 
11520 
11530 


11540 


11550 
11560 
11600 
11610 
11620 | 
11630 


116540 


11650 
11900 
11910 
11920 
11930 


REN 
HTAB X: 

VTAB Y 

RETURN 

REM pa 

REM ESPERA CARACTER 
REMASSa eta 
GOSUB 11600: 

YT = 23: 

TI$ = "PULSAR UNA TECLA": 
FLASH : 

GOSUB 11200 

PRINT BPS;; 

X = 20: 

Y = 23: 

GOSUB 11000: 

GET A$: 

GOSUB 11600 

RETURN 

RE 

REM CENTRA EN VIDEO 

REM: == 
IF TIS = "" THEN RETURN 
A0$ = Tló: 

GOSUB 11300: 

A0$ = LEFTS (A0$,40) 

XT = (42 - LEN (A0$)) / 2 
HTAB XT: 

VTAB YT 

PRINT AO$;: 

RETURN 

REA 

REM AJUSTA CADENA 

REM: naci asientos 

IF A0$ = "" THEN RETURN 
FOR ZO = 1 TO LEN (A0$) 





IF MID% (A0$,20,1) < >" " 
THEN 11360 

NEXT ZO 

RETURN 

AO0$ = RIGHTS (A0%, LEN (A0$) 


Y) 
FOR 70 = 1 TO LEN (A0$) 
IF MID% (A0$,20,1) < >" " 
THEN 11400 
IF MID$ (A0$,20 + 1,1) 
= " " THEN 11410 
NEXT 20: 
IF MID$ (A0$,20 - 1,1) =" " 
THEN Z0 = 20 - 1 
A0$ = LEFT$ (A0$,Z0 - 1) 
RETURN 





REM —— o 
REM PETICION DE ESPERA 

REM —— on 
GOSUB 11600: 

YT = 23 

TIS = "ESPERAR, POR FAVOR": 


INVERSE : 

GOSUB 11200 

NORMAL 

RETURN 
TARTA 
REM BORRA ULTIMA LINEA 
RE 
Y = 23: 

X = 1: 

GOSUB 11000 

NORMAL: 

PRINT— LEFTS (BA$, 40): 
Y = 10: 

GOSUB 11000 

RETURN 

a 

REM AVISO DE ERROR 

REM ========---- 


YT = 13: 
TI$ = "ERROR DE INTRODUCCION": 


11940 
12000 
12010 
12020 
12030 


12100 


“12110 


12120 
13000 
13010 
13020 
13030 


13040 
13050 
13060 


13070 
13080 
13090 
13100 
13110 
13120 


13130 
13140 


13150 


13160 
13170 


13130 
14000 
14010 
14020 
14030 
14040 


14050 


14055 
14060 


14070 


14080 


14090 
14100 


14110 
14120 


INVERSE : 

GOSUB 11200: 

GOSuB 11100 

RETURN 

REN 
REM GENERACION SISTEMA 
REM = 
HOME : 

YT = 13: 


TI$ = "INTRODUCIR UN NUEVO DISCO" 


GOSUB 11200: 

GOSUB 11100 

GOSUB 5000 

G0SUB 8000 

RETURN 

REM 

REM AYUDA 

RENS===5 

XX =X: 

YY = Y 

INVERSE 

K=1 

X= 1: 

Y=3 

GOSUB 11000 

PRINT HES(K)5 

B= PEEK ( - 16384) 

POKE - 16348,0 

IF B < 128 THEN 13080 

IF B< > 160 THEN 13080 

K=Ke+id; 

IF K > 8 THEN 13140 

GOTO 13060 

Y = 5 

X= 1: 

GOSUB 11000: 

FRINT— LEFTS (BA$, 40); 

YT = 5: 

TIS = HES: 

GOSuÑ 11200 

NORMAL. 

X = XX: 

Y = YY 

RETURN 

¡Ian 

REM INTRODUCCION TEXTO 

REM om mn mamo 

LM = 2: 

GOSUB 7000 

FOR Y = 5 TO 23: 
DSs(Y - 3) 
TP(Y - 3) 
LC(Y - 3) 
ND(Y - 3) 
DX(Y - 3) 
DY(Y - 3) 
Cx(Y - 3) 
CY(Y - 3) 

NEXT Y 

Nuc 

INS 

Co = 0: 

POKE 34,0: 

NFS = "TEXTO": 

LR = 35: 

GOSuB 6000 

GOSUB 2000: 

GOSUB 2600 

GOSUB 3000: 

IF FS = 7 THEN GOSUR 500: 

RETURN 

IF FS = 6 THEN 14070 

FOR NR = 1 TO 20: 

AAS = BSINR): 
GOSUB 6400 

NEXT NR 

GOSUB 2000: 

GOSUB 2600 


CI 
o 


"nu 


20: 


14130 GOSUB 3000: 
IF FS = 7 THEN HOME ; 
GOSUB 500; 
GOSUB £600: 
RETURN 
14140 IF FS = 6 THEN 14120 
14150 FOR NR = 21 TO 40: 
AAS = ES(NR - 20); 
GOSUB 6400 
14160 NEXT NR: 
GOSUB 4600 
14170 HOME ; 
GOSUB 500; 
RETURN 
ISO PREM 
15010 REM CORRECCION DATOS 
15020 REM === 
15030 LM = 1; 
GOSUB 7000: 
INS = "nm; 
co =0 
15040 HOME ; 
YT = 13: 
TI$ = "NUMERO LECCION": 
GOSUB 11200 
15050 INPUT A$: 
NL = VAL (A): 
IF NL < 1 OR NL > 100 THEN 15040 
15060 NF$ = "DATOS": 
LR = 18: 
GOSUB 6000 
15070 IN = 12 k (NL - 1) +2: 
JR =1 
15073 NR = IN - l: 
GOSUB 6200: 
B$(21) = MIDS (AA$,5,12) 
15080 FOR NR = (IN) TO IN + 9: 
GOSUB 6200 
15090 — B$(JR) = LEFTS (AAS,16): 
BS(IR + 1) = MIDS (AA$,17,2 
15100. JR =IR +2: 
NEXT NR 
15110 FOR I = 1 TO NUC: 
TP(1) = 4: 
NEXT 1 
15120 GOSUB 2000: 
GOSUB 2400 
15130 GOSUB 7000: 
GOSUB 3000: 
IF FS = 7 THEN RETURN 
15140 IF FS = 6 THEN 15110 
15145 NR = IN - 1: 
GOSUB 5200: 
AAS = MIDS (AA$,1,4) + BS(21): 
GOSUB 6400 
15150 JR = 1 
FOR NR = (IN) TO IN +9 
15160 ARS = BS(JR) + BS(JR + 1) 


GOSUB £400 
15170 JR = JR + 2: 
NEXT NR 
15180 GOSUE 6690: 
RETURN 
14000 REN. === en eee 
16010 REM CORRECCION TEXTO 
16020 REN: E 
16030 LM = 2 
16040 FOR Y = 4 TO 23: 
DAY - DD) ="" 
16050 TP(Y - 3) = 4: 
LC(Y - 3) = 335; 
ND(Y - 3) =0: 
DX1Y - 3) = 1: 
DY(Y - 3) = 1: 
CX(Y - 3) = 3: 
CY(Y - 3) = Y 
16060 NEXT Y 
16070 NUC = 20: 





IN$ 








16090 


16100 


16110 
15120 
16130 


16140 


16150 


16150 
16170 


16180 
16190 
16200 


16210 
1622 
16230 


15240 


16245 


16250 


16260 
16270 


16280 
16290 
16300 


40000 
40010 
40020 
40030 
40040 
40050 


40060 


40070 


40080 
40090 


40100 
40110 


CO = 0: 
POKE 34,0 
NES = "TEXTO": 
LR = 35: 
GOSUB 6000 
FOR NR = 1 TO 20: 
GOSUB 6200 
B$(NR) = AAS 
NEXT NR 
GOSUB 2000: 
GOSUB 2600 
FOR 1 = 1 TO NUC: 
TP(1) = 32. 
NEXT 1 
GOSUB 3000: 
IF FS = 7 THEN GOSUB 500: 
RETURN 
IF FS = 6 THEN 16130 
FOR NR = 1 TO 20: 
AAS = E$ (NR) 
GOSUB 4400 
NEXT NR 
FOR NR = 21 TO 40: 
GOSUB 6200 
BS (NR - 20) = AA$ 
NEXT NR 
FOR 1 = 1 TO NUCz 
TP(D) = 4: 
NEXT 1 
GOSUB 2000: 
GOSUB 2500 
FOR 1 = 1 TO NUC: 
TP(1) = 3: 
NEXT 1 
GOSUB 3000: 
IF FS = 7 THEN GOSUB 6600: 
GOSUR 500: 
RETURN 
IF FS = 6 THEN 16240 
FOR NR = 21 TO 40: 
AA$ = B$INR - 20) 
GOSUR 6400 
NEXT NR 
GOSUB 6600: 
GOSUB 500: 
RETURN 
e 
REM GESTION ERROR 
REMAESS 
IF PEEK (222) = S THEN 40130 
IF PEEK (222) < > 8 THEN 40060 
HOME : 
YT = 13: 
TI$ = "COMPROBAR DISCO DATOS": 
INVERSE : 
GOSUB 11200: 
GOSUB 11100: 
GOTO 400 
IF PEEK (222) < > 13 AND 
PEFEK (222) < > 11 THEN 40080 
HOME : 
YT = 133 
TI$ = "NOMBRE FICHERO NO VALIDO": 
INVERSE : 
GOSUB 11200: 
GOSUB 11100: 
NFS = "X": 
GOTO 400 
IF. PEEK (222) < > 9 THEN 40100 
HOME : 
YT = 13: 
TI$ = "DISCO LLENO": 
INVERSE : 
GOSUB 11200: 
GOSUB 11100: 
GOTO 400 
IF PEEK (222) < > 4 THEN 40115 
HOME : 
MTS 


TI$ = "DISCO PROTEGIDO": 






INVERSE : 
GOSUB 11200: 
GOSUB 11100: 
G0TO 400 
40115 L = PEEK (218) + 256 * PEEK (21 
9) 
40120 HOME ; 
YT = 13: 
TI$S = "ERROR "+ STR$ ( PEEK (22 
2)) + " EN " + STR$ (L)2 
GOSUB 11200: 
END 
A0130 HOME : 
TI$ = "EL NOMBRE FICHERO NO EXIST 
"3 
YT = 13: 
INVERSE : 
GOSUB 11200; 
GOSUB 11100: 
GOTO 400 
Uso texto 
10 REN — __—_——__—_—___—_—_— 
20 REM ORTOGRAFIA - USO (TEXTO) 
30 REM VERSION DOS 
40 REM A A e 
50 REM INICIALIZACIONES 
60 DIM TF(15),TP (20) ,LC(20),ND(20),C 
X (20) ,CY (20) ,DX (20) ,DY (20) ,B$(20) 
,D$(20) ,VO$(10),HE$ (8) 
70 BP$ = CHR$ (7): 
NS$ = "4: 
AS$ = CHR$ (95): 
PD$ = " 
BL$ = 
D$ = CHR$ (4): 
US$ = CHR$ (13): 
ON 
GIUS = " "; 
SL$ = "/" 
80 BS =" 57 
BA$ = B$ + E$ + B$ + E$: 
ERES 
90 HES$ = "AYUDA, CTRL - Y" 
100  HE$(1) = "CTRL Y. AYUDA (ESPACIO 


110 


140 


150 


1650 


170 


172 


174 


176 


178 


177 


PARA CONTINUAR)  " 

HE$(2) = "ESC. ANULA TODA LA INTR 
ODUCCION sa 

HE$(3) = "RETURN. ALINEA Y CONVAL 
IDA INTRODUCCION " 

HES(4) = "CTRL I. PERMITE LA INSE 
RCION DE ESPACIOS” 

HE$(5) = "CTRL D. BORRA UN CARACT 
ER " 

HE$(6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL ” 

HE$ (7) = "CTRL W,A,S,Z.MUEVEN EN 
LAS 4 DIRECCIONES" 

HE$(8) = "CTRL E. INTRODUCCION EN 
DISCO E 

TEXT : 

HOME : 

YT = 12: 

TI$ = "CUANTAS UNIDADES HAY? (1/2 
E 

GO0SUB 11200 

GET A$: 

IF AS < "1" OR AS > "2" THEN 172 

DR$ = A$: 

FRINT DR$ 

HOME : 

YT = 12: 

TI$ = "INTRODUCIR DISCO DATOS EN 

LA UNIDAD " + DR$: 

GOSUB 11200: 

GOSUB 11100 

ONERR GOTO 40000 


180 
220 


400 
410 


460 
500 
si0 
520 


530 


540 


550 


560 


570 

2000 
2010 
2020 


2030 


2035 


2040 


2050 


2060 


MF$ = "ORTOGRAFIA" 

GOSUB 500: 

RESTORE : 

FOR 1 = 1 TO 15: 
READ TF(1): 

NEXT 1 

NL = 0: 

GOSUB 12000 

A FRE (0) 

Y = 5: 

X= 1: 

GOSUB 11000; 

INVERSE : 

FPRINT  LEFTS (BA$,40)5: 

NORMAL 

GOTO 220 

RE As == 

REM FRESENTA CABECERA 

A A == 

FOKE 34,0: 

HOME : 

INVERSE : 

PRINT " E. G. S. "+ LEFTS (BAS 

+7) + "EDICIONES FORUM, S.A." 


on!” 4 


Eno 
NORMAL 

YT = 3: 

TI$ = MPG: 
GOSUB 11200 
Y =2; 
X=1: 
INVERSE : 
GOSUB 11000; 
PRINT " ": 
X = 40: 
GOSUB 11000: 
PRINT " "js 
Y =3: 

X= 1: 
GOSUB 11000: 
PRINT " ": 

X = 40: 
GOSUE 11000: 
PRINT " "ys 
Y =4; 

X= 1: 
GOSUB 11000: 
PRINT " "; 

X = 40: 
GOSUB 11000: 
PRINT " "53 
Y = 3 

X= 4d: 


GOSUB 11000 

FRINT LEFTS (BA$,40)31 
NORMAL: 

FOKE 74,5 

RETURN 

REM 





X= 1: 

GOSUB 11000: 

PRINT_" VOZ ";0PZ 

YT = 5: 

TIé = HES$: 

INVERSE : 

GOSUB 11200: 

NORMAL 

YT =7: 

TI$S = IN$: 

GOSUB 11200 

IF CO < 27.0 THEN Y =7: 
X= XT + LEN (IN$) + 1: 
GOSUB 11000: 

PRINT CO 

SP = 33 - LEN (VO$(0PZ)) 


2070 
2080 
2090 


2100 


SsPg ="“" 
IF SP = O THEN 2100 
FOR Y = 1 TO SP: 

SP$ = SP$ + BLé: 
NEXT 


LP = LEN (PROG$) 


2110 SI = INT ((40 - LF) / 2): 


2120 


2130 
2140 
2150 
2160 
2170 
2180 
2240 
2250 
2260 
2270 


2280 
2290 


2300 


2310 
2320 
2330 


2340 
2343 


2330 


2360 


2370 
2380 


2390 


2400 
2410 
2420 
2430 
2440 
2450 


2460 
2470 
2480 
2490 


2510 
2600 
2610 


3000 
3010 
3020 
3030 
3040 


3050 
3060 


DE = 40 - LP - SI 

s1s = 0“ 

DES = 

FOR 3 = 1 TO SI 
SI$ = SI$ + BL$ 

NEXT : 

FOR J = 1 TO DE 
DES = DES + BL$ 

NEXT 

REM MASCARA 

FOR J = 1 TO NUC 
As 
X= DD): 
Y = DY(D): 
GOSUB 11000: 


2 
FRINT D$(J) 
NORMAL. 
IF TP(J) < > 5 AND TP) 
< > 4 THEN 2330 
X = CX(J)s 
Y = CY): 
. GOSUB 11000 
FRINT B$(J) 
GOTO 2500 
Ní = LC(D): 
N2 = ND(J): 
IF TP(J) = 1 0R TP(D = 2 
THEN C$ = NS$: 
GOTO 2350 
"CS = AS$ 
IF Ni = 1 THEN A$ = Cód: 
GOTO 2390 
FOR 1 = 41 TO Ni - N2- d2 
AS = AS + CS: 
NEXT 1 
IF N2 = 0 THEN A$ = AS + C$: 
GOTO 2390 
AS = A$ + PDS 
FOR 1 = 1 TO N2; 
As = AS + ZEb: 
NEXT 1 
X = CX(J)s 
Y = CY(J): 
GOSUB 11000 
PRINT A$ 
BSD ="" 
FOR K = 1 TO Ni -N2 - 1 
B$(J) = B$(J) + BLS 
NEXT K 
IF N2 = O THEN B$(J) = B$(J) 
+ BL$: 
GOTO 2500 
B$(J) = B$(J) + PD$ 
FOR K = 1 TO N2 
B$(J) = B$(J) + BL$ 
NEXT K 
NEXT J 
RETURN 
REM COMPL. MASCARA 
VTAB 9: 
HTAB 10: 
PRINT "TEMA. "¡AR$ 
REA A 
REM DATA ENTRY 


3070 
3080 


3100 
3110 
3120 
3130 


3140 


3150 


3160 


3170 


3180 


3190 


3200 


3210 
3220 


3230 
3240 
3250 
3260 
3270 
3280 
3290 


3360 
3370 
3380 
3390 


3400 


3410 
3420 
3430 
3440 


3450 
3460 


IF FS = O THEN 3100 
IF FS > 4 THEN 3210 
GOTO 3120 
Ju 34 $e 
IF J > NUC THEN 3030 
GOTO 3040 
ON FS GOTO 3130,31530,3170,3190 
IF J > 1 THEN J=J-d: 
GOTO 3040 
PRINT BP$;53 
FS = 0: 
Y = NUC: 
GOTO 3040 , 
IF J < NUC THEN Y = Y + 1: 
GOTO 3040 s 
PRINT BF$;: 
FR = 0: 
GOTO 3030 
IF CC < LC(J) THEN SO = 1: 
CC = CC +13 
X= X+d: 
GOSUB 11000: 
GOTO 3040 
PRINT BP$: 
FS = 0: 
GOTO 3100 
IF CC > 1 THEN SO = - 1: 
CC = CC - 1: 
XX >. 13 
GOSUB 11000: 
GOTO 3060 
PRINT BP$;: 
FS = 0: 
GOTO 3040 
IF FS > 8 THEN FS = 0: 
GOTO 3060 
IF FS = 8 THEN FS = 0: 
GOTO 3100 
RETURN 
y AA 
REM LECTURA DE UN CAMPO 
BE, E X- == 
FS=0 
IF TP(NC) = 4 THEN RETURN 
IF TP(NC) = 2 THEN GOSUB 9000: 
B$(NC) = LEFTS (B$(NC),LC(NC)):5 
CC = LEN (B$(NC)) + de 
GOSUE 4080: 
RETURN 
IF MID$ (B$(NC),CC,1) = PDS 
THEN X = X + SO: 
CC = CC + SO 
GOSUB 11000 
GET A$: 
IF A$ = "" THEN 3320 
CA = ASC (As): 
IF CA > 31 THEN 3330 
FOR 1 = 1 T0 15 
IF TF(I) = (CA) THEN FS 
= 1: 
GOSUB 3630: 
RETURN 
NEXT 1 
GOTO 3320 
IF TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 46 OR (CA 
> =4BANDCAX = 
0 
PRINT BP$;3: 
GOTO 3320 
IF CA<X > 44 THEN 3440 
GOSUB 4270 
IF SWP = 1 THEN 3400 
SO = 1: 
GOSUB 3320 
IF CC = LC(NC) THEN RETURN 
CC = CC + 1: 
X=X +1: 
GOTO 3300 


57) THEN 36: 


3520 
3530 


3350 


35540 
3570 


3580 


3590 
3620 


3€30 
3640 
3650 
3670 


3680 
3690 


3700 
3716 
3720 
3730 
3740 
3750 
3760 
3770 
3780 


3790 
3800 
3820 
3830 
3940 
3850 


3060 


3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 


4020 
4030 
4040 


4050 


4060 


RM 
REM TRANSFERENCIA AL BUFFER 





IF CC = 1 THEN SN$ = : 

GOTO 3370 

SN$ = LEFT$ (B$(NC),CC - 1) 
IF CC = LC(NC) THEN DS$ = ""z * 

GOTO 3590 

N = LC(NC) - CC; 

DS$ = RIGHTS (B$(NC),N) 

BS (NC) = SN$ + A$ + DOS 

PRINT A$: 

RETURN 

PE A 

REM COMANDOS 

SE —=— == 

IF FS > = 5 THEN 3690 

IF FS = 5 AND TF(NC) = 1 THEN 
GOSUB 4080 

RETURN 

IF FS = 9 THEN GOSUB 13000: 

RETURN 

IF FS = 8 THEN GOSUB 4080: 
RETURN 

IF FS < 8 THEN RETURN 

ON FS - 9 GOSUB 3740, 3910 

RETURN 

REM: asa 

REM INSERCION 

REN 

IF CC = LC(NC) THEN PRINT BF$: 
RETURN 

IF CC = 1 THEN SN$ = ""; 
GOTO 3800 

SN$ = LEFTS (B$(NC),CC - 1) 
N = LC(NC) - CC + 1: 

DS$ = RIGHTS (E$(NC),N) 

C$ = BL$ 

AS = SN$ + C$ + DS$ 

BS (NC) = LEFTS (A$,LC(NC)) 
XX =X: 

YY = Y 

X = CX(NC): 

Y = CY (NC): 

GOSUE 11000 

X = XX: 

Y = YY 

FRINT B$(NC): 

SO 1 

IF RIGHTS (B$(NC),1) = PD$ 
THEN 3780 

RETURN 

REM e 

REM BORRADO 

REM 

IF TP(NC) < > 1 THEN 3960 
IF — MID$ (B$(NC),2,1) = PD$ 
AND CC = 1 THEN RETURN 

IF CC < 1 THEN PRINT BP$: 

RETURN 

IF CC = LC(NC) THEN DS$ = "": 

GOTO 4000 

N = LC(NC) - CCs 

DS$ = RIGHTS (B$(NC),N) 

IF CC = 1 THEN SN$ = ""; 

GOTO 4010 

SN$ = LEFT$ (B$(NC),CC - 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN C$ = NS$: 

GOTO 4030 

C$ = AS$ 

B$(NC) = SN$ + DS$ + Có$ 

XX =X: 

Ny ca: y 

X = CX(NC): 

Y = CY(NC): 

GOSUE 11000 

Xx XX: 

m YY 


4070 


4080 
4090 
4100 
4110 
4120 
4130 


4140 
4150 


4150 
4170 
4180 
4190 
4200 
4210 
4220 
4230 


4240 


4230 
4250 


4270 
4280 
4290 
4300 
4310 


4320 
4330 


4340 


6000 
$010 
6020 
6030 
6040 


6050 
6060 

200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6400 
56410 
6420 
6430 
6440 
6450 
46460 
6470 
6600 
6610 
6620 
6630 
6640 
6650 
6660 


go10 


8030 


PRINT BS (NC): 
SO = 1: 
RETURN 
REM. == ==== 
REM ALINEADOS 
REN: ====2=2 
IF LC(NC) = 1 THEN RETURN 
Ni = LC(NC) - CC + 1 
IF CC.= 1 THEN B$(NC) = ""z 
GOTO 4150 
B$(NC) = LEFTS (B$(NC),CC 
=$) 
IF TP(NC) = 1 OR TFINC) = 2 
THEN 4200 
FOR 1 = ¿ TO Ni 
B$(NC) = B$(NC) + BLó$ 
NEXT I 
GOTO 4240 
FOR 1 = 1 TO Ni 
B$(NC) = BL$ + B$(NC) 
NEXT 1 
IF RIGHTS (B$(NC),1) = PD$ 
THEN B$(NC) = BL$ + LEFTS (BS(N 
C),LC(NC) - 1) 
X = CXiNC)2 
Y = CY (NC) 
GOSUB 11000 
PRINT ES (NC): 
RETURN 
REM =p es 
REM CTRL.PUNTO 
RE ns 


SWP =0 


IF CC = 1 0K CC = LC(NC) THEN Sur 
= 1: 
RETURN 
FOR 1 = 1 TO LC(NC) 
IF MIDS (B$(NC),1,1) = PD$ 
THEN 1 = LC(NC): 
SWP = 13 
RETURN 
NEXT 1: 
RETURN 
ASS =>>>+PX$ A+ 
REM APERTURA FICHERO 
REM o 
PRINT DS 
PRINT Dé; "OPEN"¿NF$ + 
+ DRS;",LUGLR A+ 2 
PRINT DS 
RETURN 
REM! sosa 
REM LECTURA REGISTRO 
REM: == 
PRINT DS 
PRINT D$¿"READ"¿NFS;",R"¿NR 
INPUT AA$ ] 
FRINT D$ 
RETURN 
REM e 
REM ESCRITURA REGISTRO 
REM: =p ES 
PRINT DS 
FRINT DS; "WRITE"¿NF$;",R"¿NR 
PRINT  CHR$ (34) + AAS 


Y 





PRINT D$ 

RETURN 

REN a 

REM CIERRA FICHERO 

REM AA 

PRINT D$ 

PRINT D$;"CLOSE"¿NF$ 
PRINT D$ 

RETURN 

REM ———— 
REM COMPROBACION ORTOGR. 
REM A A AA AA 
NF$ = "DATOS": 

LR = 18: 


8035 


8040 


8050 


8055 


8060 
8070 
8080 


8090 


8100 


8110 
8120 
8130 
8140 


8150 


8155 


si60 
8170 
8180 
8190 
8200 
8210 


8220 


8230 
8240 
8250 
8260 
8270 
8280 
8285 
8290 

300 


8310 
8320 


GOSUB £000 

NF$ = "NOMBRES": 

LR = 22: 

GOSUB 6000 

HOME : 

Y = 13: 

X= 3: 

GOSUB 11000: 

PRINT "NOMBRE (*0?” PARA SALIR) 


INPUT N$: 
IF N$ = "" THEN 8040 
IF N$ = "O" THEN TEXT : 
HOME : 
END 
IF LEN (N$) < 20 THEN N$ = N$ 
+ LEFT$ (BA$,20 — LEN (N$)) 
FOR NR = 1 TO S: 
GOSUB 6200 
R$ = LEFTS (AA$,20): 
IF R$ = N$ THEN 8110 
NEXT NR: 
HOME + 
YT = 13 
TI$ = "NO EXISTE NOMBRE": 
INVERSE : 
GOSUB 11200: 
GOSUB 11100: 
GOTO 8040 
NL = VAL ( MIDS '(AA$,21,2)):; 
KO = NR 
RE = 1: 
NF$ = "DATOS" 
NR = RE: 
GOSUB 6200 
IF LEFTS (AA$,2) < >" -* 
THEN STOP 
LC = ABS ( VAL (AA$)): 
IF LO< >NL +1 THEN RE = RE 
+ 12: 
GOTO 8130 
NR = RE; 
GOSUB 6200: 
AR$ = MIDS (AA$,5,12) 
J=1: 
FOR NR = RE + 1 TO RE + 10 
GOSUB 6200: 
BS(J) = LEFT$ (AA$,16) 
P(J) = VAL ( MID$ (AA$,17,2)) 


J=J+1: 
NEXT NR 
H = 3: 
IF P(1) > 5 THEN H=1 
NUC = 10: 
FOR 1 = 1 TO 10 
DS(I) = STR$ (D) +", " 
+ B$(1): 
TPID = 
LC(1) 
ND(1) 
DX(1) 
DY (1) 
Cx (1) 
CY 
NEXT 1: 
IF P(1) > 5 THEN 8440 
IN$ = "INDICA LOS VOCABLOS CORREC 
TOS USANDO SI O NO" 
GOSUB 2000: 
GOSUB 2600 
GOSUB 3000 
IF FS = 6 THEN 8280 
IF FS = 7 THEN RETURN 
FOR I = 1 TO 10 
IF B$(1) < > "SI" AND B£(1) 
< > "NO" THEN GOSUB 11900: 
GOTO 8280 
IF B$(1) = "SI" AND P(I) 


NRWAOoNnNT 


OLI 
S: 


10 + 1 


8340 


8350 


8360 


8370 


8380 
8390 
8400 


8410 
8420 


8430 


8440 


8450 
8460 


8470 
8480 
8490 


8500 


es10 


8520 


8530 


8s50 


8560 


10000 
10010 
10020 
10030 


11000 
11010 
11020 


= 1 THEN 8390 
IF B$(1) = "NO" AND F(I) 
= (O THEN 8390 
HOME : 
YT = 13: 
TI$ = "HAY UN ERROR, COMPRUEBA 
Lo "z 
INVERSE : 
GO0suB 11200: 
GOSUB 11100 
FOR J = 1 TO 10: 
TP(J) = 4: 
NEXT J 
GOSUB 2000: 
FOR J = 1 TO 10: 
TP (Y) = 3: 
NEXT J 
GOTO 8285 
NEXT 1 
HOME : 
YT = 13: 
TI$ = "MUY BIEN !,HAS SUPERADO LA 
LECCION !"s 
FLASH : 
GOSUB 11200; 
NORMAL 
GOSUB 11100 
NF$ = "NOMBRES": 
NR = KO: 
AAS = N$ + STR$ (NL + 1) 
GOSUB 5400: 
GOSUB 6.00: 
RETURN 
IN$ = "ASOCIA LOS VOCABLOS CON LO 
S NUMEROS" 
GOSUB 2000 
GOSUB 3000: 
IF FS = 6 THEN 8450 
IF FS = 7 THEN RETURN 
FOR 1 = 1 TO 10 
IF VAL (B$(1)) = P(1I) THEN 85 
30 
HOME : 
YT = 13: 
TI$ = "HAY UN ERROR, COMPRUEBA 
LO": 
INVERSE : 
GOSUB 11200: 
GOSUB 11100 
FOR J = 1 TO 10: 
TP(J) = 4: 
NEXT J: 
G0SUB 2000 
FOR J = 1 TO 10: 
TP(J) = 3: 
NEXT J: 
GOTO 8460 
NEXT 1: 
YT = 13 
HOME : 
TI$ = "MUY BIEN !,HAS SUPERADO LA 
LECCION !": 
FLASH : 
GOSUB 11200: 
GOSUB 11100 
NF$ = "NOMBRES": 
NR = KO: 
AAS = N$ + STR$ (NL + 1): 
GOSUB 6400 
GOSUB 6600: 
RETURN 
REM _----- 
REM DATOS 
REM_----- 
DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 
REM A 
REM POSICIONA CURSOR 
a A 


11030 HTAB X:z 

VTAB “Y 
11040 RETURN 
LLL REN 
11110 REM ESPERA CARACTER 
ATL REN 
11130 GOSUB 11400: 

YT = 23: 

TI$ = "PULSAR UNA TECLA": 

FLASH : 

GOSUB 11200 
11140 PRINT BP$;: 

X = 20: 

Y = 23: 

GOSUB 11000: 

GET A$: 

GOSUR 11600 
11150 RETURN 
31200 REM: === =eimmmee: 
11210 REM CENTRA EN VIDEO 
11220 REM =—======emmmm 
11230 IF TI$ = "" THEN RETURN 
11235 TI$ = LEFT$ (TI$,40) 
11240 XT = (42 - LEN (TI$)) / 2 
11250 HTAB XT: 

VTAB YT 
11260 PRINT TI$¿: $ 

RETURN 


TIGO REMITE pierre 
11610 REM BORRA ULTIMA LINEA 
LO 
11630 Y = 23: 
X=1: 
GOSUB 11000 
116540 NORMAL : 
PRINT LEFTS (BA$,40)5: 
Y = 10: 
GOSUB 11000 
11450 RETURN 
11900 REM -=—-=-=-=-=---- 
11910 REM AVISO DE ERROR 
11920 REM ---==========- 
11930 HOME : 
YT = 13; 
TI$ = "ERROR DE INTRODUCCION": 
INVERSE : 
GOSUB 11200: 
GOSUB 11100 
11940 RETURN 
12000 REM ----- 
12010 REM TEXTO 
12020 REM ----- 
12030 HOME : 
YT = 13: 
TI$ = "QUIERES VER EL TEXTO? (S/N 
404 
GOSUB 11200 
12040 GET A$: 
IF AS< > "S" ANDAS<X > "N" 


THEN 12030 
12050 IF A$ = "N" THEN GOSUB 8000: 
RETURN 
12060 NF$ = "TEXTO": 
LR = 35: 
GOSUB 6000 
12070 TEXT : 
HOME 


12080 FOR NR = 1 TO 20 
12090 GOSUB 6200: 
PRINT ARAS; 
12100 NEXT NR: 
GOSUB 11100: 
HOME 
12110 FOR NR = 21 TO 40 
12120 GOSUB 5200: 
PRINT AA$; 
12130 NEXT NR: 
GOSUB 11100 
12140 GOSUB 500: 


13000 
13010 
13020 
13030 


13040 
13050 
13060 


13070 
13080 
13090 
13100 
13110 
13120 


13130 
13140 


13150 
13160 
13170 
13180 
40000 
40010 
40020 
40030 


40040 
40050 


40050 


40070 


30530 
20090 


40100 
40110 


40115 


40120 


40130 


GOSUB 8000: 

RETURN 

REM=== 

REM AYUDA 

REM:==>= 

XX =X: 

YY = Y 

INVERSE 

K=4 

X= 1: 

Y =S: 

GOSUB 11000 

PRINT HE$(K); 

B= PEEK ( - 16384) 

POKE - 16368,0 

IF B< 128 THEN 13080 

IFB< > 160 THEN 13080 
K=Ke+i: 

IF K > 8 THEN 13140 

GOTO 13060 

Y = 5: 

X=1: 

GOSUB 11000: 

FRINT  LEFT$ (BA$, 40); 

YT = 5: 

TIS = HES: 

GOSUB 11200 

NORMAL. 

X = XX: 

Y = YY 

RETURN 

REM oi. 

REM GESTION ERROR 

REN === 

IF PEEK (222) = S THEN 40130 

IF PEEK (222) < > 5 THEN 40060 
HOME + 

YT = 13: 

TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 

IF PEEK (222) X< > 13 AND 

PEEK (222) < > 11 THEN 40050 
HOME : 

YT = 13: 

TI$ = "NOMBRE FICHERO NO VALIDO": 
INVERSE : 

GOSUB 1 
EOSUB 
NES + MX 
GOTO 400 

IF FEEK (222) > 9 THEN 40100 
HOME 
YT 
TIS = "DISCO LLENO": 
INVERSE : 
GOSUB 11200: 
SOSUB 11100: 
GOTO 400 

IF PEEK (222) < % 4 THEN 40115 
HOME + 

YT = 13: 

TI$* = "DISCO PROTEGi¡DO": 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 

L= PEEK (218) + 256 *k PEEK (21 
9) 

HOME : 

YT = 13: 

TIS = "ERROR " + STR$ ( PEEK (22 
BINPEIPTEN SO BTRAS ALE 

GOSUB 11200: 

END 

HOME : 

YT = 13 


"au 











40140 TI$ = "DATOS INEXISTENTES": 
IF. NL< >0 THEN TI$ = "FIN DE L 
AS LECCIONES" 
40150 INVERSE : 
GOSUB 11200: 
GOSUB 11100 
40160 GOTO 400 


Generación gráficos 


MOR 


20 REM ORTOGRAFIA - GENER. (GRAFICOS) 
30 REM VERSION DOS 
MO REM o a e is 
42 REM 'INTEGER k 
435  ONERR GOTO 40000 
50 REM INICIALIZACIONES 
70  BP$ = CHR$ (7): 
D$ = CHR$ (4) 
73  PRINT D$: 
PRINT D$;"ELOAD CAR,D1": 
PRINT D$ 
80 Bh=" ES 
BA$ = B6 + BS + B4 + ES: 
Bs ="" 
90  HGR2 
100 GI$ = "CUANTAS UNIDADES HAY ? (1/2)"x 
Y = 13: 
GOSUB 20600 
110 YC = Y: 
XC = XF3 
GOSUB 20100: 
GOSUB 20000 
120 IFAOX > 49 ANDAO < > 50 THEN 110 
130 DR$= "1": 
IF AO = 50 THEN DR$ = "2" 
140 GI$ = "INTRODUCIR EL DISCO DATOS EN LA UNIDAD " 
+ DR$: 
GT = 1: 
GOSUB 20600 
150 GT =0: 
GOSUB 20700 
155 HGR2 : 
A$ = "0. GENERACION SISTEMA": 


20300 

160 A$ = "1, CONSTRUCCION NUEVO DIBUJO": 
Y = 10: 
X= 
GOSUE 20300 

170 A$ = "2, VARIACION DIBUJO": 
Xx 
Y = 
Go0SsuB 

175 AS = 


a 


Ss: 
12: 
20300 

"3. FIN DE TAREA": 


180 A$ = "CUAL ?": 


X= S: 
GOSUB 20300: 
YC = Y 
190 XC= 11: 
GOSUB 20100: 
GOSUB 20000 
200 IF AO< > 49 ANDAO < > 50 AND AO 
< >651 ANDAO< > 48 THEN 190 
205 IF AO = Si THEN TEXT : 
HOME : 
END 
207 A= FRE (0) 
210 IF AO = 49 THEN GOSUB 8000: 
HGR2 : 
GOTO 160 
215 IF A0 = 48 THEN GOSUB 12000: 
HGR2 : 
GOTO 140 


cn 


220 


5000 
5010 
5020 
5025 
3030 


5040 


5050 


5050 


5065 
5070 


5080 


5090 


5100 
5105 
s107 
s110 


5120 


5130 
5140 
5150 
5160 


5170 
5180 


5190 


5240 


GOSUB 5000: 

HGR2 : 

GOTO 140 

A 
REM VARIACION DIBUJO 
RE >= 

A = FRE (0) 

NF$ = "DATOS G": 

LR = 60: 

GOSUB 6000 

NR = 1: 

GOSUB 6200: 

MX = VAL (AA$) 

HGRZ : 

AS = "NUMERO LECCION 2": 
Y = 13: 

X= 3: 

GOSUB 20300 

XS = 20: 

YS == Y: 

LO = 2: 

GOSUB 20400 

IF AO = 18 THEN GOSUB 6600: 
RETURN 

LL = VAL (0$): 

RR = LL k 11 - 9 

IF RR > MX - 10 THEN GI$ = "LA LECCION NO EXISTE": 


GT = 1: 

Y = 20: 
GOSUB 20600: 
GT = 0: 

Y =13: 
GOTO 5060 
KO = RR - 1: 


GOSUB 353000: 
GOSUE 30100 
GOSUB 30200: 
GOSUE 35100 
IF AO = 18 THEN RETURN 
GOSUB 30000 
NR = RR + 10: 
GOSUB 6200 
J=1: 
K=d: 
FOR 1 = 1 T05 
B$(J) = MID$ (AA$,K,10): 
K=K+ 10 
BS(J + 1) = MIDS (AAS,K,2): 
K=Kk+2 
J=J+2: 
NEXT 1 
GT = 0: 
J=1 
FOR ID= 1705 
A$ = "DESCRIPCION N." + STR$ (ID) 
+ 
Y = 15 + ID; 
X=1 
GOSUB 20300: 
A$ = B$(J): 
X = 17 
GOSUB 20300 
YS = Y: 
XS = 17: 
C$ = B$(J): 
LO = 10: 
GOSUB 20400 
IF AO = 18 THEN GOSUB 6400: 
RETURN 
IF AO = 5 THEN 5280 
B$(J) = Có: 
A$ = "INDICADOR": 
X = 26: 
GOSUB 20300 
A$ = B$(J + 1): 
X = 36: 
GOSUB 20300 
C$ = B$(J + 1): 


"nu... 


3230 


5260 
5270 
5260 


5290 
5300 


s310 


6000 
$010 
6020 
6030 
6040 


6050 
56060 
6200 
6210 
6220 
6230 
6240 


6260 
6270 


6410 
6420 
6430 


6450 
6460 
56470 
6600 
6610 
6620 
6630 
6640 
6650 
6660 


80to 
8020 
8023 
8030 


8040 


8045 
8050 


8055 
8060 
8070 
8080 


8090 


8100 


XS = 36; 
Lo = 2: 
GOSUE 20400 
IF AO = 18 THEN GOSUB £600: 
RETURN 
IF AO = S THEN 3280 
BS$(J + 1) = C$: 
J=J+2 
NEXT ID: 
GOTO 5160 
AOS = "": 
FOR 1 = 1 TO 10 STEP 2 
ARAS = ARAS + BS(I) + B$(I + 1) 
NEXT 1: 
GOSUB 6400 
GOSUB 6600: 
RETURN 
E nn 
REM APERTURA FICHERO 
EN AAA 
FRINT D$ 
PRINT D$; "OPEN"¿NF$ + ",D" + DR$;",L“¿LR 
+2 
PRINT D$ 
RETURN 
REA 
REM LECTURA REGISTRO 
REN: 
PRINT D$ 
PRINT D$; "READ"¿NF$;",R"¿NR 
INPUT AAS$ 
PRINT D$ 


.u 


REM ESCRITURA REGISTRO 
A ——__—— == 
PRINT DS 
PRINT D$; "WRITE"¿NF$;",R“¿NR 
PRINT — CHR$ (34) + AA$ 
PRINT D$ 
RETURN 
REN: | ==n======= 
REM CIERRA FICHERO 
RE A 
PRINT D$ 
PRINT D$; "CLOSE"; NFS 
PRINT D$ 
RETURN 
REM ¡Re 
REM NUEVO DIBUJO 
REA A 
A = FRE (0) 
NF$ = "DATOS C": 
LR = 60: 
GOSUB £000 
NR = 1: 
GOSUB 6200: 
MX = VAL (BAS; 
NL = ((MX - 1) /+11) + 1 
GOSUB 35000: 
Y =13 
GI$ = "LECCION N." + STARS (NL): 
GOSUB 20600 
GOSUB 35100: 
IF AO = 18 THEN RETURN 
KO = MX: 
GOSUB 30000 
MX = MX + 10: 
GT =0 
J=1: 
FOR ID = 1 7105 
A$ = "DESCRIFCION N." + STR$ (ID) 
+": 
Y = 15 + ID: 
X=1 
G0SUB 20300: 
YS = Y: 
XS = 17: 


"”u 


C$ = E$(J): 
Lo = 10: 
GOSUB 20400 
8105 IF AO = S THEN 8150 
8107 IF A0 = 18 THEN GOSUB 6600: 
RETURN 
et1o B$(J) = C$: 
A$ = "INDICADOR": 


Hon 


Mon 


X = 26: 
GOSUB 20300 
8120 XS = 36: 
LO = 2: 
C$ = B$(J + 1): 
GOSUB 20400 
8125 IF AO = S THEN 8150 
8127 IF AO = 18 THEN GOSUB 6600: 
RETURN 
8130 B$(J + 1) = Có$: 
J=J3+2 
8140 NEXT ID: 
GoTO 8080 
8150 AAS = ""; 


FOR 1 = 1 TO 10 STEP 2 
8160 AAS = AAS + ES(I) + BS(I + 1) 
8170 NEXT 1: 
NR = MX + 1: 
GOSUB 6400 
8180 MX = MX + 1: 
NR = 1: 
AAS = STR$ (MX): 
GOSUB 6400 
8190 GOSUB 6600: 
RETURN 
TZO00 REN 
12010 REM GENERACION SISTEMA 
12020 REM --- 
12030 HGR2 : 
GI$ = "INTRODUCIR EL NOMBRE DE LOS USUARIOS. ": 





12040L0 = 20: 
XS = 14: 
FOR IU = 1 TO 3: 
X= 2: 
C$ = B$(1U) 
12050  A$ = "USUARIO N." + STR$ (10): 
Y = 1U+ 10 
12060  GOSUB 20300: 
YS = Y; 
GOSUB 20400 
12065 IF AO = 18 THEN RETURN 
12070 IF AO = 5 THEN 12100 
12080 — B$(1U) = C$: 
NEXT 1U 
12090 GOTO 12040 
12100NF$ = "NOMBRES G": 
LR = 22: 
GOSUB 6000 
12110 FOR NR = 1 TO 5: 
AAS = BSINR) + "01" 
12120  GOSUB 6400: 
NEXT NR 
12130 GOSUB 6600: 
NF$ = "DATOS G" 
12140LR = 60: 
GOSUB 6000 
12150NR = 1: 
AAS = "1": 
GOSUB 6400: 
GOSUB 6600 
12160 RETURN 
LOIS RE 
20010 REM ESPERA Y PARPADEO CURSOR 
20020 REM: =——— 
2003040 = PEEK ( - 16384): 
IF AO > 128 THEN POKE - 16368,0: 
AO = A0 - 178: 


RETURN 
20040T =T +1: 
IF T < 100 THEN 20030 
20050T = 1: 
IF PEEK (PL) < > PY THEN POKE PL,PV: 
GOTO 20030 
20060 POKE PL,127 - PV: 
GOTO 20030 
20100 REM. ————— 
20110 REM ENCIENDE CURSOR XC, YC 
20120 REM. ——————————————- 
20125 IF XC < 1 OR XC > 90 THEN XC = 1 
20127 1F YC < 1 OR YC > 24 THEN YC =1 
20130 POKE PL,PV 
Z0140LQC = 23423 K (YC < 9) + 23463 
* (YC >8) £ (YC < 17) + 23503 
£ (YC > 16) + (YC - 8 X (YC >8) 
- 8 X (YC > 16)) X 128 + XC 
20150PY = PEEK (LOC): 
PL = LOC: 
POKE LOC,127 - PV 
20160 RETURN 
20200 REM ===> 
20210 REM CARACTER HI-RES 
20220 REM === === 
2023010 = (245735 + (20 - 32) * 8) + GT 
* 512 
20240L0C = 16255 * (Y < 9) + 16293 $ (Y 
> B) K (Y < 17) + 16335 £ (Y > 16) 
+ (Y -8% (Y >8) - 81 (Y > 16)) 
1 128 + X 
20250 FOR 1 = 17108 
20260 — POKE LOC, PEEK (10 + 1) 
20270 LOC = LOC + 1024 
20280 NEXT 1 
20290 RETURN 
20300 REM —=———======-===- 
20310 REM CADENA EN HI-RES 
20320 REM === 
20325 IF A$ = "" THEN RETURN 
20330LL = LEN (A$): 
FOR IL = 1 TO LL 
20340 CO = ASC (MIDS (A$,IL,1)): 
GOSUB 20230 
20330 X=X+1: 
NEXT IL 
20360 RETURN 
A 
20410 REM ENTRADA CADENA 
20420 REM o 
20430XC = XS: 
YC = YS: 
10 =0 
Y = YC: 
IF LO = 0 THEN LO = 41 - XS 
20440 GOSUB 20100 
20450 GOSUB 20000 
20455 IF AO = 5 OR AO = 18 THEN PETURN 
20460 IF AO = 13 THEN C$ = MID$ (0$,1,I1C): 
GOTO 20550 
20470 IF AO < > 1 THEN 20500 
20480 IF IC = O THEN 20450 


204901C = IC - 1: 
XC = XC - 1: 
GOTO 20440 
20500 IF IC = LO THEN 20450 
20510 IF AO = 19 THEN IC = 12 + 1: 
XC = XC + 1: 
GOTO 20440 
2052000 = AO: 
X = XC: 


GOSUB 20200: 
PV = PEEK (LOC - 1024) 

205300$ = MIDS (0$,1,1C) + CHN$ «0d 
+ MIDS (0$,1C0 + 2,39) 

ZOS40IC = 10 + 1: 
XC =XC + 1: 
GOTO 20440 

205504$ = MIDS (BAt,1,LO — 10): 


X = XS + 10: 
0$ = 0$ + M3 
20360 GOSUB 20300: 
RETURN 
20600 REM ———— q_————— 
20610 REM CENTRA CADENA (HI-RES; 
20620 REM” -—  _—_——————— 
20630 IF GI$ = "" THEN RETURN 
20640L = LEN (GI$): 
X= (42 -L) / 2: 
AS = GIs: 
XF=X+*L 
20650 GOSUB 20300: . 
RETURN 
20700 REM —————————— 
20710 REM ESPERA CARACTER 
20720 REM ----- 
20730Y = 23: 
GI$ = "PULSAR UNA TECLA": 
GOSUB 20600 
20740 GET AS: 
GI$ = LEFTS (BA$,16): 
GOSUB 20500 
20750 RETURN 
30000 REM 
30010 REM DIBUJO EN EL DISCO 
30020 ¿REM noes meo 
30030 FOR I = 1 TO 10: 
NR = 1] + KO: 
ARAS = "" 
30040 FOR J = 1 TO 10 
30050 AAS = ARS + STR$ (CC(1,J)) 
+ STR$ (GG(1,J)) 
30060 NEXT J: 
GOSUB 6400 
30070 NEXT 1: 
RETURN 
30100 REM ——————— == 
30110 REM CARGA DIBUJO DEL DISCO 
30120 REM: =————==—========= 
30130 FOR JR = 1 TO 10: 
NR = JR + KO 
30140  GOSUB 5200: 
I=1 
30150 FOR J = 1 TO 10 











30160 CC(JR,J) = VAL ( MIDS (AA$, 1,2): 


30170 GG(JR,J) = VAL ( MID$ (AA$, 1 
+ 2,1)) 
30180 1=1+3 
NEXT J 
30190 NEXT JR: 
RETURN 
30200: REM. Sinn ai 
30210 REM EJECUCION DIBUJO 
SOLO RENA AAA 
30230 FOR IG = 1 TO 10: 
Y=16+3 
30240 FOR JG = 1 TO 10 
30250 CO = CC(16,36): 
GT = 6G(IG,JG) 
30260 IF CO = 32 AND GET < >1 
AND GT < > 3 THEN 30280 
30270 X = JG + 14: 
GOSUB 20200 
30280 NEXT JG: 
NEXT IG 
30290 RETURN 
33000 REN — ———MMMMMHUUMMMUMÁ 
35010 REM INIC.PANTALLA CONSTR. DIBUJO 
S]II20 ¡REN —————————_—_——_—>=__ AZ 
35030 HGR2 : 
GT = 0: 
AS = "SET= N":z 
X = 1: 
Y=2 
35040 GOSUB 20300: 
*x = 30: 
AS = "SIMBOLO=" 
35050 GOSUB 20300 


35060 HCOLOR= 3: 
HPLOT 97,23 TO 168,23 TO 168,104 
TO 97,104 TO 97,23 
35070 HPLOT 96,22 TO 149,22 TO 169,105 
TO 96,105 TO 96,22 
35080 HPLOT 265,7 TO 273,7 TO 273,16 
TO 265,16 TO 265,7 
35090 FOR 1 = 1 TO 10: 
FOR J = 1 TO 10: 
CC (1,3) = 32: 
6G (1,3) = 0: 
NEXT J: 
NEXT 1: 
RETURN 
ISO ARENA AAA 
35110 REM CONSTRUCCION DIBUJO 


35140 GOSUB 20100 
35150 GOSUB 20000 
35160 IF AO = 23 THEN YC = YC - 1: 
GOTO 33200 
35170 IF A0 = 19 THEN XC = XC + 1: 
GOTO 35200 
75180 IF AO = 1 THEN XC = XC - d: 
GOTO 35200 
35190 IF AO = 26 THEN YC = YC + 1:2 
GOTO 35200 
35195 GOTO 3523: 
35200 IF XC < 15 OR XC > 24 THEN XC 
=15 
35210 IF YC < 4 OR YC > 13 THEN YC = 4 
35220 GOTO 35140 
35230 IF AO < >8 THEN 35270 
33240CC = CC - 1: 
IF CC < 32 THEN CC = 95 
35250C0 = CC: 
X= 39: 
Y =2: 
GOSUB 20200 
35260 GOTO 35150 
35270 IF AO < .> 21 THEN 35310 
35280CC = CC + 1: 
IF CC > 95 THEN CC = 32 
3529000 = CC 
X = 39: 
Ye Zi 
G0SsuB 20200 
35300 GOTO 35150 
35310 IF AO < > 32 THEN 35380 
3532050 = SO + 1: 
IF SO > 3 THEN SO 
353306T = SO: 
IF SO > 1 THEN GT = SO - 2 
353340A$ = "N": 
IF SO > 1 THEN A$ = "G" 
35350X = 6: 
Visa 
GOSUB 20300 
353606T = SO: 
CO = CC: 
39: 
2: 


o 


" 


Xx 

Y 
GOSUB 20200 

35370 GOTO 35150 

35380 IF AO < > 13 THEN 35430 

3539000 = CC: 


33400PV = PEEK (LOC - 1024) 
3S5410CC(YC — 3,XC - 14) = CC: 

GG(YC - 3,XC - 14) = 67 
35420 GOTO 35140 








33430 IF AO % 5 24 THEN 35470 
3544000 = 32: 





CC(YC - 3,XC - 14) = 32: 
GG(YC - 3,XC - 14) = 6T 
35450 GOSUB 20200: 
PY =0 
334606T = SO: 
GOTO 35140 
35470 IF AO < > 5 THEN 3335 
35480A$ = "SEGURO? (S/N)": 
Xx = 13: 
Y = 20 
354906T = 1: 
GOSUB 20300 
33500XP = XC: 
YP = YC: 
XC = 27: 
YC = 20 
35510 GOSUB 20100: 
GOSUB 20000 
33520 IF AO< > 83 ANDAO € > 78 TFEN 33510 
35530X = 13: 
As = " ”3 
GT = 0: 
GOSUB 20300; 
XC = XP: 
YC = YP: 
GT = SO 
35535 IF AO = 78 THEN 35140 
33540 RETURN 
355950 IF AO < > 18 THEN 35150 
35560 GOSUB 4600: 
GT = 0; 
RETURN 
40000 REM -—========---- 
40010 REM GESTION ERROR 
40020 REM =—=—======== 
40025 TEXT : 
HOME 
40030 IF PEEK (222) = 5 THEN 40130 
40040 IF PEEK (222) < > 8 THEN 40060 
40050 PRINT "COMPROBAR EL DISCO DATOS": 
END 
40060 IF PEEK (222) < > 13 AND PEEK (222) 
< > 11 THEN 40080 
40070 FPRINT "NOMBRE FICHERO NO VALIDO": 
END 
40080 IF PEEK (222) < > 9 THEN 40100 
40090 PRINT "DISCO LLENO": 
END 
40100 IF PEEK (222) < > 4 THEN 40115 
40110 PRINT "DISCO PROTEGIDO": 
END 
AO11S5L = PEEK (218) + 256 * PEEK (219) 
40120 PRINT "ERROR "; PEEK (222)3" EN "¡Lx 
END 
40130 PRINT "LOS DATOS NO EXISTEN": 
END 


Uso gráficos 


LO RE O R 
20 REM TOGRAFIA - USO (GRAFICOS) 
30 REM VERSION DOS 

40 REMO — o 


42 REM ' INTEGER * 

45  ONERR GOTO 40000 

50 REM INICIALIZACIONES 

70  BP$= CHR$ (7): 
D$ = CHR$ (4) 

73  PRINT DS: 
PRINT D$;"BLOAD CAR, Di": 
PRINT D$ 

80 Bs=" Y 
BAS = B$ + BS + E$ + E$: 
BS = "" 


90 
100 


110 


120 
130 


140 


150 


150 
180 


5000 
5010 
5020 
5030 


5035 


5037 


5050 


5070 


s100 


s110 


5120 


5130 


5140 


5150 


3160 


5170 
5180 


HGR2Z 
GI$ = "CUANTAS UNIDADES HAY 7 (1/2: 
Y = 13: 

GOSUB 20600 

YC = Y: 

XC = XF:2 

GOSUB 20100: 

GOSUB 200600 

IF AO< >49 AND AO < > 50 THEN 1:C 
DR$ = : 
IF AO = 50 THEN DR$ = "2" 

GI$ = "INTRODUCIR EL DISCO DATOS EN LA UNIDXE 
+ DR$: 

6T = 1: 

GOSUB 20400 

GT =0: 

GISUE 20700 

GOSUB 2u00 

Go0sua 5060: 

GOTO 140 

REM 













REM DIBUJA 

REM A 
NF$ = "DATOS G": 

LR = 60: 

¡OSUB 6000 

NR = 1: 

GOSUB 6200: 


MX = VAL ¿AAS) 
RE = (NL £ 11) - 9: 
IF RE > MX TREN HGR2 : 
GIS = “FIN LECCIONES": 
GT = 1: 
Y = 13: 
GOSUB 20400: 
GT = 0: 
GOSUB 20700: 
GOTO 160 
KO = RE - 1: 
HGR2 : 
GOSUB 30100 
GOSUB 30200: 
NR = NR + 1: 
6T=0 
GOSUB 6200: 
J=1: 
FOR I = 1705 
BS$(1) = MID$ (AA$,J,10) 


P(D = VAL ( MIDS (AA$,J + 10,2)) 
J=J +12: 

NEXT 1 

Y = 15; 


GI$ = "DAR EL NOMBRE CORRECTO A LA FIGURA": 
GOSUB 20600: 
Y =16 
GI$ = "INDICANDO EL NUMERO CORRESPONDIENTE. "s 
GOSUB 20400 
FOR Y = 19 TO 23: 
X=3 
AS = STRS (Y - 18) + ", " + BS(Y 
- 18) 
GOSUB 20300: 
NEXT Y 
AS = "CUAL 2": 
X = 30: 
Y = 23: 
GOSUB 20300 
XC = 36: 
YC = 23: 
EOSUB 20100: 
EOSUB 20000: 
IF AO = 18 THEN TEXT : 
HOME : 
END 
IF AO < 49 OR AO > 53 THEN 5160 
IF P(A0 - 48) = O THEN AS = " 8 
6T = 0: 
Y = 20: 
*x = 30: 


5190 


5202 


5210 


5220 


5230 
3240 
5250 


6000 
$010 


GOSUB 20300: 
X = 30: 

AS = "ERROR": 
GT =1: 
GOSUB 20300: 
PRINT BP$;: 


GT = 0: 

GOTO 5160 

AS = "BRAVO!!"z 
X = 30: 

Y = 20: 

GT = 1: 

GOSUB 20309; 


FOR I = 1 TO SO: 
PRINT BP$;: 

NEXT 1 

A$ = BS(A0 - 43): 


Du 
| 


$ = "NOMBRES G": 

= KK: 

=N$ + STR$ (NL + 1): 
UB 6400 

=N +1 


o ZEÍED-< 
B8r5% 
uy e. 


13: 

23: 
= 0: 
AS = "QUIERES CONTINUAR ? (S/N) ": 
GOSUB 20300 

XC = 39: 

YC = 23: 

GOSUB 2010C: 

GOsuB 20000 

IF AOX< >83ANDAG< > 78 THEN 5220 
IF AO = 83 THEN 5037 
GGSUB 6600: 
NFS = "DATOS G": 
GOSUB 6600: 
RETURN 
AAA AAA Ak 
REM APERTURA FICHERO 
RE e 


a5=E 


030 PRINT DS 





6u50 
ousu 
5200 
6210 
E2a 

6230 
2240 
6250 
6260 
6274 
6400 
6410 
6420 
£430 
6440 
64350 
£460 
5470 


6610 
6620 
6630 
640 
6650 
8000 
8010 


8020 
8030 


8040 


PRINT DS; "OPEN"¿NF$ + ",D" + DRS7",LU5LA 
+2 

PRINT DS 

RETURN 

RMS 

REM LECTURA REGISTRO 

EA 

FRINT DS 

FRINT DS; "READ"¿NFS;",R"¿NR 
INPUT ARAS 

PRINT DS 

RETURN 

CSS 

REM ESCRITURA REGISTRO 

NINA 

PRINT DS 

PRINT DS; "WRITE"¿NF$;", RNA 

PRINT— CHR$ /34) + AA$ 

PRINT D$ 

RETURN 

a RIN 

REM CIERRA FICHERO 

ANA 

FRINT DS 

PRINT D$; "CLOSE"; NF$ 

PRINT D$ 

RETURN 

sn 

REM BUSCA NOMBRE 

REN ARS 

NF$3 = "NOMBRES G": 

LR = 22: 

GOSUB 5000 

HGR2 : 

X= 1: 











Y = 13: 
A$ = "NOMBRE ? (”0” PARA SALIR)": 
GOSUB 20300 
8050 XS = 103 
YS = Y + 2: 
Lo = 20: 
GOSUB 20400 
8060 IF LEFT$ (C$,1) = "O" THEN TEXT : 
HOME : 
END 
8065 N$ = C$ 
8070 FOR NR = 1 TO S: 
GOSUB 6200 
8080 R$ = LEFTS (AA$,20): 
IF N$ = R$ THEN NL = VAL ( 
MIDS (AA$,21,2)): 
KK = NR 
RETURN 
8090 NEXT NR 
8100 HGRZ : 
Gl$ = "EL NOMBRE NO EXISTE": 
GT =1: 
Y = 13: 
GOSUB 20600: 
GT =0: 
GOSUB 20700 
8110 GOTO 8040 
LIO RA + 
20010 REM ESPERA Y PARPADEO CURSOR 
20020 REN: 
2003040 = PFEEK ( - 16384): 
IF AO > 128 THEN POKE - 16368,0: 
AO = A0 - 128: 
RETURN 
20040T =T + 1: 
IF T < 100 THEN 20030 
20050T = 1: 
IF PEEK (PL) < > FV THEN POKE PL,PVs 
GOTO 20030 
20060 POKE PL,127 - PV: 
GOTO 20030 
AA 
20110 REM ENCIENDE CURSOR XC, YC 
20120. REM: === nono 
20125 IF XC < 1 OR XC > 40 THEN XC = 1 
20127 IF YC < 1 OR YC > 24 THEN YC = 1 
20130 POKE PL,PV 
20140L0C = 23423 * (YC < 9) + 23463 
* (YC >8) k (YC < 17) + 23503 
* (YC > 16) + (YC - 8 % (YC > 8) 
- 8 k (YC > 16)) Xx 128 + XC 
20150PVY = PEEK (LOC): 
PL = LOC: 
POKE LOC,127 - PV 
20160 RETURN 
20200 REM === 
20210 REM CARACTER HI-RES 
DIRA == 
2023010 = (24575 + (CO - 32) % 8) + GT 
* 512 
20240L0C = 16255 £ (Y < 9) + 16295 £ (Y 
> 8) % (Y < 17) + 16335 £ (Y > 16) 
+ (Y-8%k (Y>8) - 8% (Y > 16)) 
* 128 + X 
20250 FOR I = 1 T08 
20260  POKE LOC, PEEK (10 + 1) 
20270 LOC = LOC + 1024 
20280 NEXT 1 
20290 RETURN 
20300 REM =—-=-=======-===- 
20310 REM CADENA EN HI-RES 
20320 REM —————————--—---- 
20325 IF A$ = "" THEN RETURN 
20330LL = LEN (A$): 
FOR IL = 1 TO LL 
20340 CO= ASC ( MIDS (A$,11,1)): 
GOSUB 20230 
20350 X=X +1: 
NEXT IL 


20360 RETURN 
LZOROO RE: == 
20410 REM ENTRADA CADENA 
LOLI AN: 2 
20430XC = XS: 

YC = YS: 

IC = 0: 

Y = YC: 

IF LO = O THEN LO = 41 - XS 
20440 GOSUB 20100 


20450 GOSUB 20000 


20455 IF A0 = S OR AO = 18 THEN RETURN 
20460 IF AO = 13 THEN C$ = MIDS (C$,1,1C): 
GOTO 20550 
20470 IF AO < > 1 THEN 20500 
20480 IF IC = 0 THEN 20450 
2049010 = IC - 1: 
XC =XC- 13 
GOTO 20440 
20500 IF IC = LO THEN 20450 
20510 IF AO = 19 THEN IC = IC + 1: 
XC = XC + d3 
GOTO 20440 
20520C0 = AO: 
X = XC3 
GOSUB 20200: 
PV = PEEK (LOC - 1024) 
205300$ = MID$ (C$,1,IC) + CHR$ (CO) 
+ MID$ (C$,IC + 2,39) 
2054010 = IC + 1: 
XC =XC +1: 
GOTO 20440 
205504$ = MID$ (BA$,1,LO - 1C)3 
X = XS + 10; 
C$ = C$ + As 
20560 GOSUB 20300: 
RETURN 
20600 REM. === 
20610 REM CENTRA CADENA (HI-RES) 
20620 REM —————— 
20630 IF GI$ = "" THEN RETURN 
20640L = LEN (GI$): 
X= (42 -L) / 2: 
AS = GI$: 
XF=X+L 
20650 GOSUB 20300: 
RETURN 
20700 REM -—-————--—- 
20710 REM ESPERA CARACTER 
20720 REM ———=—------ 
20730Y = 23: 
GI$ = "PULSAR UNA TECLA": 
GOSUB 20600 
20740 GET A$: 
GI$ = LEFTS (BA$,16): 
GOSUB 20600 
20750 RETURN 
30100 REM === ---- 
30110 REM CARGA DIBUJO DEL DISCO 
30120 REM ————-—-———--- 
30130 FOR JR = 1 TO 10: 
NR = JR + KO 
30140  GOSUB 4200: 
1=1 
30150 FOR J= 1 TO 10 
30160 CC(JR,J) = VAL ( MIDS (AA$,1,2)) 
30170 GG(JR,J) = VAL ( MIDS (AA$,1 
+ 2,1)) 
30180 I=1+3: 
NEXT J 
30190 NEXT JRz 
RETURN 
30200 REM 
30210 REM EJECUCION DIBUJO 
30220 REM —--—-———--- 
30230 FOR IG 





30240 — FOR Jl 
30250 CO = CC(16,36): 


GT = 66(I16,JG6) 


30260 IF CO = 32 AND GT< >1 
AND GT < > 3 THEN 30280 
30270 X = JG + 14; 
GOSUB 20200 
30280 NEXT JG: 
NEXT 16 
30290 RETURN 
ACIDO 
40010 REM GESTION ERROR 
IS 
40023 TEXT : 
HOME 


40030 IF PEEK (222) = 5 THEN 40130 
40040 IF PEEK (222) < > 8 THEN 40040 
40050 PRINT "COMPROBAR EL DISCO DATOS": 
END 
40060 IF PEEK (222) < > 13 AND FEEK (222) 
< > 11 THEN 40080 
40070 PRINT "NOMBRE FICHERO NO VALIDO": 
END 
40080 IF PEEK (222) < > 9 THEN 40100 
40090 PRINT "DISCO LLENO": 
END 
40100 IF PEEK (222) < > 4 THEN 40115 
40110 PRINT "DISCO PROTEGIDO": 
END 
AO115L = PEEK (218) + 256 k PEEK (219) 
40120 PRINT "ERROR "; PEEK (222);" EN "¡Ls 
END 
40130 PRINT "LOS DATOS NO EXISTEN": 
END 


Cargador simbolos gráficos 


1000 REM CARGADOR CARACTERES 
1001 REM ESTE PROGRAMA DEBE 
1002 REM ACTIVARSE FARA 
1003 REM GENERAR EL ARCHIVO 
1004 REM DE CARACTERES EN ALTA 
1005 REM RESOLUCION EN EL 
1006 REM DISCO QUE CONTIENE 
1007 REM LOS PROGRAMAS 
1010 X = 24576: 

HOME 
1015 RESTORE 
1020 READ A 
1025 IFAX OORA > 255 THEN PRINT 

CHR$ (7): 

GOTO 1020 
1030 POKE X,A:z 

KE 3 
1040 IF X > 26524 THEN 1035 
1050 GOTO 1020 
1055 PRINT 


1056 PRINT "INTRODUCIR EL DISCO PARA LA MEMORIZACION" 


1057 PRINT "DE LA TABLA DE CARACTERES" 
1058 PRINT "Y PULSAR UNA TECLA "; 
1060 GET A$ 
1065 PRINT CHR$ (4): 

PRINT  CHR$ (4);"BSAVE CAR,A24576,L2048" 
1070 END 
2000 DATA 0.0605 04D: “O 20, 0; 
2001 DATA VEIA ALOE ZO ZO 
2002 DATA 0, 0, 0, 0, 20, 20, 62, 20, 
2003 DATA 20, 0, 8, 60, 10, 28, 40, 30, 
2004 DATA 6, 38, 16, 8, 4, 50, 48, 0, 
2005 DATA ERROR OPE 
2006 DATA 0, 0, 0, 0,16, 8, 4, 4, 
2007 DATA 16, 0, 4, 8, 16, 16, 16, 8, 
2008 DATÁ 8, 42, 28, 8, 28, 42, 8, 0, 
2009 DATA 8, 62, 8, 8, 0, 0, 0, 0, 
2010 DATA As 4, 25 0, 10 00, 0562; 
2011 DATA OPTOTRO LO OO NERO TOS 


2012 DATA: 0, 32, 16, 8, 4, 2, 0, 0, 2 


2013 DATA 50, 42, 38, 34, 29, 0, 8, 12, 
2014 DATA B, 8, 28, 0, 28, 34, 32, 24, 
2015 DATA 62, 0, 62, 32, 16, 24, 32, 34, 


ny 


L 


OnNORFOoOoDcOoD.Do Doo» 


2016 
2017 
2018 
2019 
2020 
2021 


2023 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


.DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


S DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3 DATA 


DATA 


3 DATA 


DATA 
DATA 
DATA 


? DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
S DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


16, 24, 20, 18, 62, 16, 16, 0, 62, 2 
30, 32, 32, 34, 28, 0, 56, 4, 2, 30 


Ae 
A 
> 
pS 
o 
> 
o 
13 
> 
Mo 
ta 
Boldomocos 


UU A tu CAN 
LL np E BE 
14] U 17] A y 
loPofonfio 
.-3 135] UU uu A 
BrusEsh£ps 
L o tA A 
BrorBrofyE 
lA lA uu 15] A 
ENEBE£niSpE 
UU o tu 
ErpofpyproES 
- tl o 
EPSREEPABS 
eprRofEpoz 
A O 
ERSEBSppS? 
153 . es Lo 
LomfBmontEl2o 


g 
g 
3 
* 
E 
Z 
2 
2 
P 

ong 


3 
w 
E 
ul 
1 
lA 
Es 
mn 
tl 
> 
o 
pS 
0 
pp 
má 


0, 0,127,127,127,127,127,127,127,127 
123,123,123,123,123,127,123,127,107,107 
107,127,127,127,127,127,107,107, 65,107 
65,107,107,127,119, 67,117, 99, 87, 97 
119,127,121, 89,111,119,123, 77, 79,127 
127,127,127,127,127,127,127,127, 119,119 
119,127,127,127,127,127,111,119,123,123 
123,119,111,127,123,119,111,111,111,119 
123,127,119, 85, 99,119, 99, 85,119,127 
127,119,119, 65,119,119,127,127,127,127 
127,127,123,123,125,127,127,127,127, 65 
127,127,127,127,127,127,127,127,127,127 
123,127,127, 95,111,119,123,125,127,127 
99, 93, 77, 85, 89, 93, 99,127,119,115 
119,119,119,119, 99,127, 99, 93, 95,103 
123,125, 65,127, 65, 95,111,103, 95, 93 
99,127,111,103,107,109, 65,111,111,127 
65,125, 97, 95, 93, 93, 99,127, 71,123 
125, 97, 93, 93, 99,127, 65, 95,111,119 
123,123,123,127, 99, 93, 93, 99, 93, 93 
99,127, 99, 93, 93, 67, 95,111,113,127 
127,127,123,127,123,127,127,127,127,127 
123,127,123,123,125,127,111,119,127,125 
123,119,111,127,127,127, 65,127, 65,127 
127,127,123,119,111, 95,111,119,123,127 
99, 93,111,119,119,127,119,127,127,127 
127,127,127,127,127,127,119,107, 93, 93 
65, 93, 93,127, 97, 93, 93, 97, 93, 93 
97,127, 99, 93,125,125,125, 93, 99,127 
97, 93, 93, 93, 93, 93, 97,127, 65,125 
125, 97,125,125, 65,127, 65,125,125, 97 
125,125,125,127, 67,125,125,125, 77, 93 
67,127, 93, 93, 93, 65, 93, 93, 93,127 
99,119,119,119,119,119, 99,127, 95, 95 
95, 95, 95, 93, 99,127, 93,107,117,121 
117,109, 93,127,125,125,125,125, 125,125 
65,127, 93, 73, 85, 85, 93, 93, 93,127 
93, 93, 89, 85, 77, 93, 93,127, 99, 93 
93, 93, 93, 93, 99,127, 97, 93, 93, 97 
125,125,125,127, 99, 93, 93, 93, 85,109 
83,127, 97, 93, 93, 97,117,109, 93,127 
99, 93,125, 99, 95, 93, 99,127, 65,119 
119,119,119,119,119,127, 93, 93, 93, 93 
93, 93, 99,127, 93, 93, 93, 93, 93,107 


2095 
209 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2124 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
Z145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATE. 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


119,127, 93, 93, 93, BS, 85, 73, 93,127 
93, 93,107,119,107, 93, 93,127, 93, 93 
107,119,119,119,119,127, 65, 95,111,119 
123,125, 65,127,127,127,127,127,127,127 
127,127,127,127,127,127,127,127,127,127 
127,127,127,127,127,127,127,127,127,127 
127,127,127,127,127,127,127,127,127,127 
127,127,127,127, 0% 0, 0, 0, 0, 
SEVERA ME AER 
0, 0, 0, 0,127,127,127,127, 
OFEO OO 0707505905 20; 
0, 0) 03127. Li dl 1) 15 1, 
1, 1, 85, 42, BS, 42, 85, 42, 85, 42 
64, 64, 64, 64, 64, 64, 64, 64, 0, 
O, 0, 85, 42, 85, 42,127, 63, 31, 
7, 3, 1, 0, 9%, 9, 9, 96, 9%, 
9%, %, 8, 8, 8, 8,120, 8, 8, 
0, 0, 0, 0,120,120,120,120, 8, 
8, 8,120, 0, 0, 0, 0, 0, 0, 
155.0. 0 0. 0, 00, 0, O, 03 
127,127, 0, 0, 0, 0,120, 8, 8, 
8 0,18) 85127) 0, 0, 0, "0, 
O, 0,127, 8, 8, 8, 8, 8, 8, 
15 0 a O Ss 
3, 3, 15, 15, 15, 15, 15, 15, 15, 
112,112,112,112,112,112,112,112,127,127 
O, 0, 0, 0, 0, 0,127,127,127, O 
0, 0, 0, 0, 0, 0, 0; 0, 0,127 
127,127, 64, 64, 64, 64, 64, 64, 64,127 
O, 0, 0, 0, 15, 15, 15, 15,120,120 
120,120,120, 0, 0, 0, 8, 8, 8, 8 
15, 0, 0, 0, 15, 15, 15, 15, 15, O 
O, 0, 15, 15, 15, 15,127,120,120,120 
0, 0, 0, 0,127, 0, 0, 0, 15, 15 
15, 15, 15,112,112,112, 8, 8, 8, 
8, 8, 8, 8, 0, 0, 0,127, 0, 
OOOO ARTES O OO TOS 
0,127) 0,70, "0,0, "0, 0,0, 
DLTMETO OO NE A 
4 4, 4, 4,16, 16, 16, 16, 16, 
AE OOO 0 2 AED, 
8, 8, 8, 16, 76, '0, 0,70, 0, 
OPA O OS O tito 
5d dni2/ do Za 3) 0, 10; 
64, 0, 64, 32, 16, 8, 4, 2, 1, 
27d dd da dy 14127, 
64, 64, 64, 64, 64, 64, 0, 28, £2, 
62, 62, 28, 0, 0, 0, 0, 0, O, 
127, 0,127, 65, 65, 65, 65, 65, 65,1 
PEPE E E 
0, 0, ?b, 16, 8, 8, 65, 34, 20 
20, 31, 63, 0, 0, 28, 34, 34, 34, 
28, 0, 0, 0, 28, 28, 28, 28, 0, 
325 32) 32, 324 32, 32, 32, 32, 0, 
20, 34, 65, 34, 20, 8, 8, B, B, 
127, 8, 8, 8, 5, 10, 5, 10, 5, 
5, 10, 8, 16, 32,64, 1, 2,74, 
8, 4, 2, 1,:64, 32, 16, 8,127,126 
124, 120,117, 96) 64, 0,127,127,127,127 
127,127,127,127,120,120,120,120,120,120 
120,120,127,127,127,127, 0, 0, 0, 0 
0,127,127,127,127,127,127,127,127,127 
127,127,127,127,127, 0,126,12£,126,126 
126,1265,126,126, 42, 85, 42, 85, 42, 85 
42, 85, 63, 63, 63, 63, 63, 63, £3, 63 
127,127,127,127, 42, 85, 42, 85, 0, 5£ 
96,112,120,124,126,127, 31, 31, 31, 31 
31, 31, 31, 31,119,119,119,119, 7,119 
VITRO 27 DISIADITAN 
119,119,119,119, 7,127,127,127,127,127 
127,127,112,119,119,119,127,127,127,127 
127,127, 0, 0,127,127,127,127, 7,119 
119,119,119,119,119,119, 0,127,127,127 
127,127,127,127, 0,119,119,119,119,119 
119,119,112,119,119,119,124,124,124,124 
124,124,124,124,112,112,112,112,112,112 
112,112, 15, 15, 15, 15, 15, 15, 15, 15 
O, 0,127,127,127,127,127,127, 0, 0 
0,127,127,127,127,127,127,127,127,127 


PI 
Y 
=QOoyxos 


ma 
mo 


sal 
Gamomoovar 


a] _ . 
bONrnogos»+sooomd 


o 


¿aoNoh 


Loscowo 


2174 
2175 
2176 
y ad 
2178 
2179 
2180 
2191 
2182 
2183 
2184 
2185 
2185 
2187 
2188 
2199 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3 DATA 


DATA 


FO PEORES SES ES ES 
63, 0,127,127,127,127,112,112,112,112 
7, 7 7, 7, 7,127,127,127,119,119 
119,119,112,127,127,127,112,112,112,112 
112,127,127,127,112,112,112,112, 0, 7 
7, 7,127,127,127,127, 0,127,127,127 
112,112,112,112,112, 15, 15, 15,119,119 
119,119,119,119,119,119,127,127,127, 0 
127,127,127,127,127,127, 0,127,127,127 
127,127,127, 0,127,127,127,127,127,127 
127,127,127,127,127, 0,127,127,123,123 
123,123,123,123,123,123,111,111,111,111 
111,111,111,111,127,127,127,127,124,123 
119,119,119,119,119,111, 31,127,127,127 
119,119,119,123,124,127,127,127,126,126 
126,126,126,126,126, 0,126,125,123,119 
111, 95, 63,127, 63, 95,111,119,123,125 
126,127, 0,126,126,126,126,126,126, 126 
O, 63, 63, 63, 63, 63, 63, 63,127, 99 
65, 65, 65, 65, 99,127,127,127,127,127 
127,127, 0,127, 0, 62, 62, 62, 62, 62 
62, 0,125,125,125,125,125,125,125,125 
127,127,127,127, 31,111,119,119, 62, 93 
107,119,107, 93, 62,127 127, 99, 93, 93 
93, 93, 99,127,127,127, 99, 99, 99, 99 
127,127, 95, 95, 95, 95, 95, 95, 95, 95 
127,119,107, 93, 62, 93,107,119,119,119 
119,119, 0,119,119,119,122,117,122,117 
122,117,122,117,119,111, 95, 63,126,125 
123,119, pa 123,125,124, 63, 95,111,119 
O, 1,3, 7,15, 31, 63,127,255 


RELACION DE VARIABLES - APPLE 


Versión con sólo texto 


B5$(«) = matriz de los buffers (1 por campo 
de introducción) 

=|longitud del campo de introduc- 
ción 

= número de decimales en el campo 
de introducción 


LC(=) 
ND(=) 
CX(+) 
CY(x) 


DX(x) 
DY (+) 


TF(+) 


= coordenadas en pantalla del cam- 
po de introducción 


=coordenadas en pantalla de la 
descripción 

= matriz numérica que contiene los 
códigos ASCII de teclas de co- 
mando 

= descripciones en las máscaras ví- 
deo 

=voces del menú principal 

= blank 

= punto decimal 

= Carácter “—”. Identifica los campos 
de introducción alfanuméricos 

=cCarácter “*”. Identifica los cam- 
pos de introducción numéricos 

=número de campos de introduc- 
ción en la máscara activada 

=80 blanks 

= descripción ayuda 

= código tecla función pulsada 

= número de la máscara selecciona- 
da 

= nombre del fichero 

= longitud registro 

= número registro 

= buffer del disco 

= índice de lección 

=número lecciones a modificar en 
actualización 

=emite un bip [CHR$(7)] 

=unidad seleccionada (1 o 2) 

= nombre usuario (introducido por el 
preparador durante el uso) 

= nombre usuario extraído del regis- 
tro durante la búsqueda 


D$(+) 
VOS(+) 
BL$ 
PD$ 
AS$ 
NS$ 


NUC 
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Versión con los gráficos 


BPS = CHR$(7) [emite un bip] 
D$ =CHR$(4) [para la comunicación 
con el disco] 

=80 blanks 

= drive seleccionado ( 1 o 2) 

=juego de caracteres usado (0, 1, 

2,3, 4) 

AS$ = Usada para mensajes en vídeo 

B$ = buffer de entrada tecla 

AO = Código de la tecla pulsada 

NF$ = nombre del fichero 

LR = longitud registro 

NR =número registro 

Ko = apunta al principio del dibujo en el 
interior del fichero 

AAS$ = buffer del disco 

NL = número lecciones menos 1 (gene- 
ración) 

MX = último registro escrito 

C$ = buffer de entrada campo 

T =tiempo de parpadeo del cursor 

xC =coordenada X de posicionado 
cursor 

YC =coordenada Y de posicionado 
cursor 


BAS 
DR$ 
GT 


=Códigos caracteres del dibujo en 


(10,10) hi-res 


oo =Códigos juego caracteres del di- 
á bujo 

N$ =nombre del usuario (introducido 
por el preparador) 

R$ = nombre usuario extraído del regis- 
tro durante la búsqueda 

NL = número registro en que se ha en- 
contrado el nombre usuario 
(R$ = N$) 


Eolo 


En esta versión no se ha utilizado la data entry normal. 
Para las variables que se refieren al uso de los caracteres 
y de los gráficos, consultar los listados anteriores. 








Menú generación texto. En la versión DOS, la creación 
de los archivos que contienen las lecciones de 
ortografía con sólo texto es realizada por el primero de 
los cuatro programas previstos. La voz 2, Corrección 
datos, permite realizar modificaciones a lecciones 
introducidas anteriormente; las voces 3 y 4, 
Introducción y Corrección texto, permiten crear y variar 
el texto de introducción que podrá guiar al niño durante 
el desarrollo de las lecciones. 


Generación. La fase de Generación de los archivos de 

datos se realiza en tres partes: 

1/ Creación de los ficheros datos en el diskette 

2/ Introducción de los nombres de los 5 niños a los que 
se ha reservado el soporte magnético 

3/ Introducción de las lecciones 

En la última parte, Introducción lecciones, se insertan 

los cuestionarios, cada uno de los cuales está formado 

por 10 vocablos con otros tantos indicadores. Los 

valores de los indicadores son: 

1: indica los vocablos correctos o, en general, la 
condición de verdad. 

O: indica los vocablos erróneos 

1a10: valores utilizados para las asociaciones entre los 
10 vocablos previstos. 


Introducción lecciones con gráficos. El programa de 

generación con gráficos permite crear preguntas 

ilustradas con figuras. En la versión DOS, estas figuras 

se generan mediante caracteres y símbolos 

semigráficos en alta resolución en una retícula del 

formato 10Xx10 caracteres. Los comandos de que 

dispone el usuario en la generación de las figuras son: 

CTRL + Z: mueve el cursor arriba 

CTRL + W mueve el cursor abajo 

CTRL + A: mueve el cursor a la izquierda 

CTRL + S: mueve el cursor a la derecha 

RETURN : activa el símbolo gráfico seleccionado en la 
posición en que se encuentra el cursor 

Barra espaciadora: selecciona el juego de caracteres 

- | desplazan todos los caracteres y símbolos 

= | disponibles en el juego seleccionado 


CTRL + E: introduce la figura en disco. 


Desarrollo lecciones con gráficos. El cuarto programa 
de Ortografía permite al niño desarrollar las lecciones 
ilustradas con las figuras. En esta fase, el niño 
interrogado debe indicar cuál de los 5 vocablos 
previstos en la generación corresponde a la figura 
presentada (se han previsto generaciones visibles y 
sonoras según el resultado positivo o no de la 
respuesta). 

Ambos programas dedicados a las lecciones con 
gráficos (Generación y Uso) trabajan con pantalla de 
alta resolución. 


CIONES FORUMS 


LUNES FORUMS 
ANI MA A Ñ 
Da CIL — Y 
¡paa! LECCION N 1 


VOCABLO el: 


Q 
el 10) 
IDO 
OBÓ 
avd] 
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Menú generación texto. También en la versión MSX, 
que adopta como soporte para la memorización la cinta 
magnética, el procedimiento Ortografía está dividido en RH 


cuatro programas: : — 
1/ Generación lecciones con sólo texto 


2/ Desarrollo lecciones con sólo texto 

3/ Generación lecciones con gráficos 

4/ Desarrollo lecciones con gráficos. 

En este caso, el usuario ha activado el primer programa, 
que tiene un menú principal con el que seleccionar la 
función deseada. Las voces 1 y 2 permiten grabar y 
modificar las lecciones, con las cuales también puede 
introducirse un texto explicativo (cuya gestión se realiza 
en las voces 3 y 4). 


A 
-Correccion datos 

A RR 
-Correccion texto 

-Fin de tarea 


Introducción lecciones con sólo texto. El usuario ha 
seleccionado la voz 1 del menú, y el programa presenta 
la máscara vídeo necesaria para la introducción de las 
partes que constituyen una lección: tema general, diez 
vocablos, diez indicadores. 

Los valores a insertar en los campos de introducción de 
los indicadores servirán para identificar la condición de 
verdad (número 1) o la de falsedad (número 0) de un y 
vocablo. Los valores comprendidos entre 1 y 10 se 
utilizarán para las asociaciones entre los diez vocablos 
presentes. 


O Ediciones Forum, S.A. 


LECCION m. 1 
Vocablo Flags 


q 


eon 
irata 
ocodrilo 


MINT le 


o 


CTRL Y <AYUDA> 


Programa con gráficos: introducción de las figuras. 
Las lecciones que prevén el uso de dibujos ilustrativos 
están compuestas de una parte gráfica y otra de texto. 
Por tanto, la introducción de estas lecciones se ha 
dividido en dos fases: en la primera se crea la figura 
(que en los programas MSX está constituida por 4 
sprites) y después se introducen los cinco nombres 
entre los que está la respuesta correcta. 

En la foto se ha presentado la máscara vídeo 
correspondiente a la creación de la figura. Los 
comandos previstos son: 

: mueve el cursor arriba 

: mueve el cursor abajo 

: mueve el cursor a la izquierda 

: mueve el cursor a la derecha 

: enciende el punto en el que se encuentra el cursor 
: apaga el punto en el que se encuentra el cursor 

+ confirma la figura. 








Desarrollo lecciones con gráficos. El programa que 
desarrolla las lecciones compendiadas por los dibujos 
es el que más atraerá la atención del niño, gracias al 
uso del sonido y, aunque en una mínima parte, a la 
animación de los sprites. 

La primera pantalla que aparece recuerda al usuario Rebobina la cinta dAiatos 
que debe posicionar la cinta que contiene los datos de CL EAS 

las lecciones. La particularidad de este programa y arnes 
consiste en la utilización de la pantalla en alta E 
resolución, elección que permite la presentación de Si estas ereparado rulsa una 
leyendas en colores y de dibujos. AR 





La foto se refiere al segundo paso del programa. El 
usuario ha introducido la cinta de datos y se han leído 
todas las lecciones grabadas previamente. En este 
punto, el programa indica el nombre (y por tanto el niño) . Ediciones Forum, S-A 
para el que se ha reservado la cinta datos y espera la Co 

confirmación para continuar. po eno 

El nombre del niño, en el caso de la foto “LUIS”, se ESC cassette contiene. 
introdujo junto con las lecciones en la fase de PREU: 
generación. 


las lecciones de: 


LUIS 


estas ereparado -u 


y 


Introducción respuestas. El niño está ahora 
desarrollando los cuestionarios que le presenta el 
programa. En la parte alta de la pantalla hay la figura y, 
debajo, los cinco nombres entre los cuales deberá 
identificar la respuesta correcta. El niño interrogado 
deberá utilizar la letra “S” para indicar la respuesta que 
considere correcta y la letra “"N” para las respuestas 
erróneas. 


Comprobación de las respuestas. Las respuestas 

introducidas por el niño se convalidan con la tecla F5 y 

el programa pasa a analizar la introducción. 

Dicha introducción se compara con los valores 

introducidos en la fase de generación (1 equivale a la 

letra “S” y O a la letra "N”), y sólo en el caso de absoluta 

correspondencia, el programa indicará el resultado Fura da 
positivo de las respuestas, como en la foto. El mensaje En ¿100 
de error o de lección superada va acompañado de 

señalizaciones sonoras y de la descomposición de la o) 

figura para atraer la atención del niño sobre sus cama 

respuestas. A 


SAY 


UR 


Fin desarrollo lecciones. Lo mismo para el programa 
de desarrollo de lecciones con texto como para el de 
desarrollo de lecciones con gráficos, se ha previsto la 
actualización de los ficheros al final de su utilización. 
Esta actualización se efectúa incrementando el 
indicador numérico correspondiente a la lección 
superada por el niño tantas veces como se hayan 
resuelto correctamente los cuestionarios. Para ello es 
necesario grabar de nuevo en la cassette datos los 
ficheros modificados. 
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Extensiones y modificaciones 


La modificación más inmediata consiste en la activa- 
ción de la lógica con vocablos enmascarados. 

El procedimiento, en la forma representada en los lista- 
dos, prevé la presentación de todos los vocablos y, 
por tanto, el desarrollo se reduce a indicar cuáles son 
correctos y cuáles deben asociarse entre sí, aunque 
siempre teniéndolos presentados. 

Utilizando oportunamente el flag puede activarse la ló- 
gica con vocablos «enmascarados». 

Las implantaciones que deben aportarse a los progra- 
mas son: 


1 / Condicionar la impresión en pantalla al valor del 
flag (debe ser inferior a 10) 

2 / Utilizar, como puntero, sólo la parte interna del flag. 
Es decir, si el flag es superior a 10, sólo debe ex- 
traerse el carácter de la derecha. 


De esta manera, los vocablos no se presentan, pero 
deben ser escritos por el niño, aumentando así nota- 
blemente la dificultad del test. 

Una posterior implantación consiste en tener en cuen- 
ta el número de intentos realizados antes de la res- 
puesta correcta. La estructura del procedimiento no 
prevé el control sobre el número de respuestas, lo cual 
significa que un test puede superarse también con in- 
tentos. En cambio, incluyendo el contado de las intro- 
ducciones y de las respuestas correctas, se tendrá 
una medida del grado de preparación. 

La implantación es muy sencilla, puesto que sólo se 
trata de incrementar dos contadores: el primero con 
cada introducción y, el segundo, con cada error. 

Al salir del programa, al final de las preguntas, los dos 
contadores pueden presentarse en pantalla y, even- 
tualmente, pueden transferirse al fichero usuarios para 
una comprobación a posteriori. En este caso habrá 
que modificar el formato registro de dicho fichero e 
incluir una rutina o un programa propiamente dicho, 
para su presentación. 

Esta lógica de control sobre el número de respuestas 
puede verse con detalle en el procedimiento Geogra- 
fía. Finalmente, una implantación muy importante en 
los programas didácticos orientados a los niños, con- 
siste en la inclusión de una gestión «musical» que 
ponga de manifiesto los errores o apruebe las res- 
puestas correctas de manera divertida. A continuación 
se tratará este tema de manera detallada. 


Módulo musical 


En todos los programas, cuando se produce un error, 
hay que emitir un sonido que llame la atención del 
operador. 

En las aplicaciones profesionales u orientadas a un 
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usuario adulto, la señal puede ser un simple «beep», 
mientras que en los programas destinados a un uso 
didáctico orientado a los niños, es necesario «animar» 
su desarrollo utilizando «músicas». 

Este programa permite la preparación y la memoriza- 
ción de composiciones musicales, en disco o cinta, en 
las que también se han previsto las funciones de escu- 
cha y modificación. 

El módulo está completado con una subrutina (35000), 
que permite solamente la escucha en todas las aplica- 
ciones en las que se desee un soporte musical. 

El empleo del módulo es el siguiente: 

Con el programa principal, descrito más adelante, se 
crea la composición, que se memoriza en un fichero. 
En los programas de aplicación, basta con incluir la 
subrutina 35000, llamándola cuando interesa y des- 
pués de haber implantado en la variable A$ el nombre 
del fichero a utilizar. Por ejemplo, supóngase que se 
han generado dos ficheros: el primero contiene el 
«motivo» que debe sonar en caso de respuesta acer- 
tada, de nombre FL1, y el segundo, de nombre FL2, 
para las respuestas erróneas. Para obtener la ejecu- 
ción de uno o del otro, son suficientes las instrucciones 


A$ = “FL1”: GOSUB 35000 
o bien 
A$ = “FL2”: GOSUB 35000 


Naturalmente, la subrutina 35000 debe estar incluida 
en el programa que la utiliza. 

Finalmente, hay que observar que con esta parametri- 
zación, el número de motivos que puede emplearse 
sólo está limitado por el espacio en el disco o en la 
cinta y, por tanto, puede preverse un número muy ele- 
vado de ellos. 

Como ya se ha indicado, el empleo de «música» en 
los programas de aplicación (mediante la subrutina 
35000) requiere la generación de ficheros que conten- 
gan las notas que deben «sonar». La preparación de 
estos ficheros (generación) debe realizarse con un 
programa propiamente dicho, cuyo diagrama se ha re- 
presentado en las cuatro páginas siguientes. 

Las funciones previstas en el diagrama se activan me- 
diante teclas tuncionales o combinaciones de caracte- 
res (en función del tipo de máquina utilizada). En la 
página 2161 se ha representado el diagrama de la su- 
brutina (5000) que activa la función seleccionada. 
Los diagramas corresponden a la versión MSX. Para 
las demás deben consultarse los listados. 

En particular, en la versión DOS se tienen notables di- 
ferencias, puesto que no se dispone de sprites ni de 
instrucciones para emitir notas. 


Con las teclas funcionales 
pueden modificarse las 
características de las notas 
emitidas 


Desplaza hacia delante las 
notas introducidas 


O 


MODULO MUSICAL: PARTE 1 


Esta subrutina carga de 
cinta o de disco los datos de 
una composición hecha 
previamente y memorizada 


Presenta el dibujo del 
teclado 


La tecla pulsada 
(correspondiente a una nota) 
se evidencia superponiendo 
un sprite al dibujo del teclado. 
Este bloque define los sprites 
previstos 


El programa se pone en 
espera de una tecla 


Las flechas (derecha: => e 
izquierda: —) sirven para 
desplazar las notas ya 
introducidas para volverlas a 
escuchar o, eventualmente, 
para variarlas 


SI 
Desplazan hacia atrás las 
| notas introducidas 


El desarrollo de este bloque 
depende de la versión 
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MODULO MUSICAL: PARTE 2 


El número del sprite 
correspondiente está 
enAA(TT,1) 
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ACTIVACION FUNCIONES 


HA 
y y y y 


Con el bucle de 1 a 20 
cambia el valor de la octava 
que hay en N$(«, 1) 


O y y 


Grabación en cinta 
y fin 


Memoriza una pausa en Permite la memorización Con un bucle de 1 aKR 
MSS$(CR) en MS$(CR) o no de las permite volver a escuchar 
notas pulsadas MS$(+) 


Introducción 
nombre del fichero 
y apertura del 
mismo 
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SUBRUTINA PARA VOLVER A ESCUCHAR DE CINTA 


En la llamada hay que transferir 
a la variable A$ el nombre del 
fichero que contiene las notas 
a «hacer sonar» 


En M hay el número de notas 
grabadas 


En M$(+) se cargan las notas 


que hay en la cinta 


can 
|, 


Cada elemento de M$(«) 
contiene la nota, la octava 


y la duración : 
En el BASIC MSX se emplea 


[ses] la instrucción PLAY MS(1) 
| Si 
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Aritmética 


El programa en la versión presentada está orientado a 
los más pequeños: su desarrollo es muy sencillo y no 
requiere ninguna participación por parte de los pa- 
dres, sino sólo una ayuda inicial ilustrativa. 

La máquina propone un número, diferente cada vez, e 
invita al niño a descomponerlo en unidades, decenas, 
centenas y millares. Si todas las respuestas son co- 
rrectas, la descomposición del número se ilustra con 
un dibujo en el que cada cifra está representada por 
un «cesto». El valor numérico de una cifra viene dado 
por la cantidad de bolas que están representadas en 
el cesto correspondiente. 

De esta manera, sin presentar el aspecto riguroso de 
la materia, se ilustran los conceptos básicos de un sis- 
tema de numeración posicional. 

La diferencia, por ejemplo, entre las unidades y las de- 
cenas queda evidenciada con un mecanismo anima- 
do que muestra cómo 10 bolas del primer cesto (uni- 
dades) deben convertirse en sólo un 1 en el segundo 
(decenas). 

Para completar el ejercicio, el niño es invitado a partici- 
par activamente indicando, según desee, cantidades 
que deben añadirse a uno cualquiera de los cestos. 
Para esta función se produce el acarreo, o sea la tras- 
lación de una bola de un cesto a otro, lo cual ¡ilustra 
gráficamente los conceptos de «posición» y de «base 
de numeración». 

Al mismo tiempo, en la pantalla aparece el desarrollo 
de la operación en símbolos matemáticos (o sea nú- 
meros), poniendo claramente de manifiesto la relación 
que hay entre la simbología numérica y la cantidad 
que representa. 


Uso del programa 


Aritmética 

Este programa no es parametrizado y, por tanto, no 
contiene un menú ni los usuales procedimientos de 
generación del sistema y de introducción de pregun- 
tas. Las funciones que desarrolla son dos, una des- 
pués de la otra. 

Inicialmente muestra cómo un número de 4 cifras está 
compuesto de unidades, decenas, centenas y milla- 
res. A continuación propone al niño que indique algu- 
nas sumas para realizar, indicando su lógica con sím- 
bolos gráficos. 

Al activar el programa se presenta una máscara en la 
que hay representados cuatro cestos, cada uno con 
un «peso» referido al sistema de numeración decimal. 
El primer cesto corresponde a las unidades, el segun- 
do a las decenas, y así sucesivamente. En este mo- 


Es decir, el «número» ya no aparece como una abs- 
tracción casi carente de significado, sino perfecta- 
mente relacionada con objetos físicos. En el procedi- 
miento se ha incluido también un programa de Geo- 
metría. Esta aplicación, más compleja que la anterior, 
permite comprobar los conocimientos de fórmulas de 
geometría y la capacidad de desarrollar cálculos tam- 
bién complejos. 

El desarrollo consiste en la presentación de una figura 
geométrica y en la petición al niño de que calcule las 
magnitudes, como por ejemplo el área o el perímetro. 
La máquina analiza las respuestas y corrige los even- 
tuales errores. 

La finalidad del programa, 'además de ser la de com- 
probación de la preparación en la materia, también es 
la de habituar al niño a la realización de cálculos men- 
tales rápidos. Efectivamente, la solución a la pregunta 
debe darse en forma de valor numérico, resultante del 
cálculo de los datos generados por el ordenador. 

El valor introducido debe compararse con el calculado 
por el programa. Por tanto, el usuario, además de utili- 
zar la fórmula correcta, debe realizar el correspondien- 
te cálculo sin errores. 

Si la respuesta no es correcta, el niño puede pedir al 
ordenador que le muestre la fórmula, corrigiendo así 
su error. 

El programa, completamente configurable, también 
puede utilizarse como prontuario de geometría. Natu- 
ralmente, para este tipo de empleo conviene implantar 
una versión sin la parte gráfica que, si bien es sugesti- 
va, requiere mucho tiempo para la generación y no es 
indispensable para esta aplicación. 


mento, el programa genera un número aleatorio (de 4 
cifras). De este número se extrae una cifra cada vez a 
partir de la derecha. Por ejemplo, si el número es 
7953, la primera cifra extraída es el 3, que representa 
las unidades del número generado. 

Después de aislar este valor, el programa pide al niño 
que indique cuántas son las unidades que hay en el 
número, y la respuesta se compara con el valor ante- 
rior. Si existe igualdad, el valor introducido por el niño 
es correcto y la máscara se completa haciendo apare- 
cer en el interior del cesto correspondiente un número 
de símbolos igual al valor introducido. En caso contra- 
rio, el programa indica el error y busca si entre todas 
las cifras aparece la introducida. De esta manera, se 
tienen dos posibilidades: 
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1 /la cifra no pertenece al número y, en este caso, el 
programa avisa que el valor no existe 

2 / la cifra está en el número, pero corresponde a otra 
posición. 


Por ejemplo, si la primera cifra es 3 y la pregunta aso- 
ciada es «¿Cuántas unidades?», si se contesta 9, el 
programa busca este símbolo entre los que compo- 
nen el número e indica el error de atribución, especifi- 
cando que el valor introducido corresponde precisa- 
mente a las centenas. 

Si se responde correctamente, además de la aparición 
de los símbolos en los cestos, se tiene la presentación 
del valor en la línea de descomposición en la que se 
indican los pesos de cada cifra (1, 10, 100, 1000), ob- 
teniendo así la descomposición del número también 
en símbolos aritméticos además de gráficos. 

El programa también contiene una forma de parametri- 
zación, aunque no puede utilizarse desde el exterior. 
En particular, el ejemplo presentado corresponde al 
sistema decimal, pero, con algunas modificaciones, es 
posible utilizar otros sistemas de numeración (siempre 
posicionales). 

Además, el programa permite realizar sumas, guiando 
al usuario con preguntas y señalizaciones de error. 


Geometría 
El programa, mediante la gestión de un archivo, permi- 
te realizar dos funciones principales: 


m Consultas 
"= Comprobación del conocimiento del tema 


Utilizado para consultas, constituye un prontuario de 
las fórmulas de geometría, mientras que la segunda 
modalidad es para el uso didáctico. Los dos modos se 
basan en la misma lógica y utilizan los mismos fiche- 
ros. La única diferencia consiste en la presentación o 
no de las fórmulas contenidas en ellos. 

Cada figura geométrica está identificada por un dibujo 
que la representa y por un nombre. Se memorizan por 
separado algunos parámetros característicos de la fi- 
gura (para un máximo de 4) y dos fórmulas de cálculo 
(generalmente área y perímetro). Por ejemplo, para el 
triángulo, además de la figura, se memorizan el nom- 
bre (TRIANGULO) y los parámetros característicos, o 
sea BASE, ALTURA y dos LADOS. 

Como fórmulas se tendrán: 


PERIMETRO = suma de los lados 
AREA = BASE x ALTURA/2. 


La utilización como prontuario se reduce a la presenta- 
ción de los datos, o sea: dibujo, nombre y fórmulas. Y 
viceversa, para uso didáctico sólo aparecen la figura, 
los parámetros y la petición de calcular el área y el 
perímetro. 

En la máscara vídeo inicial (de la fase didáctica) apa- 
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recen la figura geométrica seleccionada y el nombre; 
introduciendo un carácter cualquiera se pasa a la si- 
guiente máscara, en la que se presentan las pregun- 
tas. Esta lógica de separación entre dibujo y texto sólo 
es indicativa, y en algunas versiones en las que el di- 
bujo se realiza con sprites, las dos máscaras están 
unificadas. 

En la segunda máscara (o en la segunda parte de la 
máscara única) aparecen las descripciones de los pa- 
rámetros asociados a la figura (por ejemplo, para el 
triángulo: base, altura, lado 1, lado 2) y las dos pregun- 
tas correspondientes. 

Para cada uno de los parámetros, el programa genera 
un número aleatorio y pide respuesta a las preguntas 
utilizando los valores presentados para los cálculos. 
En el ejemplo (triángulo), las dos preguntas son la peti- 
ción del perímetro y del área. El usuario debe introdu- 
cir dichos valores después de haberlos calculado en 
base a los asociados en los parámetros. 

Esta lógica es más elástica, puesto que permite es- 
tructurar las preguntas de la manera deseada, pero en 
cambio requiere un mínimo de atención tanto en la 
preparación de los datos de base como en su empleo. 
En la fase de generación del archivo es necesario utili- 
zar, como parámetros, únicamente las magnitudes 
que no puedan dar lugar a ambigúedades o a resulta- 
dos inexactos. 

Por ejemplo, siempre en el triángulo, si se han definido 
como parámetros los tres lados (base, lado 1, lado 2), 
puede acontencer que los valores asociados al azar 
no puedan ser reales. 

Por ejemplo, los valores: base = 6, lado 1 = 2, lado 2 
= 11, son imposibles geométricamente, puesto que 
cada lado debe ser menor que la suma de los otros 
dos. Sin embargo, estas incongruencias no limitan la 
aplicabilidad del programa porque, incluso con valo- 
res erróneos geométricamente, puede comprobarse la 
corrección de las respuestas. Es decir, con los datos 
anteriores, se tendría: área = 6 x 4/2 = 12 y perímetro 
= 19. Introduciendo como respuestas 12 y 19, el pro- 
grama las aceptaría como válidas, porque al aplicar 
las fórmulas memorizadas, los resultados coincidirían. 
Como ya se ha indicado anteriormente, este programa 
requiere la introducción de los datos de base por parte 
del usuario. 

Cada figura comprende un conjunto de datos ubica- 
dos en ficheros diferentes, y está identificada tanto por 
el número progresivo de introducción como por el 
nombre. De esta manera puede llamarse bien con el 
número, bien con el nombre. Esta doble clave de en- 
trada es útil tanto para rectificar eventuales errores de 
entrada como para tener una especie de índice. Efec- 
tivamente, estructurando el conjunto de datos con un 
número progresivo, cada número puede identificarse 
con el de la lección y obtener así un verdadero curso 
de geometría, incluso de nivel muy sencillo. Sin em- 
bargo, para obtener esta finalidad es necesario orde- 
nar cuidadosamente los datos antes de su introduc- 


ción para impedir que los diversos temas se mezclen 
sin ninguna lógica. Es posible introducir las diferentes 
figuras en orden creciente de dificultad, como por 
ejemplo en primer lugar los triángulos, después los 
cuadriláteros, el círculo, etc. Además, también debe 
prestarse especial atención en la fase de introducción 
de las fórmulas. 

El programa utiliza las indicaciones aportadas en esta 
fase para realizar el cálculo necesario y comprobar las 
respuestas, por lo que estas fórmulas deben ser para- 
metrizadas. 

Por ejemplo, y siempre para el triángulo, los paráme- 
tros son base, altura, lado 1, lado 2 que, introducidos 
en la línea «parámetros», se asocian a un número pro- 
gresivo (1, 2, 3, 4) y las fórmulas deberán escribirse 
utilizando estos indicadores. Por ejemplo, el perímetro 
se indica con 1 + 3 + 4, porque introduciendo los 
parámetros en el orden anterior, la base ocupa la posi- 
ción 1 y los otros dos lados las posiciones 3 y 4. 

Las fórmulas se introducen en las dos líneas que hay 
debajo de CALCULO; en los dos campos (uno por fór- 
mula) aparece el símbolo «X» que separa, en cada 
uno, la primera parte que sólo tiene carácter numérico 
de la segunda (últimos 7 caracteres) que contiene la 
fórmula sintetizada para los punteros (1 + 3 + 4). 
Esta separación es necesaria para la introducción de 
constantes numéricas. Por ejemplo, el cálculo del área 
es: 1/2 X base X altura, o sea 0,5 X base X altura (1/2 = 
0,5) y la fórmula, en términos de punteros, es: 0.5X 1 X 
2; o sea que contiene todos los valores numéricos pe- 
ro con significados muy diferentes. El primero (0.5) es 
un valor multiplicador, y los otros dos (1, 2) indican que 
en el desarrollo del cálculo deben utilizarse los conte- 
nidos de los campos 1 (base) y 2 (altura). 

Para gestionar en el programa estas diferencias es ne- 
cesario estructurar cada fórmula en dos partes. La pri- 
mera, a la izquierda del símbolo «X», debe contener 
siempre el valor multiplicador; la segunda, a la dere- 
cha del símbolo «X», es la indicación del proceso a 
realizar. La presencia del factor multiplicador obliga a 
escribir siempre un valor numérico, incluso si éste no 


Menú principal del procedimiento. Los dos temas, 
Aritmética y Geometría, se tratan de diferente manera: 
en el primero, el desarrollo ya está configurado y, por 
tanto, sólo se ha previsto el programa de uso; en 
cambio, en el segundo son necesarias las dos voces, 
Generación y Uso. 


es necesario. Por ejemplo, en el cálculo del perímetro 
(1 + 3 + 4) no se necesita ninguna constante, pero tal 
y como está estructurado el programa, debe introdu- 
cirse el valor 1. Por tanto, la fórmula a escribir es 1 X 1 
+ 3 +4, 

Obsérvese que, algebraicamente, la expresión escrita 
es errónea, porque por motivos de prioridad en el de- 
sarrollo de las operaciones, primero debería hacerse 
la multiplicación 1 X 1 [o mejor 1 X (valor correspon- 
diente al parámetro 1)] y después las sumas. En reali- 
dad, la lógica del programa realiza en primer lugar lo 
que hay a la derecha del símbolo «X» y después el 
producto. Por tanto, la expresión debe entenderse co- 
mo escrita 1 X (1 + 3 + 4), incluso si por motivos de 
simplificación no se han previsto los paréntesis. 
Otros motivos análogos implican la necesidad de indi- 
car siempre un valor multiplicador que, si no es nece- 
sario, deberá ser 1. 

La necesidad por parte del usuario de acceder a los 
archivos implica la presencia de un menú en el que 
seleccionar la función deseada. Las funciones que 
pueden seleccionarse son las siguientes: 


m Generación del sistema 
m Introducción/variación de datos 
m Uso 


La primera es la acostumbrada preparación de los fi- 
cheros, con registros en blanco, con el único objeto de 
generar una estructura de datos seguida. La segunda 
voz permite introducir o variar, bien la figura (general- 
mente obtenida con un sprite), bien el texto (nombre, 
parámetros, o fórmulas). La última voz se refiere al de- 
sarrollo propiamente dicho, con presentación de las 
preguntas y comprobación de las respuestas. 

Los listados representados prevén el menú en la forma 
anterior, pero pueden dividirse fácilmente en dos par- 
tes: la primera con la generación y la introducción utili- 
zadas por quien genera las preguntas y la segunda, 
con un solo uso, accesible al niño que debe dar las 
respuestas. 
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Aritmética. El programa ha generado el número 1478 

y pide su descomposición cifra por cifra. Si la respuesta 
es correcta, en el cesto indicado coloca un número de 
símbolos igual al valor de la cifra seleccionada. 


Finalizada la descomposición, el programa pasa a 
presentar el desarrollo de una suma. El primer 
parámetro a introducir es el valor numérico que se 
desea sumar. 


=> H 
O | 


eN 
ER 
Mr 





LE 


o] 7 ¡e 





A este valor debe atribuírsele un “peso” que 
determinará su colocación en el cesto 
correspondiente. 


ALS 
Es er cesto semi IAE 


Al valor.introducido anteriormente (5) se le ha atribuido 
el peso “decenas” (por lo que el valor se convierte en 


50), y el número así ponderado se ha sumado al anterior. 1 MA 
La operación siempre se presenta con símbolos (bolas) ' EE E e 
y con números. Al final de la máscara se pregunta si se 


desea continuar. 
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Respondiendo “s” a la pregunta anterior se presenta un 
nuevo número (2701). El flujo siempre es el mismo: el 
usuario introduce un valor e indica la intención de 
sumarlo al cesto de las centenas. 





Antes de proceder a la suma indicada, el programa 
pregunta a qué cesto corresponde (centenas, ver foto 
anterior). En este caso, el usuario lo ha identificado 
erróneamente con el número 1, que corresponde a las 


y 
unidades. y 


A 


MA liaresh itentenas! 


hs 


Ma o 
lque numero se cesto 


El programa detecta el error y lo indica. 


Geometría: menú principal. La función que debe 
activarse en primer lugar es la Generación del sistema. 
Sólo así puede pasarse a la fase de introducción de las 
preguntas. 


- Introduccion/l 
TS 
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Generación del sistema. Al activar la Generación del 
sistema, el programa pide la confirmación antes de 
realizar la función para evitar la posible destrucción de 
datos ya existentes en el diskette. 


Introducción /Variación. Al final de la Generación 
puede pasarse a la segunda voz del menú principal, 
que prevé las opciones Introducción y Variación, 
realizadas mediante dos subrutinas separadas. 
Como de costumbre, la selección se efectúa 
introduciendo el valor numérico correspondiente a la 
función deseada. 


Introducción. La foto muestra la introducción del texto 
correspondiente a la figura n. 1 (indicada en la parte 
superior de la pantalla). El usuario introduce el nombre 
de la figura en base al cual se realizará la búsqueda 
durante el programa de utilización, y la fórmula para el 
cálculo del valor pedido en la pregunta. 


Terminada la Introducción, puede seleccionarse la 
Variación, con eventuales correcciones, o simplemente 
para obtener la lista de los nombres introducidos. 
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LISTA 


73 


ES AAA A EA 
¡Generacion del sistema 


GEMERACIO! 3.10: E11 


CONTINUO 


ES 


AUDE 


INTRODUCIR. OPCION 


c1> IEA 
FLAT 
(32 VUELVE AL MENU PRINCIPAL 


14 1 418 001,5 
AAA 
FAS 
<3> VUELVE AL MENU PRINCIPAL 


HOMBRES PRESENTES 





Contestando “si” a la pregunta anterior se obtiene la 
presentación de las figuras que hay. El programa pide EIA AAA 
cuál se desea variar. SEED - 


IET 
TAR LETS 


Varlación. El usuario ha introducido el valor 2, por lo 
que el procedimiento entra en la subrutina de 
actualización: en el disco lee los datos contenidos en la 
posición 2 y los presenta en pantalla en espera de las rms 
correcciones. ELSA 


JACA Triangulo, 
Parametr 


1culO) 


III AES 





Geometría: uso. La foto muestra el otro método de 
acceso. En el anterior, la selección de los datos a 
modificar se obtenía indicando el número progresivo 
pero, como alternativa, puede introducirse el nombre 
(cuadrado, triángulo, etc.). Para activar este segundo 
método es necesario responder con — 1 a la petición 
anterior. TADA > -1 


Por ejemplo, introduciendo el nombre rectánguio, el 
programa realiza una búsqueda por los datos E 
contenidos en el fichero y extrae los que coinciden con MA 
este valor. 


11144444 
Pm 





2169 


Primera fase del análisis de las respuestas: la primera 
| respuesta es correcta (perímetro). 


Segunda fase del análisis de las respuestas: la 
respuesta a la segunda pregunta es errónea (el área 
vale 20). 


La presencia del error genera la posibilidad de 
presentar la fórmula. 


El usuario ha contestado “s” a la pregunta de 
presentación de la fórmula, que se presenta. 
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RESPUES TARRICORRELTA 


IEA E 


RELE 


En 


os valores conocidos son : 
ladoi 


la 


do2 


Lalcular = 


A 
NT 


AS 


metro 


angulo 


Los valore 


RDA 


area 


Rectangulo 


peri 


IS 


E 


ña 


Rectangulo 


E 
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La formula para calcular 


area 


CS 


ix ladol Xx lado2 


ALAS 


AA 








La lógica del programa 


Aritmética 

El análisis, desde el punto de vista lógico, es muy sen- 
cillo y corto. No existen ficheros que gestionar y, por 
tanto, la estructura de los programas es completamen- 
te diferente a la usual. Las funciones a desarrollar pue- 
den resumirse en pocas voces, elementales desde el 
punto de vista del análisis, pero bastante complejas 
para su detallado. Además, a causa de la característi- 
ca básicamente gráfica del programa, no es posible 
presentar diagramas de detalle que tengan una vali- 
dez general. Cada versión está estructurada para utili- 
zar las características y las posibilidades de la máqui- 
na que la albergará y, por tanto, está estrechamente 
ligada al hardware. 

A nivel lógico, las funciones a realizar son: 


"= Presentación máscara con cestos vacíos 

= Generación y presentación del número de 4 cifras 

= Bucle, de 1 a 4, de extracción de cada cifra del 
número 

"m Presentación de la pregunta (las preguntas están 
memorizadas en la matriz D$(+)) 

= Comprobación de la respuesta 

m Completado de la máscara con la aparición de los 
símbolos en el interior de los cestos correspondien- 
tes a las cifras 


En lo que respecta a la segunda parte (sumas), las 
funciones son: 


m Petición del número a sumar (valor) y de su peso 
(unidades, decenas, etc.) 

m Completado de la máscara con presentación, en el 
cesto indicado, de un número de símbolos igual al 
indicado e igual al total, con la eventual transferen- 
cia del acarreo al siguiente cesto. 


Esta última función es la única que requiere una cierta 
lógica, puesto que las otras son exclusivamente gráfi- 
cas. 

Realizando la suma entre el número anterior y el intro- 
ducido puede producirse el caso de superación de la 
base. Por ejemplo, si se pide sumar 9 unidades al nú- 
mero 7953, en el cesto correspondiente (unidades) 
deberán aparecer 2 símbolos, y al de las decenas de- 
berá añadirse 1 (9 + 3 = 12). Por tanto, debe preverse 
la posibilidad de un acarreo de un cesto al siguiente, y 
si existe acarreo, es necesario realizar un bucle desde 
el cesto examinado hasta el último (para tener en 
cuenta posibles acarreos sucesivos). Como ya se ha 
indicado, la parametrización de la base puede efec- 
tuarse en esta fase. El ejemplo se ha realizado utilizan- 
do el sistema de numeración decimal, lo que significa 
que si se tiene un acarreo cuando la suma de los sím- 


bolos en un cesto supera el valor 9 (la base es 10), 
variando este valor puede cambiarse la base. Por 
ejemplo, utilizando el sistema binario, el acarreo debe- 
rá producirse cuando la suma sea superior a 1. 

Sin embargo, hay que tener en cuenta que esta modifi- 
cación implica una forma diferente de la subrutina que 
genera el número aleatorio inicial. Efectivamente, al 
cambiar la base es necesario comprobar que no apa- 
rezcan valores inadmisibles: por ejemplo, en la nume- 
ración binaria, el número anterior sólo contiene una ci- 
fra válida (los símbolos de esta base son sólo O y 1). 
Los métodos que permiten adaptar la rutina a varias 
bases son múltiples; en general pueden utilizarse ta- 
blas, internas al programa, que traduzcan de la base 
decimal a otra. Por ejemplo, para obtener un número 
binario (cualquiera, no relacionado al número decimal) 
basta con una instrucción IF en cada cifra, de manera 
que, cuando ésta sea inferior o igual a 5, se genere un 
O y, en caso contrario, se genere un 1. En esta hipóte- 
sis, el anterior valor decimal se convierte en 1100 (el 
valor decimal correspondiente es 12 y, por tanto, la 
cifra binaria no está correlacionada con el número de- 
cimal que la genera). 

Al tratar bases superiores a 10 aparece una complica- 
ción. Por ejemplo, en la base hexadecimal (base 16), 
dos cifras decimales pueden originar una sola hexa- 
decimal (10 = A, 11 = B, etc.). 

Sin embargo, en este caso tampoco es necesario cal- 
cular los nuevos números, puesto que pueden utilizar- 
se tablas. 

En la página 2173 se han representado algunos pará- 
metros utilizados para la preparación de las máscaras. 
Estos valores corresponden al sistema decimal, por lo 
que al cambiar la base de numeración, es necesario 
cambiar también todos los parámetros. 

En particular, la colocación de los símbolos en cada 
cesto se hace en 3 líneas con un máximo de 3 símbo- 
los por línea. Al variar la base también debe modificar- 
se esta disposición, mientras que las referencias de 
línea, columna y paso pueden quedar iguales. 

En la página 2172 se ha representado el diagrama ge- 
neral. El programa está menos estructurado que los 
anteriores debido al limitado número de funciones que 
debe realizar. Sólo se utilizan dos subrutinas: la prime- 
ra (1000) se ocupa de la preparación de la máscara 
generando el número aleatorio, mientras que la segun- 
da (4000) completa la máscara con el desarrollo de la 
suma. Por tanto, el main contiene la llamada a la 
subrutina 1000, que presenta el número y los cestos 
vacíos, y espera instrucciones para colocar el número 
exacto de símbolos en cada cesto. Después se pide el 
valor a sumar. Si este valpr es O, el programa termina 
y, si no, prosigue pidiendo que se introduzca el 
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«peso» de este valor (unida- 
des, decenas, etc.) y la posi- 
ción del cesto correspondien- 
te. Este último valor (número 
del cesto) no debe ser superior 
a 4 y es controlado en relación 
al peso anterior. Por ejemplo, si 
a la primera pregunta (después 
de la introducción del valor nu- 
mérico) se responde con «cen- 
tenas», el programa compro- 
bará que el cesto indicado sea 
el número 3. Esta comproba- 
ción se efectúa memorizando 
la posición de la cadena y 
comprobando la coincidencia 
con el número del cesto. Todas 
las cadenas previstas (unida- 
des, decenas, etc.) se memori- 
zan en una matriz (con la ins- 
trucción DATA): por tanto, se 
necesita un bucle que compa- 
re la cadena introducida por 
cada elemento de la matriz y, 
en su salida, dé al flag K el va- 
lor de la posición en que se ha 
producido la coincidencia. En 
el caso de que la introducción 
no se encuentre entre los voca- 
blos memorizados en la matriz, 
el flag K valdrá O y se producirá 
la aparición de un diagnóstico 
y una nueva petición de intro- 
ducción. El valor de este flag 
(K) se utiliza también para 
comprobar la siguiente res- 
puesta (número del cesto) y, 
por tanto, los posibles nombres 
(unidades, decenas, etc.) de- 
ben memorizarse en el orden 
adecuado. 

Al final de las introducciones se 
llama la subrutina 4000 que 
completa, con el oportuno nú- 
mero de símbolos, los diferen- 
tes cestos (teniendo también 
en cuenta los acarreos). En la 
página 2174 se ha representado 
el diagrama de principio de la 
subrutina 1000, que realiza las 
funciones: 


m Presentación de la máscara 
(subrutina 2000) 


2172 


ARITMETICA: DIAGRAMA GENERAL 


Termina introduciendo O 


y —_—O 


12 


(Indicado por el 
flag en la 4000) 


Presenta la máscara inicial y 
pide al niño que 

especifique la colocación de 
cada cifra de un número 
aleatorio de 4 cifras 


El programa pide un valor 
a sumar al que hay 
en la pantalla 


El programa pide la 
colocación (unidades, decenas, 
centenas, millares) 


Este bloque pone el puntero en K 
(K = 1 para las unidades, 
K = 2 para las decenas, etc.) 


La respuesta, que debe estar 
comprendida entre 1 y 4, 
se memoriza en la variable M 
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DESCOMPOSICION DE UN NUMERO DECIMAL 


La máscara está 
predispuesta para un 
empleo general 


En la llamada debe 
introducirse en K 
el número 
de cifras. La rutina 
responde 
con un valor numérico 
en Ny 
Principio con uno alfanumérico 
bucle en N$. 
preguntas Además, compruebas que 
la primera cifra (la más 


significativa) 

A A no sea O 
Extrae de N$ el carácter en 
la posición | a partir de la 


derecha 


Los textos de la pregunta 
están en D$(») 


y AD) 


Respuesta 


Presenta en el interior 

del símbolo “!” un 

número de «bolas» y 
igual al valor de CH$ 


T$(«) contiene: 
Unidades 
Decenas 
Centenas 
Millares 


Los diagramas de las subrutinas 2000 (Presenta máscara) y 3000 (Genera un número aleatorio) se han omitido 





" Generación del número aleatorio (subrutina 3000) nivel de diagrama porque están estrechamente liga- 
= Presentación de preguntas y completado de la das al tipo de máquina, por lo que deberán consultar- 
máscara. se los correspondientes listados. 


A la salida de la subrutina 3000, la situación es la si- 
Las subrutinas 2000 y 3000 no se han representado a guiente: en pantalla aparece la máscara con los 4 ces- 
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COMPLETA MASCARA 


La rutina utiliza 

la matriz NS(4) para memorizar 

el número de símbolos contenidos 
en cada una de las 4 posiciones 
(unidades, decenas, etc.). La que 
debe utilizarse se indica con lO 


El contenido total es mayor 
que la base: debe hacerse un acarreo 


Principio bucle 
posicionado 
símbolo 


Determina 
la línea 
en función 
del cesto 
en que 
deberá 
colocarse 
el símbolo 


Tercer cesto 


Esta parte 
debe Calcula la columna 


estructurarse correspondiente al cesto 


como subrutina 
para poder 

ser utilizada 
por la línea que 
realiza el 


acarreo 2 A =CO- (10—1)*P Columna 


xX=A-2+C principio cesto 


El símbolo se mantiene presentado 
si el flag KV vale 1. Si no, 
se borra 


Actualiza el contador de 
caracteres insertados 
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COMPLETA MASCARA: SEGUNDA PARTE 





tos vacíos y el número que deberá ser analizado cifra 
por cifra y que dará lugar a la aparición de los símbo- 
los en los cestos. En este punto, el programa extrae 
cada cifra que compone el número (a partir de la dere- 
cha) y presenta la petición del valor de la cifra, hacien- 
do referencia al peso que le corresponde. 

El carácter introducido (CH$) debe coincidir con la últi- 
ma cifra extraída. Si existe coincidencia, se"llama la 
subrutina 4000 de completado de máscara y se pasa 
a la siguiente cifra. 

Si no es así, el programa utiliza el valor del carácter 
introducido como puntero a la matriz T$(+) que contie- 
ne los nombres de cada posición. De esta manera es 
posible formular un diagnóstico exacto indicando el 
error que ha cometido el niño. Por ejemplo, con | = 3, 
tercera vuelta del bucle principal, el valor extraído es 9 
(siempre suponiendo que el número aleatorio es 
7953), y el programa pide cuántas son las centenas. Si 
en lugar de 9, que es la respuesta correcta, se indica 
5, este valor identifica la segunda cadena de la matriz 
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Transfiere el contenido 
de A$ 


Calcula cuántos símbolos deben 
dibujarse en la celda 10. 

La variable B es 10 para 
numeraciones en base 10, 

y pone NS(I0) = O 


Utilizando la rutina anterior 


Acarreo 


Esta función no se efectúa 

si lO + 1 > 4. Además, hay que 
alzar un flag para indicar que se ha 
terminado el espacio. 


T$ («w) y genera la leyenda «Decenas». Si el valor intro- 
ducido no está en el número generado, el programa 
informa de ello al usuario. 

La rutina de completado de la máscara (diagrama de 
la pág. 2175 es la más compleja, porque debe prever 
la posibilidad de un acarreo, o sea de una transferen- 
Cia de un símbolo de un cesto a otro (en sentido cre- 
ciente) si se supera el valor de la base con el número 
de los símbolos. 

Por este motivo, el diagrama está dividido en dos par- 
tes. La primera muestra la lógica seguida por el com- 
pletado de los símbolos del interior de un cesto, y en la 
segunda el método utilizado para realizar los acarreos. 
El número de símbolos que hay en cada cesto se me- 
moriza en la matriz NS(+), de 4 elementos, y así, una 
simple suma indica la necesidad o no de efectuar un 
acarreo. 

Al llamar la subrutina, a la variable IO se proporcionan 
el índice del cesto y a la cadena A$ el número de sím- 
bolos a añadir a los ya existentes. La cadena A$ se 


En la generación del número aleatorio debe eliminar- 
se, si se presenta, el número 9 de la posición 4. De 
esta manera, el valor máximo posible en la posición 4 
es 8, y si se produce un acarreo desde la posición 3, el 
contenido de la 4 no supera la base. El segundo con- 
trol debe realizarse durante la introducción del número 
a sumar y de su posición. 


Diagrama de flujo general. El programa no prevé un 
menú y, por tanto, apenas activado, presenta la más- 
cara para su utilización. 

La subrutina 1000 realiza esta tarea y proporciona al 
niño el número que debe descomponer y distribuir en 
los 4 cestos previstos. Al final, una vez dadas todas las 
respuestas necesarias, la subrutina vuelve a entrar en 
el flujo principal y se activa la función de desarrollo de 
una suma. 

El programa presenta la petición de un valor a sumar 
al número ya presente en la pantalla y queda en espe- 
ra de la respuesta. 

Si se introduce el valor O (N = 0), el programa termina. 
En caso contrario, pide la atribución de un peso al va- 
lor numérico introducido (o sea, especificar si se trata 
de unidades, decenas, centenas o millares). La res- 
puesta dada, en forma de cadena que contiene el 
nombre de la posición elegida, se compara con las 
presentes. Por tanto, en el programa debe haber in- 
cluidas 4 cadenas que contengan las palabras unida- 
des, decenas, centenas y millares. Si no se encuentra, 
se indica el error y se presenta la segunda pregunta 
de «direccionado» del cesto. La respuesta es un valor 
numérico (M) que indica la posición (de 1 a 4) elegida 
por el niño. 

Con la introducción anterior se ha elegido un «peso» 
mediante su nombre (unidades, decenas, etc.), y en 
esta fase se comprueba que la indicación de posicio- 
nado sea congruente. Es decir, la máquina, mediante 
el nombre anterior, conoce el cesto de destino y lo 
compara con el indicado por el niño. Si la respuesta es 
errónea, el programa proporciona un diagnóstico es- 
pecificando el «nombre» de la posición introducida, 
pero no sugiere la respuesta correcta, que debe ser 
introducida por el usuario. 

En caso de obtención de la indicación correcta, el pro- 
grama implanta los parámetros necesarios para el fun- 
cionamiento de la subrutina 4000 (completado de la 
máscara), que suma el número introducido en el cesto 
indicado. 

Con una sencilla implantación (no prevista en los lista- 
dos), el programa puede proporcionar el nombre de la 
posición indicada especificando que no existe el nú- 
mero generado. 

Esta implantación puede consistir simplemente en di- 
mensionar la matriz T$(+) para un número de leyendas 
mayor que las necesarias, para prever posiciones in- 
cluso de índice superior a 4 (aunque esta forma es 
limitada conceptualmente y ocupa más espacio del 
necesario). 


Una forma más elegante puede obtenerse «compo- 
niendo» la leyenda en base a una sencilla lógica: para 
valores de 1 a 4, los nombres son unidades, dece- 
nas, centenas y millares; con un índice 5 debería apa- 
recer la leyenda «decenas de millar», que aparte de la 
palabra «de» ya está contenida en T$(+) y puede obte- 
nerse con la suma T$(2) + “De” + T$(4). 

Siguiendo este método basta con memorizar los valo- 
res de base y la palabra millones. De esta manera se 
obtiene la respuesta correcta con la composición de 
sólo 5 datos, con números de hasta 12 cifras (centena- 
res de miles de millones). 


Descomposición de un número decimal. La subruti- 
na 1000 realiza las funciones: 


m Presentación de la máscara 

m Generación de un número aleatorio de 4 cifras 

m Bucle de pregunta, de espera y respuesta, y distri- 
bución de los símbolos 


Las dos primeras funciones se realizan con dos subru- 
tinas: la 2000, esencialmente gráfica, presenta los ces- 
tos, las leyendas y los otros símbolos que constituyen 
la base de la máscara, a completar con los valores a 
medida que se van introduciendo los datos. La 3000 
se dedica a la generación de un número aleatorio, y 
como su desarrollo es muy sencillo, se ha omitido el 
diagrama. 

Después de estas dos llamadas a las subrutinas de 
preparación, empieza el bucle de preguntas, respues- 
tas y presentación. 

En el bucle (hasta 4) se extrae, del número aleatorio 
generado en la rutina 3000, una cifra cada vez a partir 
de la menos significativa, o sea de las unidades. El 
programa pide cuál es la cifra correspondiente al peso 
indicado y la compara con la extraída. Si la respuesta 
es correcta, llama la 4000, que completa el peso indi- 
cado con un número de símbolos igual a la cifra; en el 
caso de que la respuesta facilitada no sea correcta se 
activa un diagnóstico. 

En caso de error sólo existen dos posibilidades: la cifra 
introducida está en el número pero no en la posición 
que se ha indicado, o bien la cifra introducida no está 
en el número. En el primer caso, el programa indica la 
posición correspondiente a la cifra introducida, mien- 
tras que en el segundo informa de que la cifra no está 
contenida en el número. 


Completado de la máscara. Esta subrutina es la más 
compleja de todo el programa. 
Las funciones que realiza son: 


m Complemento de los símbolos contenidos en un 
cesto. 

m Comprobación del eventual acarreo con la consi- 
guiente modificación de los símbolos que hay en 
los siguientes cestos 


2177 


convierte en valor numérico que se suma al memoriza- 
do en NS(IO), y el resultado proporciona el número de 
símbolos que deberán presentarse en el cesto lO al 
terminar la operación. Si este valor es igual o mayor 
que la base, se llama la parte de la subrutina que reali- 
za los acarreos (del punto 2 en adelante). De otra for- 
ma, el flujo procede como se muestra en la primera 
parte del diagrama. 

Esta última parte, o sea la que sigue a la decisión IF 
NS(IO) + ... para el caso NO, se desarrolla en el dia- 
grama de la subrutina 4000 para sencillez, mientras 
que en realidad es en sí misma una subrutina, pues 
también debe ser utilizada por la rama que realiza los 
acarreos. Esta parte del programa ha de insertar, en el 
cesto IO, un número de símbolos igual al valor conte- 
nido en A$, por lo que es necesario un bucle entre 1 y 
VAL(AS) que calcule la posición del símbolo en el inte- 
rior del cesto, y lo presente. 

Es decir, debe determinar la línea (Y) y la columna (C) 
en las que posicionar el símbolo. En el sistema de nu- 
meración elegido (decimal), los posibles símbolos (de 
1 a 9) están divididos en 3 grupos de 3 símbolos cada 
uno. Por tanto, con el número de símbolos, la línea 
varía con un paso 3 (KF = 3). Así, la línea puede deter- 
minarse comprobando si el número total de símbolos 
es inferior o igual aKF, a2 x* KF o a3 + KF. El coeficien- 
te de KF (1, 2, 3) indica la línea con respecto al valor 
(YO) elegido como referencia. La columna (C), corres- 
pondiente al cesto, se calcula de manera análoga. Su 
valor se convierte en coordenadas de pantalla (X) y, 
por tanto, el símbolo se presenta en la posición X,Y. 
Al final se suma 1 a la matriz NS(IO) para tener en 
cuenta el nuevo símbolo insertado. 

Obsérvese que el valor de la columna C de posiciona- 
do (relativo) del símbolo en el interior de cada cesto se 
calcula mediante el parámetro M, que representa el 
número máximo total de símbolos en función de la lí- 
nea. Por ejemplo, si el símbolo debe posicionarse en 
la línea 1, el máximo es 3 y, por tanto, la columna se 
Calcula con M-valor. Así, si el valor es 2, la columna es 
1, y con un valor 3, la columna (relativa) es O. Análoga- 
mente, para los otros grupos, el posicionado se obtie- 
ne como diferencia con M, que vale respectivamente 6 
y 9, y el valor. De esta manera, el símbolo número 6 se 
coloca en la columna (relativa) O del segundo grupo 
(6-6) y el 9 en la columna O de la tercera. 

Si el número de símbolos presentes en el cesto lO da 
lugar a un acarreo, a la entrada de la 4000, la instruc- 
ción IF... activa la rama 2 de la subrutina. La primera 
función a realizar es la anulación de los símbolos ya 
presentes en el cesto. 

En el caso anterior (sin acarreo), la operación consiste 
en añadir algunos símbolos a los ya presentes. En el 
actual, si bien la operación aritmética es la misma (su- 
ma), la correspondiente función gráfica es diferente 
debido a que la presencia de un acarreo genera segu- 
ramente un número de símbolos inferior al anterior (en 
el cesto donde se produce un acarreo). 
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Sigue el cálculo del número de símbolos a presentar. 
El total, desde el punto de vista aritmético, viene dado 
por la suma del contenido de NS(IO) (número de sím- 
bolos preexistentes) y el valor de Al$ (A$, que contiene 
el número introducido por teclado se ha transferido a 
AI$); para cada cesto, el número de símbolos a presen- 
tar es la diferencia entre este valor y la base elegida 
(en el diagrama, indicada con B, donde B = 10). Por 
ejemplo, suponiendo que los símbolos contenidos ini- 
cialmente fuesen 6 [NS(IO) = 6] y que se pida sumar 8 
(AS = AlI$ = “8”), se tendría un total de 6 + 8 = 14 
símbolos, de los cuales 4 deben presentarse en el 
cesto examinado y uno acarrearse al siguiente. 

Por tanto, las funciones a realizar son: presentación 
del número de símbolos calculado (N) y reactivación 
de toda la rutina para sumar 1 al cesto siguiente. 

La presentación de los «N» símbolos del cesto lO se 
obtiene volviendo a utilizar la rutina vista anteriormen- 
te, por lo que en A$ debe colocarse el valor N (trans- 
formado en ASCII), y el número NS(IO) debe hacerse 
igual a O. En la salida se obtendrá la presentación del 
número de símbolos N del cesto lO (4 símbolos con 
los valores numéricos anteriores). El segundo consiste 
en sumar 1 al cesto lO + 1 (acarreo). En el diagrama, 
la función se indica simplemente en un bloque des- 
criptivo, pero en realidad, su ejecución presenta algu- 
nas complicaciones. 

A su vez, el acarreo al cesto siguiente puede ocasio- 
nar otro acarreo, y así sucesivamente para todas las 
posiciones previstas. Por tanto, en cada incremento de 
posición, debe volver a utilizarse por completo toda la 
lógica de la subrutina 4000. Es decir, el último bloque 
del diagrama, después de la implantación de los pará- 
metros (10 = 10 + 1, puntero al siguiente cesto y A$ = 
“1”, acarreo), debe volver al punto de entrada de la 
rutina (antes de la comprobación del valor de la su- 
ma). Es decir, la salida de la rutina representada en la 
segunda parte del diagrama sólo es a nivel lógico, y la 
verdadera salida es la prevista en la primera parte, 
puesto que la actividad de la 4000 sólo puede terminar 
después de haber encontrado una posición en la que 
sea posible realizar una suma sin acarreo. 

Este proceso podría continuar de manera indefinida, 
permitiendo utilizar valores con un elevado número de 
cifras. En la realidad, deben limitarse los posibles aca- 
rreos al número de cifras representado por los cestos, 
O sea 4. 

Por tanto, el último bloque de la segunda parte de la 
subrutina es activado sólo si el cesto en el que deberá 
sumarse el acarreo, o sea el número 10 + 1, es igual o 
inferior a 4. O sea que, si se produce la condición 10 + 
1 < 4, se emite un aviso y el programa se interrumpe. 
Para evitar esta eventualidad pueden comprobarse los 
valores introducidos para que no sea posible un aca- 
rreo de la posición 4. 

Este control debe realizarse tanto durante la gestación 
del número aleatorio de partida como durante el diálo- 
go con el niño. 


Para obtener estas funciones es necesario memorizar 
el número de símbolos que hay en cada cesto, y para 
esto se ha reservado la matriz NS (+) de cuatro ele- 
mentos. La función puede activarse desde cualquier 
posición y, por tanto, debe preverse un índice (10) que 
la especifique. El último parámetro es el número de 
símbolos a insertar (A$). Por tanto, antes de la llama- 
da, el programa implanta los siguientes valores: 


10 = Posición, de 1 a 4, en la que realizar la suma. 

A$  =Número de símbolos a sumar. 

NS (+) = Número de símbolos ya presentes en cada 
cesto. 


Por ejemplo, suponiendo que se haya presentado el 
número 1486, se tendría: 


NS(1) = 6 
NS(2) = 8 
NS(3) = 4 
NS(4) = 1 


Si se desea sumar 8, la subrutina debe llamarse escri- 
biendo: 

A$ = «8» 

10 = 1, puesto que son unidades 


mientras que si se desease sumar el mismo valor (8) a 
las decenas, bastaría escribir lO = 2. 

La primera función a realizar al entrar en la rutina es la 
comprobación de la existencia de acarreo. El control 
se realiza sumando el número ya existente, contenido 
en N$(10), al valor a sumar, contenido en A$. Si el re- 
sultado supera el valor 9 (en esta versión se trata del 
sistema de numeración decimal) debe efectuarse la 
subrutina de acarreo (al punto 2 del diagrama). 

De otro modo debe completarse sencillamente el ces- 
to seleccionado con el número de símbolos igual al 
valor numérico contenido en A$. Esta parte, que se 
realiza con un bucle entre 1 y VAL(A$) en el diagrama, 
por sencillez se ha representado como si perteneciese 
a la 4000, pero en el listado se realiza en forma de 
subrutina para que pueda utilizarse desde otros pun- 
tos del programa. 

La función a realizar para la presentación del algunos 
símbolos es conceptualmente muy sencilla, pero se 
complica por necesidades estéticas y por la parame- 
trización. El programa también puede ser utilizado por 
sistemas de numeración diferentes al decimal. Por tan- 
to, variando la base, varían tanto el valor generador del 
acarreo como la disposición de los símbolos en cada 
uno de los cestos. 

Para el sistema decimal, el número máximo de símbo- 
los en un cesto es 9 (valor a partir del cual se produce 
el acarreo). En consecuencia, se ha decidido presen- 
tar el contenido en tres líneas de tres símbolos como 
máximo cada una. Así, si el número de símbolos a pre- 
sentar está comprendido entre 1 y 3, se utiliza la pri- 
mera línea, para valores entre 4 y 6, la primera y la 
segunda línea, y para valores entre 7 y 9, las tres lí- 


neas. Indicando con KF el número máximo de símbo- 
los en la primera línea (o sea 3), para decidir en qué 
línea deben posicionarse los símbolos a presentar, 
bastará comparar su número con KF y 2 x KF (o sea 3 
y 6). Determinada la banda correspondiente (1, 3, 6), 
debe identificarse su posición, y ya podría ocuparse 
parcialmente, por lo que los primeros símbolos deben 
insertarse a partir de la primera posición vacía. La co- 
lumna (C) de posicionado se calcula con la diferencia 
entre el número máximo (M) correspondiente a la línea 
y el que debe presentarse (NS(I0)). El valor así obteni- 
do es la columna de principio de presentación, referi- 
da a un lado del cesto. A partir de este valor, sumando 
la posición del cesto, se obtiene el direccionado abso- 
luto referido a las coordenadas (línea, columna) de la 
pantalla. Por tanto, sólo hay que presentar el símbolo 
en dicha posición e incrementar NS(I0) en 1. 

En cambio, en el caso de acarreo (punto 2 del diagra- 
ma), debe memorizarse A$ en una matriz adecuada 
(AS se utiliza de nuevo, y sin esta transferencia, se per- 
dería el dato), borrar los símbolos que hay en el cesto 
en curso del proceso, calcular los que debe haber en 
el siguiente y activar la rutina de completado. 

El borrado de los símbolos presentes en el cesto en 
curso de proceso es necesario porque, en el caso de 
acarreo, el número de símbolos a presentar después 
de la suma es inferior al que existía antes; por ejemplo, 
con un valor anterior de 6, sumando 8 se tendrá 14, o 
sea 1 de acarreo y 4 en presentación. El problema 
también puede resolverse borrando los sobrantes y 
escribiendo el nuevo valor. 


Geometría 

En la página 2180 se han representado la estructura 
de los ficheros y la lógica utilizada. Los datos están 
memorizados en 5 ficheros: 


DIB Contiene los datos necesarios para la pre- 
sentación del dibujo, o sea los valores del 
sprite o de la tabla de los desplazamientos. 
Por su naturaleza es el más largo y, por tan- 
to, un registro lógico está subdividido en va- 
rios registros físicos, cuyo número depende 
de la versión. 

Contiene el nombre de cada figura. 

Los registros de este fichero, de número 
igual al de figuras presentes, están dividi- 
dos en 4 campos, uno por parámetro pre- 
visto. Por ejemplo, en el caso del triángulo, 
el registro correspondiente contiene: BASE, 
ALTURA, LADO 1 y LADO 2. 

PRE Contiene el texto de la pregunta, o sea el 
nombre de la magnitud a calcular. También 
en el ejemplo del triángulo, los dos campos 
del registro contienen: AREA y PERIMETRO. 
En este fichero hay memorizadas las fórmu- 
las para el cálculo relativo a las dos cantida- 
des anteriores. Para el triángulo, los dos 


NOMB 
PARA 


CALC 
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ESTRUCTURA DATOS Y LOGICA DE EJECUCION 


1 registro lógico 


En la pantalla se presenta 


el sprite 


A 
El puntero de principio 
datos sprite identifica el 


registro que contiene el nombre 


TRIANGULO 


Base = X 
Altura = Y 
Lado 1 =Z 
Lado 2 = K 


¿Area? =... 
¿Perímetro? = .. 


El nombre se presenta junto 


al sprite 


El mismo puntero 
sirve para los 
parámetros 


El programa presenta los O) 


parámetros con un valor 
aleatorio al lado 


CO 


Se extraen las dos preguntas 





Después de la 
introducción, 
el programa 
comprueba 
el resultado 
comparándolo 
con el fin de la 
fórmula del 
fichero CALC 


El texto de las preguntas se 
presenta en pantalla 


El programa extrae las (5) 
dos fórmulas 


campos del registro contienen: 0.5* 1 *2, O 
sea 1/2 X BASE X ALTURA, y 1*1+3+4, 
O sea 1 * (BASE + LADO 1 + LADO 2). Re- 
cuérdese que siempre es necesario el fac- 
tor de multiplicación. 


En la tabla de la página siguiente se han presentado 
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El] y y 


Respuesta Error 
correcta 





las características principales de cada fichero. Arriba 
se ha representado el programa desde el punto de 
vista lógico, y con más detalle en el gráfico situado de- 
bajo, en la misma página. La primera función consiste 
en presentar la figura, por lo que se lee el fichero DIB, 
que contiene los datos gráficos, y en pantalla aparece 
el sprite o, en general, el dibujo de la figura geométrica. 


FICHEROS UTILIZADOS EN EL PROGRAMA GEOMETRIA 


(*) La longitud indicada corresponde al número de bytes lógicos. La longitud del registro físico puede ser diferente. Por 
ejemplo, en la versión C-64 siempre se utiliza un formato de registro de 63 bytes como máximo, por lo que el registro lógico del 
sprite es igual a 3 registros físicos. Esto significa que el primer fichero debe leerse con paso 3. 


EJEMPLO DE UTILIZACION DE DATOS 
1 reg. lógico 
_t-PEF—_ nn 
El fichero DIB contiene el sprite 
del triángulo. Los formatos y 
valores dependen de cada 
máquina 


En el fichero NOMB se escribe 
el vocablo «TRIANGULO», que 
se presentará como 
complemento de la figura 


El fichero PARA 

contiene los nombres de las 
magnitudes que deberán utilizarse 
para las respuestas. En este caso: 
base, altura y los 2 lados 


En el fichero de las preguntas (PREG) 
se memorizan las palabras 

a presentar como pregunta. 

En este caso se piden el área 

y el perímetro 


El fichero CALC es más complejo. Cada registro está dividido en dos partes, una para 
cada pregunta, y contiene un primer campo de 6 bytes para cualquier valor numérico y 
un segundo campo de 7 bytes con los punteros de los parámetros y los símbolos de 
las operaciones a realizar para obtener el resultado pedido en la pregunta. 

Por ejemplo, la primera parte, correspondiente al área, contiene: 


102,9 4 5. 611 .2 3 4 5-6 7 


bob. 5117 * 206 6 6 

porque el área es (base x altura)/2, o sea 0.5 x (base « altura). El primer campo contie- 
ne el factor multiplicador 0.5, mientras que el segundo (1 *) indica que debe multipli- 
carse el primer parámetro (base) por el segundo (altura, ver fichero PARA). 
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La lógica descrita sólo corresponde a la utilización de 
los datos; la preparación de los archivos, operación 
que debe realizarse antes de cualquier utilización, es 
completamente independiente y se realiza con un pro- 
cedimiento muy diferente al acostumbrado debido al 
número de ficheros que hay que gestionar. 

En la ilustración del uso del programa se ha empezado 
con el flujo del fichero DIB, puesto que es el primero 
que debe utilizarse desde el punto de vista lógico. En 
realidad, la estructura no puede utilizar este fichero co- 
mo elemento principal, porque existe una diferencia 
entre la longitud del registro lógico y la del registro físi- 
co. Para sencillez, conviene utilizar como referencia el 
fichero NOMB, porque sobre su contenido también se 
realizan las búsquedas para seleccionar las figuras en 
base al nombre. Por tanto, este fichero debe prever el 
directorio. 

En la página siguiente se ha representado el diagrama 
de principio del programa de introducción o correc- 
ción de datos. Como se ha indicado, el fichero «pilo- 
to», o sea el utilizado como puntero para los otros, es 
NOMB y, por tanto, se lee el registro 1, y su contenido 
(número del último registro escrito) se transfiere a MX. 
Sigue la selección de la función (introducción o actua- 
lización). La única diferencia consiste en el valor atri- 
buido a RE (número de registros en los que se memo- 
rizarán los datos). En el primer caso (introducción), de- 
be seleccionarse la primera posición no ocupada, o 
sea RE = MX + 1. En el segundo caso, el programa 
debe preguntar qué registro se quiere variar y esperar 
la respuesta, que se transferirá a RE. El flujo del pro- 
grama de actualización prosigue con la lectura de los 
datos existentes, pero en el caso de la introducción, 
este bloque se salta y el programa pasa directamente 
a la gestión de la máscara, que se realiza de la manera 
usual. En cambio, la actualización de los datos en el 
disco es muy diferente a la de los otros programas. 
Generalmente, una máscara vídeo contiene valores 
que pertenecen todos al mismo fichero, por lo que su 
memorización se resuelve con la formación de una so- 
la cadena, suma de todos los buffers, y en su escritura 
en disco. En este caso, la misma máscara contiene 
valores que deben memorizarse en ficheros diferen- 
tes. La situación con respecto al gráfico de la página 
anterior es la siguiente: 


m Número de la figura: es el número de registros en 
los que se escribirán los datos. No debe transferirse 
al fichero. En introducción contiene el valor MX + 1, 
y en actualización el introducido por el usuario. 

m Nombres: este campo, cuyo valor está en B$(2), 
debe transferirse al fichero NOMB del registro que 
coincide con el número de la figura. 

m Parámetros: los cuatro parámetros contenidos en 
B$(3), B$(4), B$(5), B$(6) deben ser transferidos al 
fichero PARA, siempre en el mismo registro. 

m Preguntas: dos campos, 1 por línea, contenidos en 
los buffers B$(7) y B$(10), transferidos al fichero 
PREG. 
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m Cálculo: las dos líneas de cálculo contenidas en 
B$(8), B$(9), B$(11), B$(12) deben escribirse en el 
fichero CALC. 


Por tanto, la subrutina de escritura de los datos debe 
respetar la siguiente tabla: 


Fichero Registro 

NOMB B5(2) 

PARA B$(3) + B$(4) + BS$(5) + B$(6) 
PREG B$(7) + B$(10) 

CALC B$(8) + B$(9) + B$(11) + B$(12) 


Análogamente, en presentación debe leerse el mismo 
número de registros de los cuatro ficheros, desempa- 
quetando después los datos de modo análogo. 

El diagrama de presentación de preguntas y compro- 
bación de respuestas, como ya se ha indicado, es un 
programa en sí mismo, y se ha representado en las 
páginas 2184 y 2185. 

La primera función es la pedida por el número de re- 
gistro de la figura geométrica sobre la cual se desea 
hacer las preguntas. La descripción que aparece en la 
pantalla puede ser «Número de lección», porque cada 
figura reside en un registro diferente, y si se hubiese 
tenido la precaución de memorizar los datos por difi- 
cultad creciente, los registros leídos en sucesión pue- 
den identificarse con el número de lección. 

Sin embargo, tal y como se ha presentado el progra- 
ma, no hay previsto ningún control sobre las lecciones 
superadas, por lo que el usuario es el que debe elegir 
el número preciso. 

Esta implantación puede activarse en este procedi- 
miento uniendo parte de los programas utilizados para 
la ortografía, y precisamente toda la lógica de gestión 
del fichero Usuarios. De esta manera, introduciendo el 
nombre del niño que va a ejecutar el programa, se 
tiene el posicionado automático en la primera lección 
aún no superada, o sea la presentación de preguntas 
sobre la figura geométrica que sigue a la última anali- 
zada. 

El número de registro, o sea de figura, puede ser me- 
nor que O, p. e. — 1: en este caso, el programa pide el 
nombre de la figura, y si el nombre es FIN, el programa 
termina. Si no es así, se busca en el fichero NOMB y, si 
está, el número de registro en que se ha encontrado 
se utiliza como valor para definir todos los otros datos, 
o sea es tomado como número de lección. 

Si bien esta estructura es algo farragosa, es necesaria 
por dos motivos: el programa puede utilizarse como 
formulario y, por tanto, necesita una entrada por nom- 
bre de figura y, además, los datos podrían no estar en 
el orden adecuado para constituir un conjunto de difi- 
cultad creciente. En este caso, la numeración de los 
registros no coincidiría con la progresividad de las lec- 
ciones, y sería necesario un método diferente de ac- 
ceso. Si el nombre introducido no existe, la subrutina 
de búsqueda responde con un código de error, se 





DIAGRAMA DE LA INTRODUCCION O LA CORRECCION DE DATOS 


OS E Del registro 1 del fichero 

2 NOMB se extrae el número 
del último registro 
ocupado y se transfiere 

a la variable MX 




























El programa pide si se trata 
de una introducción o de una 
corrección de los datos 
existentes (con un menú 
secundario) 


Si la opción pedida es 1, 
se entra en introducción, 
por lo que la máquina 
calcula el número de 
registro (anterior + 1). 

Si no, se pide al usuario 
en la actualización 


De los 4 ficheros que contienen 
los datos se extrae el registro 
RE para preparar la máscara 


Esta función, como la carga 
de los DATA, es análoga 

a la de los otros programas 
(según la secuencia 

7000, 2000, 3000) 






Transfiere 
al disco 









El bloque de transferencia 
selecciona el nombre del 
fichero en base al buffer 















El sprite, o en general 

la figura, se crea cada 

vez. Por tanto, en 

actualización también 

debe redibujarse toda la figura. 
En fase de memorización, 

al fichero DIB deberán 
transferirse tantos 

registros físicos como 

haya en uno lógico 


Crea el sprite 
y lo transfiere 
al disco 
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USO DEL PROGRAMA DE GEOMETRIA: 
DIAGRAMA DE PRINCIPIO 


O y 


El programa pregunta qué 
figura se desea. El usuario 
puede indicarla con el número 
progresivo 


Si se introduce un número 


menor que O, el programa 
si pide el nombre de la figura. 

El acceso al nombre (fichero 
NOMB) es el segundo modo 
de hallar una figura dada 

y NO Esta subrutina carga el 
registro N (si N > 0) o busca 
el nombre introducido. En este 
caso, N contiene el número de 
registro en el que se ha 

y si 


hallado el nombre. 
SIN = 0 se tiene un error 


FED y E ns e 
se ha hallado 


El sistema, partiendo del 
puntero (N) del nombre, 

calcula el principio de sprite: 
P=1+Kkx(N- 1) con 

K = número de registros físicos 
ocupados por el sprite 


Carga los 
datos del 
sprite (*) 


Lectura de los nombres de los 
parámetros asociados a la figura. 
Los parámetros se presentan 
junto al sprite 


Las preguntas son 2 (escritas 
en el registro único HN) 


(*) Para la versión DOS, el sprite se sustituye por una tabla de las figuras 
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emite un diagnóstico y el programa vuelve a presentar 
la pregunta. Obsérvese que como código de error se 
utiliza la misma variable empleada en introducción pa- 
ra el número de registros. 

Esto es posible porque, o el usuario selecciona la lec- 
ción con el número de registro, y por tanto la variable 
asociada tiene un valor mayor que cero, o utiliza la 
segunda modalidad, o sea el número de registro es 
menor que O y se introduce el nombre de la figura. 
En la subrutina de búsqueda, si este nombre se en- 
cuentra, la variable asociada contiene el número de 
registro y, si no es así, permanece con valor cero. A la 
salida de la rutina, esta condición indica el error de 
nombre no hallado. 

El número de registro en el que se ha encontrado el 
nombre es el puntero del conjunto de datos corres- 
pondientes a la figura. Sin embargo, esto sólo es váli- 
do para los ficheros que contienen descripciones y fór- 
mulas, mientras que para el sprite o la tabla de la figu- 
ra no se tiene «paralelismo», porque un registro lógico 
está compuesto por varios registros físicos. Por ejem- 
plo, suponiendo que el dibujo pueda ser memorizado 
en 320 bytes y que la longitud del registro físico sea de 
80 bytes, se necesitan 4 registros (320/80 = 4) para 
contener toda la figura. Por tanto, mientras que para 
todos los demás registros la figura está en el registro 2, 
ésta empieza en el registro 5. 

Indicando con N el puntero a la figura geométrica en- 
tendida como conjunto de datos (por tanto N es el nú- 
mero de registro en el que se ha encontrado el nom- 
bre) y con K el número de registros físicos que contie- 


Al lado de los parámetros se 
escriben valores numéricos aleatorios, 
que el usuario deberá utilizar 

para formular la respuesta 


nen los datos correspondientes al dibujo, el puntero de 
inicio será: 


P=1+Kx(N- 1) 


Efectivamente, si cada figura ocupa K registros, la de 
la posición 1 queda desplazada, con respecto al inicio 
del fichero, en la cantidad K »* (N — 1). 

Por ejemplo, con los valores anteriores (4 registros pa- 
ra una figura, K = 4), la figura número 2 (N = 2) em- 
pieza en el registro 


P=1+4x*(2-1)=5 


Después del cálculo de este valor, la rutina lee todos 
los registros inherentes a la figura, o sea de Pa P + 
K-—1.Conlos valores así cargados, la subrutina puede 
presentar el sprite o, en la versión DOS, la figura en 
alta resolución. Esta parte del programa no puede ser 
generalizada, puesto que depende del tipo de máqui- 
na utilizado y, por tanto, debe consultarse el corres- 
pondiente listado. La función que sigue es la lectura 
de los parámetros del fichero PARA. El número de re- 
gistro coincide con el número de figura, por lo que es- 
tá contenido en la variable N. Cada parámetro se es- 
cribe al lado de la figura y del nombre. Por ejemplo, en 
el caso del triángulo, aparecerán las leyendas: 


Base 

Altura 
Lado 1 
Lado 2 
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Las cantidades que aparecen en un segundo tiempo 
al lado de cada parámetro deberán utilizarse para cal- 
cular los valores pedidos por el programa. 

Después de esta presentación se lee, siempre en el 
registro N, el fichero PREG, por lo que en pantalla apa- 
recen las dos preguntas. En este momento, el usuario 
conoce las magnitudes a calcular y los parámetros 
que deberá utilizar, y sólo quedará por completar la 
máscara asignando a cada parámetro un valor aleato- 
rio. El usuario deberá realizar el cálculo de las dos 
magnitudes e introducir los resultados. El sistema, utili- 
zando las fórmulas escritas en el fichero CALC (siem- 
pre en el registro N), calcula los valores correctos y los 
compara con los introducidos por el usuario. 

Esta lógica explica la complejidad de la estructura. 
Una solución mucho más sencilla, en términos de pro- 
gramación, consiste en utilizar valores predefinidos y 
fijos, con la ventaja de que, después de un primer uso, 
la respuesta puede proporcionarse memorizando sim- 
plemente un valor numérico y no el método de cálculo. 
Por contra, la estructura utilizada tiene el defecto de no 
tener en cuenta eventuales valores numéricos incon- 
gruentes con la figura geométrica. Este inconveniente 
podría superarse cambiando la lógica del programa. 
En la forma indicada, la comprobación de la correc- 
ción de las respuestas se obtiene comparando los dos 
valores numéricos: el primero suministrado por el 
usuario y, el segundo, por la máquina calculándolo de 
acuerdo con las indicaciones hechas en la fase de ge- 
neración de la pregunta. Estas indicaciones (fichero 
CALC) están constituidas por una cadena que contie- 
ne los punteros de los parámetros a utilizar y las opera- 
ciones aritméticas a realizar. 

Por ejemplo, en el triángulo, la fórmula para calcular el 
área es: 0.5* 1 ** 2, donde 1 indica el primer parámetro 
(Base) y 2 el segundo (Altura). El procedimiento podría 
pedir fácilmente los nombres de los parámetros utiliza- 
dos y, por tanto, construir la cadena: 


0.5 * BASE + ALTURA 


que expresaría el cálculo a realizar. En este momento, 
el usuario podría introducir la respuesta como fórmula, 
eliminando así las posibles incongruencias. 

En realidad, este método no es tan sencillo, porque 
aparece la necesidad de analizar todas las posibles 
combinaciones. Por ejemplo, si el usuario introduce la 
fórmula 0.5 * ALTURA * BASE, la fórmula también es 
correcta, pero no será aceptada por el sistema, salvo 
notables complicaciones de la subrutina de análisis de 
respuestas. Y viceversa, utilizando valores numéricos, 
la máquina o el usuario realizan el cálculo de la mane- 
ra que se considere más oportuna. 

El diagrama de la subrutina de gestión de la lectura de 
datos está en la página siguiente. El parámetro a pro- 
porcionar en la entrada es N, con los significados: 
N > 0 para la búsqueda en base al número progresivo 
de la figura y N < O para la búsqueda en base al nom- 
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bre. Este mismo parámetro es proporcionado como 
respuesta por la rutina, y si asume el valor O, el nombre 
no ha sido hallado. Por tanto, la primera función a reali- 
zar es un test sobre el valor de N. En el caso de que 
sea mayor que cero, se lee el registro correspondiente 
y se extrae el nombre de la figura, previa comproba- 
ción de que N no supere el número máximo de figuras 
existentes, en cuyo caso, N se hace igual a cero y la 
subrutina termina en error. 

Si se debe realizar la búsqueda en base al nombre 
(N < 0), se activa un bucle de lectura de todos los re- 
gistros del fichero y de comparación entre sus conteni- 
dos y el nombre introducido por el usuario. Si la com- 
paración es positiva, la variable N contiene el número 
de registro en el que se ha hallado el nombre. De otro 
modo, N se deja en valor cero (flag de error). 
Obsérvese que la subrutina realiza una sencilla com- 
paración entre dos cadenas (la introducida por el 
usuario y la leída en el fichero), por lo que los nombres 
siempre deben escribirse de la misma manera. Una 
implantación que puede reducir los errores consiste 
en transformar todas las letras siempre en mayúsculas 
o siempre en minúsculas para evitar errores debidos a 
diferencias de escritura. En la página 2188 se ha re- 
presentado el diagrama de la subrutina de generación 
y escritura de valores para los parámetros previstos en 
el fichero PARA. 

En general, una figura geométrica puede no necesitar 
los 4 parámetros, por lo que es necesario un bucle de 
1 a 4 con exclusión de los valores correspondientes a 
parámetros no previstos, o sea en blanco. El valor nu- 
mérico a asociar a cada parámetro se genera aleato- 
riamente, descartando los inferiores a 2. En el diagra- 
ma y en el listado sólo se utiliza la parte entera para 
simplificar el desarrollo del cálculo por parte del usua- 
rio, aunque nada impide incluir algunas cifras decima- 
les para utilizar también el programa como ejercicio de 
aritmética. En este caso es preciso truncar el número 
de cifras necesario, tanto en la respuesta del usuario 
como en el valor calculado por la máquina. 

Como ya se ha dicho, la rutina consiste en un bucle de 
1 a 4, en cuyo interior se genera un número aleatorio 
que se presenta al lado del parámetro correspondien- 
te al índice del bucle, a menos que se trate de un pará- 
metro nulo. Además de este bucle principal, hay pre- 
visto otro secundario, cuya finalidad es evitar eventua- 
les repeticiones de valores. Por tanto, después de la 
generación del valor a asociar al parámetro, se ejecuta 
un bucle entre los valores ya existentes y el nuevo sólo 
se acepta si no se produce ninguna igualdad. 

El diagrama de la rutina de análisis de las respuestas 
se ha representado en las páginas 2189 a 2191. Debe 
emplearse después de la rutina de introducción de la 
respuesta y, por tanto, en la llamada, la matriz de ca- 
dena R$(2) contiene los dos valores numéricos (uno 
para cada una de las dos preguntas) introducidos por 
el usuario. Además, la subrutina utiliza la matriz real 
Z(6), cuyo significado se explica más adelante. 


LECTURA DEL FICHERO NOMB 


En entrada: N > O Lectura del registro N 
N < 0 Busca el nombre 


En salida: N + O El nombre existe en el registro N 
N = 0 Error 





Todo el flujo de esta parte del programa se encuentra 
subordinado al valor del índice N que identifica una fi- 
gura por lo que una vez implantada esta variable (ver 
introducción o búsqueda del nombre), ya no es preci- 
so variarla. 

En esta rutina, el valor de N también identifica el regis- 
tro a utilizar. En el fichero CALC se lee el valor de este 
registro y la fórmula que contiene. Los primeros 6 by- 
tes que constituyen el valor numérico multiplicador se 
transfieren a Z(5), mientras que la segunda parte, la 
fórmula propiamente dicha, se transfiere a A$. Esta 
transferencia se hace dos veces: la primera utiliza los 


MX contiene el último registro 
escrito en el fichero NOMB 


Búsqueda en base al nombre 


Salida en error. El nombre 
no está o está escrito de 
diferente modo 


bytes de 7 a 13 y genera el cálculo para la primera 
respuesta, y la segunda los bytes 20 a 26 para el otro 
cálculo (recuérdese que las preguntas, y por tanto los 
cálculos a realizar, son 2). 

Para el desarrollo del cálculo, contenido en símbolos 
en la cadena Af, la rutina debe ejecutar un bucle ana- 
lizando, carácter por carácter, el contenido de AS. Si el 
carácter es un número (comprendido entre 1 y 4, por- 
que los parámetros son 4), se extrae el valor asociado 
al parámetro correspondiente. Si el parámetro es un 
espacio, se ignora, y si es el símbolo de la operación, 
ésta se efectúa. A medida que se extraen los punteros 
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ESCRITURA DE LOS VALORES 


(*) La subrutina utiliza la matriz P(4) 
en la que se memorizan los 
valores aleatorios a asignar 

a los parámetros 


(**) Para asignar un valor a uno 

de los 4 parámetros (primeros 4 buffers 
de la máscara) es necesario que 

se haya previsto, es decir, que 

sea diferente de "b” 


Se genera un número aleatorio 
entero y comprendido entre 

2 y 9 para evitar errores 

de interpretación 


0 


NO, AA<AAAA« Comprueba 


que el número 

no se haya 

utilizado 

(F = 0> número 
aceptable. Si 

F = 1 > número ya 
generado, y por tanto 
no aceptable, 

vuelve a la 
generación) 





ANALISIS DE LAS RESPUESTAS: PRIMERA PARTE 


En la entrada, R$(2) contiene las 
dos respuestas. 

N es el registro de PREG que 
contiene las preguntas 
presentadas 


La subrutina utiliza la matriz 
Z(6) real (mejor si es en 
doble precisión) 


Del fichero CALC se lee el 
registro N, que contiene las 
indicaciones para realizar 
el cálculo 


Primeros 6 bytes. El valor 
numérico correspondiente se 
one en Z(5 
Estas funciones pueden a (5) 
parametrizarse para extraer 
también la segunda parte 
correspondiente a la : 
En AS se transfieren los bytes 
segunda pregunta de 7 a 13 (primera fórmula) o de 
20a26 


Principio bucle de cálculo 


O 


SI 
“E Salta si el byte es b 
NO 


entre 1 y 4, porque los valores Hallado un símbolo 
deben estar comprendidos 

¡ de cálculo 
en este intervalo 


El control sólo debe realizarse 


K se pone a cero al principio del 
bucle (K1 se pone igual a 1). 

El valor NP(K + 1) identifica el 
parámetro en el fichero PARA y el 
valor en la matriz P(4) 


Toma el 
valor correspondiente 


O 


A la realización del cálculo 
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La matriz CM$(4) 
contiene en este orden 
los símbolos ".*", “:”, 
“4”, "y se 

inicializa con 

una DATA 





a los campos y los símbolos de la operación, los co- 
rrespondientes valores son memorizados por los pará- 
metros que hay en Z(+«) y por los operadores en OP(«). 
En detalle, la lógica es la siguiente: 


1 / La subrutina extrae un carácter de la cadena A$. 

2/Si este carácter es un número, se memoriza en la 
matriz NP(x*) de los punteros porque identifica uno 
de los 4 parámetros. El valor numérico correspon- 
diente al parámetro se transfiere a Z(«) en las pri- 
meras 4 posiciones. 

3 / Si el carácter es un símbolo (+, —, »*, /), a OP(x) se 
transfiere el indicador correspondiente: 1 si el sím- 
bolo es «xx» (multiplicación), 2 con «/», 3 con «+» y 
4 con «—». 


Al final del bucle, punto 4 del diagrama, la situación es 
la siguiente: 


" La variable Z(5) contiene el valor multiplicador. 

m En la matriz de Z(1) a Z(4) se memorizan los valores 
numéricos de cada uno de los 4 parámetros. 

"= La matriz P(4) contiene los punteros a los paráme- 
tros utilizados (no se ha dicho que en la fórmula en- 
tren todos). 

"= La matriz OP(3) contiene los operadores a utilizar 
para el cálculo. 


En la segunda parte del diagrama, a partir del punto 4, 


se muestra el desarrollo. 
Inicialmente, a Z(6) se transfiere el valor contenido en 
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Extrae la 
modalidad de 
cálculo y la 
memoriza 


Z(1), o sea el valor del primer parámetro. A conti- 
nuación se analiza el operador OP(1) (con bucle de 
1 a 4) y, en base a su contenido, se realiza el cálculo 
Z(6) = Z(6) x Z(2). 

Al final del bucle sobre los operadores (de 1 a 4), el 
resultado del cálculo realizado sobre los valores de los 
parámetros se encuentra en Z(6), y sólo hay que multi- 
plicarlo por Z(5), que contiene el valor numérico. Sigue 
la comparación con el dato introducido por el usuario 
en la variable R$(1). Si coinciden, la respuesta es co- 
rrecta y puede pasarse a analizar la segunda respues- 
ta. En caso contrario, se tiene indicación de error y la 
rutina termina. 

Obsérvese que la comparación entre el valor calcula- 
do (Z(6)) y el introducido por el usuario debe realizarse 
con un número de cifras definido, por lo que conviene 
transformarlo todo en entero, ya que podría tenerse 
indicación de error a causa de las cifras decimales 
que el usuario haya podido aproximar. 

A continuación se presentan solamente los diagramas 
de las funciones más significativas; las partes para 
funciones o lógica del programa, análogas a las desa- 
rrolladas para otros temas, se han omitido y pueden 
verse fácilmente en los listados. Por ejemplo, el pro- 
grama prevé un menú principal con las dos voces Ge- 
neración y Uso. 

A su vez, la primera voz tiene las opciones: 


1 / Generación propiamente dicha. 
2 / Introducción y variación de los datos. 
3 / Fin de tarea. 


ANALISIS DE LAS RESPUESTAS: SEGUNDA PARTE 


Los datos utilizados en 

esta parte de la subrutina 

son: 

R$(2) = Respuestas dadas 
NP(4) = Punteros a los campos 
Z(6) = Valores 

OP(3) = Operadores 


En Z(6) el resultado 

de la fórmula calculada con los 
valores presentados en la máscara 
se compara con la primera 
respuesta (*) 


Realiza las mismas 
funciones sobre los 
datos de la segunda 
respuesta 


0 


(a) Vuelve a la introducción de respuestas (ver diagrama 
de principio) 


(*) En los listados, el control (Z(6) = valor introducido por el usuario) se realiza sólo en la parte entera para evitar errores debidos a las aproxima- 
ciones de cálculo 
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PRESENTA FORMULA 


La subrutina utiliza 

B25$(4) para transferir 

la parte escrita de los buffers 
(1 — 4) y tener así una 
representación más 
compacta de la fórmula: 

A$ = cadena de la fórmula 
leída en el disco 

Z(5) = factor multiplicador 


RE = respuesta examinada 
BS(RE + 4) = buffer que contiene 
el texto de la pregunta 
correspondiente 


F$ = contiene STR$(Z(5)) + F1$, 
o sea la parte numérica (factor 
multiplicador) y la parte cadena 
de la fórmula final 


(*) Los cuatro operadores "+", 
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PRESENTA FORMULA (EXTRACCION DE LOS BUFFERS) 


B25(+*) = a esta cadena se 
transfiere la parte 
izquierda menos 1 carácter 
del buffer 4B 


S$ = MID$ (B2$(B),K9,1) 


Si S$ es un carácter, lo suma 
a BB$ 
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Los correspondientes diagramas, análogos a los de 
los otros programas, se han omitido. Además, muchas 
subrutinas secundarias no tienen la indicación de la 
línea de principio, lo que depende de la notable dife- 
rencia entre las distintas versiones y, por tanto, los dia- 
gramas sólo tienen validez general en línea de princi- 
pio y como orientación de la lógica seguida. 


Introducción o corrección de datos. El diagrama de 
la página 341 muestra las funciones a desarrollar para 
la introducción de nuevos datos o la corrección de los 
existentes. Naturalmente, esta función sólo puede acti- 
varse después de la generación del sistema, que, co- 
mo siempre, consiste en la preparación e inicialización 
de los ficheros. 
La primera función realizada en esta rutina (14000) es 
la lectura del registro 1 del fichero NOMB. Este registro 
mantiene el número progresivo de la última figura intro- 
ducida y se utiliza como puntero para todos los demás 
ficheros. Sigue (con menú secundario) la petición de 
corrección de los datos relativos a una figura ya intro- 
ducida. En el primer caso, el número de registro en el 
que empieza la memorización lo calcula la máquina, y 
en el segundo se pide al usuario. Este método de di- 
reccionado es idóneo para la máquina, puesto que se 
basa en proporcionar directamente la «dirección» del 
dato en el disco, pero puede resultar incómodo para el 
usuario, que está obligado a recordar en qué sucesión 
ha introducido las diferentes figuras. Para obviar este 
inconveniente también se ha previsto la búsqueda so- 
bre el nombre de la figura, por lo que si el usuario re- 
cuerda la dirección de los datos que desea corregir, 
puede introducirla directamente. Si no es así, respon- 
de con un —1 y el programa pasa a la lógica de bús- 
queda. Este método se ha adoptado en el programa 
de utilización de los datos. Ver páginas 2184 y 2185. 
En este caso se pide el nombre de la figura a modificar 
y se realiza una búsqueda en el contenido del fichero 
NOMB. El número de registro con el que se obtiene 
coincidencia es el puntero. 
Una vez identificado el registro, el programa pasa a la 
lectura de todos los datos correspondientes, o sea de 
los ficheros PREG, PARA, CALC, además del NOMB. 
De esta manera se cargan todos los datos que com- 
ponen una máscara. Siguen su presentación y gestión 
con una data entry normal. 
En cambio, la transferencia al disco es muy diferente. 
Generalmente, a cada máscara le corresponde un fi- 
chero, por lo que el registro se obtiene sumando los 
diferentes elementos de B$(x). En este caso, los fiche- 
ros a gestionar son 4, y para cada uno sólo deben 
considerarse algunos elementos de la matriz. Por tan- 
to, el listado es el más complejo del diagrama porque 
debe prever la gestión simultánea de 4 ficheros, cada 
uno con un formato de registro diferente. Una vez intro- 
ducida esta parte descriptiva, se activa la subrutina de 
creación y de memorización del dibujo (sprite para el 
C-64 y la versión VSX, alta resolución para la versión 
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DOS). Esta subrutina no se describe porque es idénti- 
ca a las utilizadas en los otros programas. Sólo debe 
tenerse en cuenta que no se han previsto modificacio- 
nes en el dibujo, por lo que para aportar una modifica- 
ción debe volverse a dibujar por entero. Los datos así 
admitidos, que constituyen los elementos para la pre- 
sentación de la figura, se memorizan en el fichero DIB. 
Al final, el programa pide si se desea proseguir con 
una nueva figura o volver al menú. 


Diagrama de flujo de principio. El diagrama de las 
páginas 2184 y 2185 muestra la lógica del programa 
que, utilizando los datos del archivo constituido en la 
generación, plantea las preguntas y comprueba las 
respuestas. La primera parte se dedica a la selección 
de la figura sobre la que se desea responder. La lógi- 
ca se ilustra en la subrutina anterior. El programa pide 
el número de la figura (N). Si el usuario responde con 
un valor inferior a O (-1, etc.), se pide el nombre de la 
figura y se activa la subrutina de búsqueda. 

En realidad, el flujo prevé una rutina única para ambos 
casos, por lo que en el interior de ella deben distinguir- 
se dos casos: N > 0, la figura es identificada por su 
número de registro y no se produce ninguna búsque- 
da; N < O, la figura debe buscarse en base al nombre 
introducido por el usuario. 

El mismo flag N se utiliza como respuesta. Si la rutina 
encuentra el nombre, pone en N el número de registro 
y, si no, N se hace igual a O. Esta condición se com- 
prueba en la salida para detectar condiciones de 
error. Si la figura es identificada introduciendo su nú- 
mero de registro o su nombre válido, se pasa al cálcu- 
lo del puntero (P), que permite la lectura del dibujo. 
En la estructura de los ficheros, los nombres se memo- 
rizan en el fichero NOMB, uno por registro, mientras 
que el dibujo puede ocupar varios de ellos. De hecho, 
en el fichero DIB, un registro lógico ocupa varios regis- 
tros físicos. En esta parte del programa se calcula el 
puntero P al primer registro del dibujo. Para cargar to- 
do el sprite (o la figura en alta resolución), sigue un 
bucle de lectura del registro P a P + K-1, donde K es 
el número de registros físicos que constituyen un re- 
gistro lógico del fichero DIB. 

Con la misma lógica se cargan los parámetros (del fi- 
chero PARA) y las dos preguntas (fichero PREG). 
Sigue la presentación de la máscara vídeo con los va- 
lores aleatorios atribuidos a cada parámetro (valores 
que deberá utilizar el niño para dar las respuestas), la 
lectura de las dos respuestas y su análisis. Si el cálcu- 
lo realizado por la máquina no proporciona valores 
coincidentes con los introducidos por el niño, se tiene 
la presentación de un mensaje de error y una nueva 
petición de introducción para rectificar la anterior. 


Lectura del fichero NOMB. El diagrama de la página 
2187 muestra la lógica de la subrutina de búsqueda y 
de lectura del fichero NOMB. En la llamada debe im- 
plantarse: 


N < 0 si se desea la búsqueda en base al nombre; 
N > 0 para la lectura directa del registro N. 


En el segundo caso, después del control N < MX para 
asegurar que no se haya pedido un número de regis- 
tro superior al último escrito, se tiene la lectura del re- 
gistro indicado por el valor N y la salida de la rutina. 

En cambio, en el primero, se necesita un bucle que lea 
cada registro del fichero, extraiga el campo «nombre 
de la figura», y lo compare con el pedido. Si el registro 
se encuentra, se pone N = RE (como flag de respues- 
ta), y si no, N = O. Obsérvese que el bucle de lectura 
empieza desde el registro 2, porque el primero se re- 
serva para el directorio del fichero y no contiene datos. 
El método de búsqueda es secuencial, o sea consiste 
en un bucle de lectura a partir del primer registro útil, 
hasta el último, con comprobación de cada registro de 
la correspondencia o no del campo clave (nombre de 
la figura). 

Esta solución es muy sencilla desde el punto de vista 
de la programación, pero es poco funcional porque 
puede requerir tiempos importantes para efectuar la 
búsqueda. En cambio, una «búsqueda binaria» es 
más funcional, porque permite seleccionar el registro 
con un número de lecturas muy inferior, pero necesita 
el fichero ordenado según el campo a buscar. 

Dado el limitado número de registros, para esta aplica- 
ción se ha preferido la primera solución, que si bien es 
menos funcional, resulta más inmediata. 


Escritura de los valores. La subrutina (pág. 2188) ge- 
nera 4 números aleatorios y los asocia a cada uno de 
los 4 parámetros previstos. La función, conceptual- 
mente sencilla, se complica por la necesidad de algu- 
nos controles. 

En primer lugar, y antes de asignar y por tanto escribir 
en el vídeo un valor, es necesario que el correspon- 
diente parámetro haya sido utilizado, por lo que para 
cada uno de los 4 números aleatorios se controla si 
existe (en B$(+)) la descripción del parámetro. Si el 
parámetro existe, o sea si su descripción no es nula, el 
valor es asignado y, de otra forma, no. De hecho no se 
ha dicho que la figura examinada utilice todos los pa- 
rámetros. Por ejemplo, para el cuadrado sólo hace fal- 
ta uno (lado), y omitiendo el control anterior, en panta- 
lla se tendrían tres valores numéricos de más (corres- 
pondientes a los parámetros no utilizados). 

También es necesario otro control para evitar valores 
duplicados. El generador de números aleatorios pue- 
de producir valores iguales, causando confusión en la 
interpretación de la pregunta. Por tanto, antes de 
aceptar un valor, se compara con los anteriores: si ya 
se ha presentado, se elimina y en su lugar se genera 
un nuevo valor. 


Análisis de las respuestas. La función realizada con- 
siste en calcular, para cada respuesta, cuál es el valor 
correcto y compararlo con el dado por el usuario. La 


función, conceptualmente sencilla, se hace compleja 
desde el punto de vista de la programación porque la 
fórmula a desarrollar no está predeterminada, sino que 
debe obtenerse analizando el contenido del registro 
del fichero CALC. 

La subrutina empieza leyendo el registro N de CALC 
(N contiene el número del registro correspondiente a la 
figura examinada). De este registro se extrae la fórmu- 
la (una de las dos previstas) poniendo en Z(5) el valor 
numérico multiplicador (véase el formato del fichero) y 
en A$ el contenido de los bytes 7 a 13 que contienen, 
en símbolos, la fórmula a aplicar (los valores se refie- 
ren a la primera pregunta. Para la segunda sólo varían 
los punteros). 

Sigue un bucle que examina cada carácter de A$ y 
obtiene la expresión del cálculo. 

Del bucle se extrae un carácter que, si está en blanco, 
se pasa al próximo y, si no, existen dos posibilidades: 


1 / El puntero es un número: en este caso, este valor 
es el puntero al parámetro a utilizar. Por ejemplo, si 
el carácter es un «3», significa que hay que tomar 
el valor del parámetro número 3. El valor numérico 
de este parámetro (asignado por el generador de 
números aleatorios) se transfiere a la primera posi- 
ción vacía de la matriz Z(w). 

2 / El carácter es un operador (+, —, «, /): el operador 
se compara con los previstos y se memoriza su po- 
sición en OP(x). Este valor se utilizará después 
para realizar el cálculo. 


Al final del bucle, la matriz Z(«*) contiene, en las cuatro 
primeras posiciones, los valores de los parámetros y, 
en OP(x), las operaciones a realizar sobre ellos. 

En este punto, el desarrollo del cálculo consiste en un 
bucle sobre los valores y en la realización, de vez en 
cuando, del cálculo indicado en OP(+x). También en 
este caso es necesario un control que interrumpa el 
bucle si se han terminado los parámetros. Este control 
se realiza en OP(+x): ante el primer elemento vacío (con 
contenido 0), el programa sale del bucle y calcula el 
resultado final. 

Este valor se coloca en Z(6) y se compara con el dado 
por el usuario. 

En caso de coincidencia, la respuesta es correcta, y el 
programa realiza las mismas funciones con la segun- 
da fórmula. Si no es así, se emite un diagnóstico de 
error y se pregunta al usuario si desea la presentación 
de la fórmula. En caso de que la respuesta sea afirma- 
tiva, el programa llama la subrutina 8000 de presenta- 
ción de fórmulas. 

Esta rutina consiste en un bucle sobre los caracteres 
de la cadena Af$, análogo al anterior, que, una vez ha- 
llado el valor, toma el nombre del parámetro corres- 
pondiente y lo acumula en la cadena utilizada para 
presentar la respuesta. Es decir, la rutina decodifica el 
contenido de la fórmula y escribe los distintos paráme- 
tros que intervienen. 
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Aritmética. En la foto se muestra la fase inicial del 
programa (versión DOS) que ilustra el desarrollo de 
una suma. Esta primera parte'se dedica a comprobar la 
capacidad del niño para descomponer un número de 
4 cifras. El programa ha presentado el valor 1414 y, en 
base a las respuestas dadas, convierte cada cifra en un 
número correspondiente de símbolos gráficos que se 
colocan en el cesto indicado. 


Al final de la fase anterior se pide al niño que introduzca 
un número a sumar al presentado, indicando el cesto 
(o sea atribuyendo un peso al número). 


El valor introducido y “pesado” con la indicación 

del cesto, se suma al número anterior (1414). La foto 
muestra el resultado final que se obtiene pidiendo que 
se sume el valor 6 al cesto de las centenas. Por tanto, 
el número a sumar es 600 (6 centenas) y la situación de 
los cestos se actualiza en consecuencia. Análogamente 
se actualiza la parte superior de la pantalla que muestra 
el desarrollo desde el punto de vista aritmético. 
Obsérvese que todas las pantallas vídeo 
correspondientes a la versión DOS son en alta 
resolución y, por tanto, el programa utiliza una rutina 
particular que permite realizar las funciones de gestión 
de las máscaras vídeo en alta resolución. 


Geometría: menú principal. Las voces previstas son 
Generación e Introducción-Actualización. La primera 
consiste únicamente en la preparación de los ficheros 
y no requiere ninguna acción por parte del usuario, 
mientras que la segunda voz representa la preparación 
propiamente dicha de las preguntas (figuras y texto). 
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La foto muestra la construcción del dibujo durante la 
fase de introducción. También en este caso, la ausencia 
de una gestión de sprites obliga a la utilización de la alta 
resolución. Para simplificar el uso, en este programa se 
ha incluido un “simulador de sprite”, que permite asociar 
a cada tecla un símbolo gráfico: es decir, se genera un 
teclado gráfico análogo al del Commodore o al de los 
sistemas MSX. Con los símbolos así definidos se puede 
construir cualquier dibujo “escribiendo”. En la foto se 
muestra cómo el sistema mantiene siempre informado 
al usuario del juego gráfico y del carácter particular que 
está utilizando. 


La foto muestra la presentación de una pregunta 
generada con el método ilustrado anteriormente. El 
sistema ha extraído un número aleatorio (6) asociándolo 
al parámetro (lado) y espera que el usuario introduzca 
la respuesta (perímetro) 


Con el valor del parámetro, el usuario calcula el valor 
que debe dar como respuesta. 

La foto contiene un error: el usuario ha introducido 35 
como valor del área. El programa calcula el verdadero 
valor utilizando las fórmulas introducidas en la 
generación, e indica el error. 

La aparición de un error produce además la posibilidad 
de presentar la fórmula. El programa presenta la 
correspondiente pregunta y espera una elección 


El usuario no ha pedido la fórmula y ha corregido el 
valor introducido (AREA = 36). En este caso, el dato 
introducido coincide con el calculado, y la pregunta es 
superada. El sistema se pone en espera para proseguir 
con la siguiente figura o para salir del proceso 
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Aritmética. En el sistema MSX, el programa Aritmética 
también presenta al niño el sistema de numeración 
decimal mediante la operación de la suma. La pantalla 
presentada se sirve de los gráficos para representar los 
números cada vez que éstos son introducidos por el 
niño. En este caso, el usuario ya ha compuesto el 
número propuesto por el programa (constituido por 5 
unidades, 3 decenas, 4 centenas y 6 millares). En este 
punto, el programa espera la introducción del número 
a sumar junto con el número y el nombre del cesto en 
el que debe realizarse la operación. 

La numeración de los cestos es la siguiente: 

4: Millares 

3: Centenas 

2: Decenas 

1: Unidades 


El niño ha pedido sumar al número generado por el 
programa nueve decenas. La operación (6435 + 90) 

se visualiza en la parte alta de la pantalla, y gracias a la 
presentación de los símbolos gráficos, en el interior de 
los cestos se muestra la lógica del acarreo. 

La ejecución puede proseguir con la generación de 

un nuevo número aleatorio (siempre compuesto por 

4 cifras) y podrá interrumpirse introduciendo la cifra 

O con la petición del valor a sumar. 


Geometría: generación. Para Geometría se han 
previsto dos programas separados, el primero de los 
cuales es necesario para la creación de los ficheros de 
datos en los que se introducirán las lecciones. En este 
programa hay un menú principal para activar las 
distintas funciones previstas: la Generación es la 
primera a seleccionar, y permite preparar la cassette 
con datos para las futuras introducciones. 


Geometría: introducción. La introducción de las 
lecciones de Geometría prevé como primera fase la 
creación de la figura geométrica analizada (constituida 
por sprites). 

En la segunda parte se introducen el nombre de la 
figura, los parámetros necesarios para los procesos 
(un máximo de 4) y las operaciones a realizar, que 
representan las preguntas planteadas en la fase de 
desarrollo. Los campos de introducción, llamados 
CALCULO, están reservados para la fórmula sobre 
la que se realiza la operación. 
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Geometría: uso. Ahora el niño está desarrollando las 
lecciones de Geometría: en primer lugar, el programa 
espera que se posicione la cinta datos para poder leer 
las lecciones introducidas con el programa de 
generación. El módulo de desarrollo de las lecciones 
de Geometría trabaja con la pantalla en alta resolución, 
permitiendo el uso de los colores y de los dibujos. 


Para que cada niño que usa estas lecciones pueda 
elegir la que desea, el programa pide el número 
correspondiente a la figura a presentar. Introduciendo 
el valor -1 puede buscar, entre las que hay en el 
soporte magnético, la lección correspondiente a una 
figura geométrica precisa introduciendo el número de 
esta última. La palabra «Fin» producirá la salida del 
programa. 


En el programa de desarrollo de las lecciones de 
Geometría se ha pedido al niño la correspondiente al 
círculo. La máscara vídeo en la que se introducirán las 
respuestas se desarrolla en una pantalla de alta 
resolución que permite el uso de dieciséis colores para 
las leyendas. 

En presentación aparece la figura introducida en la fase 
de generación con el nombre correspondiente, los 
parámetros previstos (hasta 4) y los valores (generados 
aleatoriamente por el programa) que deben asociarse a 
los mismos. Después se presentan las preguntas, y el 
programa espera la introducción de las respuestas 
(convalidadas por la tecla F5). 


La foto de al lado se refiere a la máscara vídeo 
dedicada a la presentación de la fórmula de cálculo 
correspondiente a la respuesta errónea. 

La fórmula se escribe mediante los punteros a los 
cuatro parámetros que identifican las cadenas a 
presentar. Esta opción se presenta cada vez que 
el niño comete un error y pide su activación. 


o 
Ediciones Forum, S.ñ 


Rebobina la cinta datos 


uv aprieta PLAY 


51 estas preparpdo.ruisaz, una 


E.G0.S. Ediciones Forum, 3.4% 


Oue fiaura <* 


3, 


Nombre de la figura? 


EA IAE 


RADIO 


CN EN A A E 


Quieres ver la formula 7? 


La formula a calcular 
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Extensiones y modificaciones 


Aritmética 

Para obtener una versión del programa más general 
y completa, es necesario llevar a cabo las siguientes 
modificaciones: 


1 / Posibilidad de variar la base de numeración. 
2 / Aumento del número de cifras gestionadas. 
3 / Extensión a las otras operaciones aritméticas. 


La primera, variación de la base, es la más sencilla, 
porque el programa ya contiene algunos elementos 
para activarla. 

Como ya se ha indicado en la descripción, basta con 
variar el valor de KF y pocas instrucciones. En particu- 
lar, las correspondientes al acarreo y al posicionado 
de los símbolos en el interior de los cestos. 

El segundo punto, correspondiente al incremento del 
número de cifras gestionadas (4 en las versiones de 
los listados) no presenta ninguna dificultad desde el 
punto de vista de la programación. De hecho, se trata 
simplemente de variar los valores de fin de los bucles. 
En cambio, debido a las dimensiones de la pantalla, 
se necesita una modificación sustancial de la presen- 
tación gráfica. Por tanto, se trata de una reestructura- 
ción completa de algunas partes del programa y no de 
una simple modificación. 

La extensión del programa a otras operaciones aritmé- 
ticas, además de requerir una compleja modificación 
del programa, también presenta notables dificultades 
de funcionamiento, en particular para las operaciones 
de multiplicación y de división, cuya lógica difiere mu- 
cho de la presentada. 

Una posible solución, si bien limitada, consiste en eli- 
minar toda la parte inferior de la máscara vídeo (la co- 
rrespondiente a la realización de las sumas) y sustituir- 
la por un diálogo mediante el cual pueda introducirse 
un número, por ejemplo, utilizando la sencilla instruc- 
ción INPUT. 

Después de la introducción (y la comprobación de 
que el valor no sea cero en el caso de la división), 
debe borrarse toda la pantalla y reclamar la rutina de 
presentación modificada, pasándole el resultado de la 
operación como número de símbolos a presentar. 

En detalle, las operaciones a realizar son: 


1 / Modificación del diagrama general eliminando todo 
el diálogo. En su lugar deben insertarse sólo dos 
entradas: la primera correspondiente a la opera- 
ción a realizar (+,-—, x, :), y la segunda para la intro- 
ducción del valor numérico. 

2 / Separar la subrutina 3000 de la 1000. La 3000 pue- 
de incluirse en el main antes de la llamada a la 
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1000. De esta manera, el número N se convierte en 
un parámetro a utilizar en la llamada. 

3 / Llamar, en el main, una primera vez la 1000 con 
N generado en la 3000. Por tanto, se tendrá la com- 
posición de un número generado aleatoriamente, 
como en la suma. 

4 / Al final, borrar completamente la máscara y activar 
una subrutina que pida la introducción del resulta- 
do de la operación. 

5 /Si el resultado introducido por el niño es correcto, 
debe transferirse a la variable, o sea la subrutina 
1000, para que quede con el mismo aspecto que 
antes. 


Sin embargo, hay que tener en cuenta que esta solu- 
ción es limitada, puesto que no ilustra los diferentes 
pasos a realizar en el desarrollo de la operación, y sólo 
es un medio ameno para comprobar el resultado. 


Geometría 

El programa de Geometría puede asimilarse a la ges- 
tión de un archivo, con la posibilidad adicional de reali- 
zar los cálculos indicados en algunos campos del re- 
gistro. 

Por tanto, sus posibilidades dependen esencialmente 
del número de campos que puede gestionar y de la 
complejidad de las fórmulas que debe aplicar. 

La versión presentada está dedicada a los niños y, por 
tanto, corresponde únicamente a la geometría plana y, 
con fines estéticos, incluye la representación gráfica 
de la figura geométrica. Esta estructura particular tiene 
como consecuencia la necesidad de contener el nú- 
mero de parámetros (4) y la complejidad de la fórmula, 
que no admite el uso de paréntesis. 

Para aplicaciones más complejas es necesario agilizar 
el procedimiento eliminando la parte gráfica por no ser 
necesaria y prever un aumento del número de pará- 
metros y de la complejidad de las fórmulas. 

El número de parámetros puede variarse muy fácil- 
mente modificando el formato de registro y las funcio- 
nes de introducción y de presentación. En cambio, en 
lo referente a las fórmulas, la modificación es más 
compleja, y consiste en la sustitución completa de la 
subrutina de desarrollo por otra que pueda reconocer 
paréntesis. En las páginas 2201 y 2202 se han listado 
unos ejemplos de dichas subrutinas, incluidas en un 
programa de demostración. 

Para su uso como implantación de Geometría deben 
extraerse de ellas las distintas partes, modificando los 
nombres de las variables y los números de las líneas. 
El programa de demostración, del que sólo se ha pre- 
sentado la versión completa para la versión MSX (para 


las otras sólo las modificaciones), en la entrada pide 
los nombres de los campos a procesar y los respecti- 
vos valores (5 como máximo, aunque este valor puede 
ampliarse a 20 variando simplemente el índice del bu- 
cle en la línea 22). 

Al final de esta introducción puede insertarse la fórmu- 
la en la que aparecen los nombres de los campos. 
La fórmula puede contener todas las operaciones arit- 
méticas (+, —, *, :, A) y un número cualquiera de pa- 
réntesis. Su desarrollo empieza por el cálculo indica- 
do en los paréntesis más internos, procediendo hacia 
el exterior. Sin embargo, debe tenerse en cuenta que 
en el interior de los paréntesis no se considera la priori- 
dad de los símbolos, sino que las operaciones se reali- 
zan en el orden de introducción. Por ejemplo, el cálculo 
3 + 6/2 da 4,5, porque primero se hace la suma y des- 
pués la división. Para superar esta dificultad basta con 
insertar un bucle de exploración sobre la expresión 
que asigne las prioridades de cálculo y aplicarla si- 
guiendo los punteros así determinados. La subrutina 
de cálculo empieza en la línea 2000 y se realiza en la 
cadena A$2, por lo que esta cadena debe analizarse 


10 SCREENO:KEY OFF:WIDTH 40 
15 DIM E$(20),D$(20),K8$(20) 

20 FOR I=1 TO S:READ K8$(1):¿NEXT 1 

2 FOR I=1 TO S:PRINT"DESCRIFCION ";1z: INPUT DS(I),B$(1):NEXT T 
3 LOCATE 1,10:PRINT"EXPRESION"*LOCATE 1,12: INPUT A$ 
9 REM 

O DEF FNA=21*Z2 

32 DEF FNB=Z11Z2 

35 DEF FNC=21/22 

37 DEF FND=Z1+22 

40 DEF FNE=Z1-Z2 

50 GOSUR 100 

55 1F Pi=1 AND P2=LEN(A$) THEN 80 

60 GOSUR 1000 

70 GOTO 50 

80 A26=A$:G0SUB 2000 

85 R$=A4$:LOCATE 1,17: FRINT"RESPUESTA = "¿R$:END 
100 REM CALCULO PUNTEROS 

102 F1=0:P2=0 

105 I9=LEN(A$) 

110 FOR I=1 TO 19 

115 CH$=MID$(A$, 1,1) 

120 IF CH8="(" THEN P1=I:GOTO 130 

125 1F CH$=")" THEN P2=1:1=19:GOTO 160 

130 NEXT 1 

135 IF P1=0 THEN Fi=1 

140 F2=19: RETURN 

160 IF P1=0 THEN Pi=1:P2=19 

165 RETURN 

1000 N=FP2-P1-1 

1005 Ni=P1+1 

1010 N2=P1-1 

1015 N3=LEN(A$) 

1020 AL$S=LEFTS (A$,N2) 

1025 A2$=MID$ —(A$,N1,N) 

1030 A3$=RIGHTS (A$,N3-F2) 

1035 GOSUB 2000 

1040 AS=A1G+A4$+ATS 

1045 RETURN 

2000 REM CALCULO 

2002 L9=LEN(A2%) 

2005 IF L9=0 THEN RETURN 

2010 K8=0:K=1:N$="":C4="" 

2015 I=1 

2020 K8=0:CH$=MID$ (A2$,1,1) 

2025 FOR J=1 TO S:1F CH$=K8$(J) THEN K8=J:J=5 
2030 NEXT J 

2035 1F K8 <> O THEN 2600 

2500 IF ASC(CH$)<48 OR ASC(CH$)>57 THEN 2510 
2505 N$=N$+CH$:GOTO 2515 

2510 C$=C$+CH$ 

2515 I=I+1:1F ISLEN(A2$) THEN I=1-1:GOTO 2600 
2520 GOTO 2020 ñ 
2600 IF I=1 THEN BEEP:LOCATE1,21:PRINT"ERROR":ER=3: END 
2605 IF N$=""THEN 2615 

2610 ZA=VAL (N$):GOTO 2630 

2615 GOSUB 5000 

2620 1F K1=0 THEN BEEP:LOCATE1,21:FRINT"ERROR":ER=4: END 
2625 ZA=VAL (BS (K1)) 


carácter por carácter, tomando los punteros que dan 
las prioridades. 

El programa de demostración contiene un main que va 
desae la línea 10 a la línea 85, por lo que para estruc- 
turarlo como subrutina basta con eliminar estas líneas, 
que deben incluirse en el main que deba utilizar la 
subrutina. 

Finalmente, obsérvese que el desarrollo de las opera- 
ciones se obtiene definiendo funciones de usuario (lí- 
neas 30 a 40). En las máquinas que no tienen previsto 
este tipo de instrucciones deben eliminarse las líneas 
y modificarse la parte de cálculo (líneas 9002 a 9400), 
explicitando la operación a realizar. Por ejemplo, la 
9002 en lugar de: ZT = FNA, se convierte en: 


Z1=Z1A22 


Además, la línea 10 contiene instrucciones típicas 
MSX y, en el caso de que se utilice otro sistema, debe- 
rán modificarse o eliminarse, como la LOCATE (de po- 
sicionado del cursor), que deberá sustituirse por la co- 
rrespondiente del sistema utilizado. 
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2630 IF K<í>1 THEN 2645 

2633 Z1=ZA:K=2 

2640 Né="":C$="":KT=K8:GOTO2515 
2645 22=ZA:Kk=1 

2647 REM 

2650 ON KT GOSUE 9000,9100,9200,9300,9400 
26395 AI$=STR$(2T) :A4$=RIGHTS (A4$,LEN(A4$)-1) 
2660 L=LEN(A2$):1F I=L THEN RETURN 
2665 A2$=A4$+RIGHT$ (025, L-1+1) 

2670 GOTO 2000 

5000 REM BUSCA C$ IN D$ 

3005 K1=0: IF I=>LEN(A2$) THEN C$=CH$ 
5010 FOR W=1 TO 5 

3015 IF C$=D$(W) THEN Ki=4w:W=5 

5020 NEXT W 

5023 RETURN 

9000 REM 

9002 Z2T=FNA: RETURN 

9100 ZT=FNB: RETURN 

9200 ZT=FNC: RETURN 

9300 ZT=FND: RETURN 

9400 ZT=FNE: RETURN 

10000 DATA“2", Mp0, 0/0, 00, 





1 EEM MODIFICACIÓN PARA VERSION C 

mM 

ECM H.E. : ANULAR DEL LISTADO 

“EM ORIGINAL LAS LINEAS 30, 32,33,37,40 


« 














ida 
; B:GOSUE 11000: PRINT"EXPRESION" 
z UE 11006: INFUT H3 
ro ñas: 4=1:Y=17:GOSUE 11000:PRINT"RESPUESTA = "¿RI GEND 
1 1=1 THEN =1:Y=21:GUSUE 11000: FPEINT"ERROR S 
IF Ki=0 THEN 2=1:4=21:G05UE 11000: FRINT"ERR 


4 REM 
¿T=21 122: RETURN 
2¿T=21422 RETURN 
21=21/22: RETURN 
a FETUERH 
20440 2121-22 RETURN 
1 REM POSICIONA CURSOR: 
11005 POKE 211,X:POKE 214,1:5958732 
11619 RETURN 
























REM MODIFICACIONES PARA VERSION DOS 
REM 

REM N.B.: BORRAR DEL LISTADO 

REM ORIGINAL LAS LINEAS 30,32, 35,37, 40 
REM ; 

10 HOME 

23 HTAB 1: VTAB 10: PRINT "EXPRESION" 

24 HTAE 1: VTAB 12: INFUT A$ 

85 R$ = A4%: HTAB 1: VTAB 17 

87 PRINT "RESPUESTA = "¿R$: END 

2600 IF 1 = 1 THEN PRINT CHR$ (7) 


Mb 


2602 HTAB 1: VTAB 21: FRINT "ERROR"sER = 3: END 
2620 IF Ki = O THEN PRINT CHR$ (7) 

2622 HTAB 1: VTAB 21: PRINT "ERROR"sER = 4: END 
9000 REM 

9002 ZT = 71 * 22: RETURN 

9100 ZT = Z1 * 22: RETURN 

9200 21 = 271 / 22: RETURN 

9300 271 = 71 + 22: RETURN 

9400 ZT = 71 - 22: RETURN 
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Aritmética / Versión Commodore 64 


REM ARAAA RR AAA AAA AAA 


20 REN + MAIN GENERAL * 
24 REM o dde 









cn 


6: POKES650, 9: PRINTCHRSC1- 2CHR$C8) 
Brblda ARITMETICA " 

2 EL NUMERO CORRESPONDIENTE" 

PEL PROGRAMA DESEADO" 

FUE ARITMETICA" 

EX AEON GEOMETEI :¿CREACION ARCHIVOS" 
MX GEOMETRIA, USO" 

PRINT"BRBMEC ON! FIN DE TAREA" 

THPLUT "BINARIA ICUAL : ":R 

IF R=4 THEN PRINT"0J":END 

IF r<1 OR R>3 THEN 40 

PRINT" IAS PC (4) "ESPERAR Li CARGA» POR FAVOR" 
ON R GOTO 100,200, 390 


100 PRINT"*GPOKE43, 1:POKE44, 16:POKE45, 3:POKE46, 16:POKE47,10:POKE48,16" 
114 PRINT"POKE43, 10:POKESO, 16: POKE4996,B:LOAD"CHR$(34)"AR"CHR3(34)",8" 
124 GOTOSOB 


ela] 


PRINT"N2POKE43,1 POKE44,16:POKE45, 3:POKE46, 16: POKE47, 18: POKE48,16" 


210 PRINT"POKE49,10:POKESO, 16: POKE4996,9:LOAD"CHR$(34)"6C"CHR$(34)",8" 


220 


GOTOS00 


300 PRINT"ABPOKE43, 1:POKE44, 16: POKE45, 3:POKE46, 16:POKE47, 10:POKE48,16" 


310 


PRINT"POKE49, ¿0:POKESO, 16: POKE4096.0:LOAD"CHR$(34)"GU"CHR$(34)",8" 


500 POKE198,10:FORL=6317T0640 : READN :POKEL., H:NEXT 
518 DATA19, 13,145, 145,13, ES 78,5 ea 13 
1066 REM NOTAS ! ! ! ! 


100 
5 


1043 El = 
1904 REM GC = GEOMETRIA. CREACION 
1043 REM GU = 


AR 


1 REM NOMBRES DE LOS PROGRAMAS > 





EM AR 





ARITMETICA 
GEOMETRIA, USO 


REM 
REM RRA ARITMETICA Hd do 


REM 

DIM DEFC20),D$(20),N5(20),T420),AD(205,AX020),BX(20) 
B3=4 : BASE=9 

FOR I=1 TO ES:READ DES$C17,DXc 1), DCI) :NEXT 1 

FOR I=1 TO ES:READ D$C(I>:NEXT 1 

FOR I=1 TO BS:READ AD$C(1>,AXC1),BXC(1): NEXT 1 

FOR I=1 TO BS:READ T$C(1>:NEXT 1 

¿2l4="mM1 1":22$=" "iPpI$="+":Y1=23:X0=2:YD=11:v0=9:C0=35:P=10:E=10 
A1=48:A2=57:H0$="01" 

FOR I=1 TO 4:NScI)=0:NEXT 1 
CA$="":FORI=1T038:CA$=CA$+CHR$ (32) :NEXTI 
PRINTHOS : GOSUB 7000 


4 GOSUB 1000 


105 GOSUB15300 

110 2=2:W=1:G05UB11000:PRINT"WHUANTO QUIERES SUMARE ";: INPUT"; 
115 IF N=0 THEN PRINT"0":POKE646.,6:END 

120 IF N>9 OR N<A THEN 110 

123 GOSUB 15500 

130 *=2:=Y1'G0SUB11000:PRINT"WUNN EL CESTO DEM ";:INPUT"M";S$ 


K=a 
149 FOR Kl=1 TO BS:IF S$=T$(4-K1+1) THEN K=K1:K1=BS 


145 MEXT Ki- 

1590 IF KC>4 THEN 158 

155 2=2:W=w1:G0SUB11000:PRINT"MIT PM ";S$;" NO ESTA PREVISTO" 

156 FORT=1T02000:NEXTT 

157 X=2:w=W1:G0SUB11000:PRINT" ";:60T0130 
158 GOSUB 15569 

169 X=2:=1:GOSUB11000:PRINT"ANNQUE NUMERO DE CESTO ";:INPUT"M";M 

165 IF M1 OR M>4 THEN 160 

170 IFM=KTHEN173 


4=2:W=1:G0SUB11000:PRINT" a 


172 GOSUB11009:PRINT"EL CESTO";M;"NO ES CORRECTO ":FORT=1T02000:NEXTT 


173 
174 
175 
176 
177 
178 
179 
190 
181 
$ 


182 
193 
184 
186 
190 
195 
200 
u 

250 
255 
309 
305 
310 
315 
320 
325 
327 
330 
333 
335 
350 
355 


360 R 


908 


1009 


G0SUB15508: IF MOK GOTO168 

M9=5M: 10=M: A$=STR$C(N) 

FIN=0: h=09 

GOSUB 4000:1F FIN=2 THEN 259 

IF FIN<58 THEN 179 

IF Vbi=0 THEN IF NSCIB)+VALCAS) BASE THEN A$="1":GOTO176 

POKE646,7 

%=1:Y=21:60SUB11090:PRINTCAS 
%=11:G05UB11000:PRINT"A"PIS:X=21:G0SUB11000:PRINTPIS:X=31:G0SUB11000:PRINTPI 


POKE646,7:FOR I=4 TO 1STEP-1 

A$=RIGHT$CSTRSCNSCID, 1) 

GOSUB1500M 

NEXT 1 

MS=N$:N$="":1=6:GOSUB15500 
FORI=4TO1STEP-1:N1$=RIGHTS(STRECNSCID), 1) :N$=N3+N1$: NEXTI 
X=10:Y=6:605UB11000:PRINTMS; "2 +"; "MU ;NAVALCADSC4-M941)); "24 ";"M";N$:GOTOSO 


GOSUB15504:00SUB11000:PRINT"N"-T.. LA SUMA PEDIDA SUPERAB"; 9999; 
FOR T=1T02000:NEXTT:GOSUB15599 

REM do FIN JOKK 

REM 

%=12:=23:60SUB11000:PRINT"RTIL LT ATT (S/N " 
X=31:GOSUB11090 

GETR$: IFR$<>""THEN 350 

G0SUB11000:PRINT" ur" 

FORT=1T050:NEXTT 

GOSUB11000:PRINT" " 

FORT=1T050:NEXTT 

GOTO 320 

IF R$="N" THEN PRINTHOS:POKE646,6:CLR:LOAD"ARITMETICH".,8 
NON THEN 320 


REA dd lll ld ll e ll ll ll e ll e li ll ll a li ll ll dd 
REM AO Odotor DESCOMPOSICION DE UN NUMERO DECIMAL RRAARARA RRA 


1005 GOSUB 2609 

1019 GOSUB 3000 

1012 *X=10:Y=6:G0SUB11000:PRINT"NPNT/ "TL /ACT A NE 
1015 FOR I=1 TO BS 

1020 A$=MIDS$(N$,LENCN$)-1+1,1> 

1025 Y=Y1:X=((40-LENCDS$(1)))/2)-2'G0SUB11000:PRINT" M"DFCIO; 
1030 X=%+LENCDS$CID +1 

1035 GET CH$:IF CH$<>"" THEN 1065 

1040 GOSUB11000:PRINT" Jun" 

1043 FOR T=1 TO S0:NEXTT 

1050 GOSUB11000:PRINT" " 

1055 FOR T=1 TO 50:NEXTT 

1069 GOTO 10835 

1065 IF ASCCCH$)<A1 OR ASCCCH$)>A2 THEN 1035 

1067 IF VALCCH$)=WALCA$) THEN 1075 

1070 GOSUB 1100:GOTO 1825 


1075 


IF YALCAS>=0 THEN POKE646, 1 :GOTO1B85 


1080 10=1:GOSUB 4000 

1085 GOSUB 15089 

1090 NEXT 1 

1095 RETURN 

1109 REM CONTROL ERROR 

1105 J=VYALCCH$) :ER=0 

1119 FOR Ki=1 TO 4 

1115 IF J=VALCMIDSC(NS.k 1,1) THEN ER=K1:K1=4 


1120 
1125 
1130 
1135 


NEXT K1 

IF ER=B THEN ER=-1:G0TO1200 

4=2:W=23:00SUB11000:PRINT"N—T—,EL NUMERO 8";CH+;"2 ESTA EN "¡TFCER) 
FOR T=1 TO 2000: NEXTT 


1137 GOSUB15509 


1140 


RETURN 


1208 X=1:=23:005UB11000:PRINT"N—T-,EL NUMERO 8";CH$;"2 NO EXISTE EN 5";H3 
1263 FOR T=1 TO 2000: NEXTT 


1207 


GOSUB 15508 


1210 RETURN 
2009 REM 44% PRESENTA MASCARA a 
REM 


2010 FOR I=1 TO 4:X=DXc1):Y=DWC1):GOSUB11000:PRINTDESC1) NEXT 1 
2015 REM 
2020 FOR 'Y=YD TO Y+3 
2022 X=x0 
2025 FOR J=1 TO 4:GOSUB 11000:PRINT 21$:X=X%+10:NEXT J 
2030 NEXT Y 
2032 4=%0 
2035 FOR J=1 TO 4:GOSUB 11000:PRINT 22$:X=%+10:NEXT J 
2045 Y=16 
2046 FOR J=1 TO 4:%=AXCJ):G0SUB11000:PRINT"A"ADS$CJ) :NEXTJ 
2050 Y1=20:%=%0:PRINTCHR$C(1595; 
2055 FOR J=1 TO 4:G0SUB 11090:PRINT 22$:X=X+10:NEXT J 
2060 Y=+1:X=%0+9:605UB11000:PRINTPIS: <=X%0+19:60SUB11000: PRINTPIS 
2065 X=%0+29:50SUB11000:PRINT"A"PIS 
2100 RETURN 
2000 REM 44k GENERACION RANDOM 4 

dOS H$="" 
FOR I=1 TO ES 
A 
ne D HM=0 THEN 3015 

MssTRROO ¿N1S=RIGHTS$CN1S, 1) :N$=N$+N1S 


3030 N$=RIGHTSCN$, BS) 

3035 N=WAL (NS) 

3040 RETURN 

4009 la Joao COMPLETA MASCARA otok 
REM 


4010 IF NSCIO)+VALCAS)) BASE THEN 4050 
4015 REM <BASE 
4020 KF=3:KY=1:G0SUB 4500 
4025 db=1 RETURN 
4050 REM RIPORTO 
4052 IF WMSCIO)>BASE AND NSC(4)+17BASE THEN FIN=2:RETURN 
IF 10<54 THEN 4055 
4054 IF NSCIO)+VALCAS)>BASE THEN FINE=2:RETURN 
4055 H13=A$ 
4060 REM BORRA EN EL CESTO ANTERIOR 
4065 SH=(VALC(A1$)+N5(10)>)-B:NSC(10)=0 
4070 A$="9":KV=0:G0SUB 4508 
4073 AS=STRÍCON) 
4095 KV=1:N35(10)=0:G0SUB 4500 
En 





L 
3 
on 
y 


Ri 
4097 IF NSCIO+1>+1>BASE AND 10+1=4 THEN FIN=2:RETURN 
4088 I0=10+1:IF NS(I0)+1>BASE THEN A$="1":RETURN 
4089 A9=NSC1I0)+1:A$=STR$CAD) 
4090 KV=1:NS(10)=0:GOSUB 4500 
4092 IF 10+174 THEN FINE=1 
4095 A$="0":RETURN 
4509 IF YALCA$)<=0 THEN RETURN 
4502 FOR J=1 TO VALCAS> 
4505 IF NSCIO)+1<=KF THEN Y=Y0+4:M=KF:GOTO 4530 
4510 IF NSCIB)+1<=24KF THEN Y=Y0+3:M=2kKF:GO0TO 4530 
4520 Y=40+2:M=3HKF 
4530 C=M-NSC10)> 
4533 A=C0-(10-1>3*P 
4540 X=A-2+C 
4545 GOSUB11000:IF KV=1 THEN PRINT"xua":GOTO4559 
4547 PRINT" " 
45530 REM 
4535 NSCI0)=NSC1I0)+1 
4560 NEXT J 
45365 RETURN 
7000 REM ddok CABECERA Hoddok 
7005 PRINT"3";:PRINTCHR$C14) 
7010 PRINT"Man mr.|.0. DICIONES -—ORUM, 6.4.” 
7015 PRINT"MEN OZ 1 5 bs 
7020 PRINT"MAM B Da 41 UA A 
7025 A ha 
7119 RETUR 
10000 REM aan DATOS dao dlodoN 
106005 DATA"MASILLARES",1,9, "MA-ENTENAS",11,9 
10010 DATA" A ECENAS",22,9,"8k NIDADES",31,9 
109015 DATA"SUANTAS UNIDADES", "SHUANTAS DECEMAS ", "SHUANTAS CENTENAS" 
10020 DATA"SUANTOS MILLARES" 


10025 DATA"1000%X",4,7,"180%",15,17,"10X",26,27,"1%X",37,37 
19030 DATA"MILLARES", "CENTENAS", "DECENAS", "UNIDADES" 
11009 REM 4k POSICIONA CURSOR Ak 

11005 POKE 211,x 

11010 POKE 214,w 

11015 SYS58732 

11020 RETURN 

15000 REM 4 INTRODUCCION pUCTIELICANDOS Y RESULTADOS xk 
15005 RI=WALCAS)RVALCADS (49-141) 

15010 X=Bx(4-1+1):Y=18: COSUB1 1800 

15015 PRINT AS 

15020 X=AX(4-1+1>)-1:Y=+3 

15025 IF RI=0 THEN X=BX(4-1+1)-1 

15034 G0SUB11000:PRINTRI 

15035 RETURN 

15500 X=1:Y=W1:GOSUB11000:PRINTCAS; :RETURN 


a DIRIO AARRAARARRRRAR 
INT" 
27 Y=11- COSUB11000:PRINT"HINTRODUCIR EL DISCO DATOS": Y=Y+30 40443 
GOSUE11000:PRINT"Y PULSAR UNA TECLA" 

GET A$: IF A$<>"" THEN PRINTHOS:GOTOZO 

FOR T=1 TO 406: NEXTT:GOTO13 

DIM ESC20),TPC20),LC(205,ND(020),0X020),CWC2 OA 

DIM TFC15%,D3C020), 404010), FISCO LEC), H$(12),B1366 

BL$=" ":PD$=".": AS: ":NS$="8":SUS="M1":GIUS="N": Hos=rr SL$="/" 
US$=CHR$C 133): HW=3:XC=7 :YC=6:S2=2:POKE 650,128 

PRINTHOS :GOSUEL200:PRINTHOS : PRINTCHR$(142):REM 4% MENU 4% 

IF 0P2=3 THEN PRINT"0":CLR:LOAD"ARITMETICA".3 

COSUB20000 

FOR I=1 TO 15:READ TFCI>NEXTI 

FOR l=1 TO 12:READ H$C1>:NEXTI 

FOR 1I=1 TO S:READ FI$cI),LEFCIO HNERTI 












120 ON OPZ GOSUE 12000, 14000 


150 GOTO 26 

1300 REM as 

1301 REM + MENU PRINCIPAL 

1302 REM atan 

1303 LV=-1:POKES3281.6:POKES328D, 14 

1305 una MENU ":0P2=0:Y0$(0PZ>=" UT 741% (GENERACION) ":GOSUE 7009 
1309 OPZ=1 

1310 953248 _ 


1311 





1312 POKESS. So POKESS+17111 


1313 POKE 





Es3+21,1:POKE2040, 13 


1316 RESTORE 

1313 FOR 1=0 TO 62: READN:POKES32+1,M:NEXTI 

1321 POKESS+339.1:01=50:C2=111 

1323 GUSUE 1363 

1324 GOSUB 1396 

1327 GET 0OPZ3$: IF 0PZ$="" THEN 1327 

1333 IF OP2$=GI1U$ THEN C2=C2+16:0P2=0P2+1:G0S5UB1363 


36 IF OPZ$=SU$ THEN C2=C2-16:0P2=0P2-1:GOSUB1363 


1339 IF OP2$=U5$ THEN 1381 

1342 [F ASCCOP2$3=25 THEN GOSUE 1456:60T01305 
1345 GOTO 1327 

1363 PREM 44 

1366 IF C2<111 THEN C2=C2+16:0P2=0PZ+1 : RETURN 
1369 IF C27143 THEN C2=C2-16:0P2=0P2-1 RETURN 
1372 POKESS,C1'POKESS+1,C02 

1375 RETURN 

1378 REM ++ 

1321 2=XC:Y=0PZ4ESZ+YC 

1334 GOSUB 11009 

1337 PRINT"Ak";VOS$(D0PZ> 

1390 FOR T=i TO 1000: NEXTT 


1392 FOKESS+21,PEEKt 





21)AND234 


1393 RETURN 

1396 REM 

1399 FOR J=1 TO NW:READ YO0$(J):NEXTJ 
1405 FOR Il=1 TO NY 

1403 X=XC:Y=I1*32+W0 

1411 G0SUB11000 

1414 PRINT"A";Y0$C1I1> 


Y HEXT II 


1420 RETURN 


1425 
1427 

1429 
1431 
1433 
1444 
1445 
14534 
1456 
1459 


DATAD,0,0.0,76,0,0,144,0,3,32,9 
DATA4,64,0,8,143,252,17.112,2,224,1239,252 
DATAD.63,0,0,65,0,90,63,0,0,31,9 
DATAO,33,6,0,31,0,224,63,0,16,31,0 
DATH15,38.0,0,9,0,0,98,0,0,9,0,0,90,9 
DATA"1- ¡ENERACION DEL SISTEMA" 
DATA"2- +NTRODUCCION/ARIACION" 
DATA"6- —IN DE TAREA" 

REM 4d ATUDA MENU RARA 
FRINTCHR$C(147) :FRINTEHR$(14) 

POKESS. 255: POKESS+1,115:POKESS+39,6 


3 POKESS+40,6:POKESS3+41,6 


POKESS+21,7:POKE2048. 13: POKE2041, 14:P0OKE2042, 15: POKESS+29, 4 
FORN=0T062 : READO : POKES32+N. 01: NEXTN 
FORN=9T062 : READO: POKES96+N +9: NEXTN 
FORN=0T062 : READO : POKES960+N, (0: NEXTN 
POKESS+39, 1: POKESS+40, 1:POKESS+41,1 

FPOKE 353281,6 

PRINTS AAáÁáÁáÁAÁÁÁ 8 1 1 5 AAA 


3 FOR I=1 TO 15'PRINT"MI 1"5:NEXTI 


PE 1H - _—_ —_ —_a—— __——————— 
PRINTCHR$(130 :PRINTTHEC?) "RUINA 4 TO TL 
POKESS+2, 255: POKESS+3, 1435: POKESS+4, 245: POKESS+5, 189 
PRINT"MBBEIDESPLAZA ABAJO: * 

PRINT"AMBDESPLAZA ARRIBA: " 

PRINT"NBMINTRODUCIR OPCION ELEGIDA: " 

PRINTTABCG) "MATAR 1 1 AA UA ALO 
GET R$: IFR$=""THEN1S13 

POKES3+39,6:PRINT":J" RETURN 


2 DATA3,255,192,12,0,32,16,16,16,32,56,8,32,108,2 


DATAG4.40,4,64,40,4,64,0,4,93,206,228,81,72,164 


6 DATAS1,206,228,81,66, 164,93,46,143,64,0,4 


DATAG4, 40, 4,64,40,4,32,108,8,32,56,8,16,16,16 
DATA12,0,32,3, 255,192 

DATRS, 255, 192, 12,8,32,16,32,16,32,120,9,32,192,8 
DATR64, 120,4,64,32,4,64,0,4,93,206,222,81,72,164 
DATAS1,206,223,81,66, 164,93,46,148,64,0,4,64,16,4 
DATAS4, 120,4,32,12,8,32,120,3,16,16,16,12,0,32,3,255, 192 
DATAO,0,0,7,255,224,24,0,24,96,0,6,123,0,1,129,1,129 
DATR134,131,129,132,2,129,132,0,129,142,0,129 
DATA132.0.129,132,0,129,132,0,129,123,0,1,96,0,6 
DATA24,0,24,7.,255,224,8,0,0,0,9,0,0,0,0,0,0,9 

REM FIN TEL MENU PRINCIPAL 


REM 
REM 44% PRESENTA MASCARA dot 
FORI=1TODS:X=DX(1>:Y=DY(1):GOSUB11009:PRINT"2"D$C1)+HEXTI 
FOR J=1 TO NUC 
Ag="" 
IF TPCJI<9S AND TP(J><54 THEN 2060 
X=CXCJ) =C CJ): CUSUB11000:PRINT"A"5ESCJ> 
GOTO 2130 
N1=LC(J>:N2=NDC(J) ¿IF TPCJ)=1 OR TPCJ>=2 THEN C$=NS$:COTO2070 
C$=AS5$ 
FOR I=1 TO Ni-H2-1:A$=A$+C$:NEXTI 
IF N2=0 THEN A$=A$+C$:G0T0 2095 
AS$=A$+PD+ 
FOR I=1 TO N2:A$=A$+"09":NEXTI 
X=CRCJO Y=C CJ) :GOSUB 11000 
PRINT "MAS; "a" 


Po BScJs="" 


FOR K=1 TO N1-N2-1 
EF(J)=B$CJ)+HS$ 
HEXT K 


5 IF N2=0 THEN ES(J)=BS$(J2+HS$:GOTO 2130 


BSCJ)=ESF (JAP DE 
FORK=1TON2:B4(J)=B$(J)+N3$ : NEXTK 
NEXT J 

RETURN 

REM 

REM 44 DATA ENTRY 4% 


J=1 

NC=J : X=CXUNCI : Y=CWINC) 
CC=1+ 

GOSUB 3240 


IF FS=9 THEN RETURN 
IF FS=0 THEN 3100 
IF FS>4 THEN 3210 
GOTO 3120 

REM CARACTER 


J=J+1: E J2NUC THEH 3030 
GOTO 3040 

ON FS GOTO 3138,3150,3170,3198 

IF J>1 THEN J=J-1:G0TO 3040 

F3=0: J=NUC: GOTO 3040 

IF J<NUIC THEN J=J+1:G0TO 3040 

FS=9:G0TO0 3030 

IF CC<LCCJ) THEN S=1:CC=CC+1:X=X+1:G0SUE 11000:G0TO 3060 
FS=6:GOTO 3109 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:COSUB11000:G0TO 3068 
S=8:GOTO 3040 

REN 

IF FS>3 THEN FS=0:GOTO 3069 


B IF FS=8 THEN FS=0:G60T0 3100 


RETURN 
REM 
re A LECTURA DE 1 CAMPO es 
S=B 
IF TPCNC)=4 THEN RETURN 
IF TPCNC>=2 THEN GOSUB 9000: RETURN 
IF MIDS$CBS$(NC7, CC, 19=PDS THENX=X+S:CC=CC+S5 
GOSUB 11009 
CET A$:IF A$<>"" THEN 3338 
GO0SUB11000:PRINT" ae"; :GOSUB11000:PRINT"A";MIDECESCONCI CC 100 
COTO 3330 
IFASCCAS)=190RASCCAS )=200RASCCAS)=1470RASCC(ASFI=1408 DRASCCAFI=494 THEN 3330 
PRINT"MA"5 AS; 
CA=ASCLAS) 
FOR I=1 TO 15 


B IF TFCI>=CA THEN F3=1: 1=15:G0SUE3E30: RETURN 


IF FS=2 THEN RETURN 

NEXTI 

IF TPCNCI<>1 THEN 3450 

IF CA=45 OR CA=46 ORCCA>=43ANDCAC=57 )THEN3420 
GOTO 3330 

IF CAc>46 THEN3450 

GOSUE 4270 

IF SHP=1 THEN 3410 

3=1:COSUB 3520 

IF CC=LCONC> THEN PETURN 
CC=CC+1:0X=+1:C0T0 3310 

REM 

REM 44 TRASFERENCIH AL BUFFER 4% 





G REM 


IF CC=1 THEN SN$="":GOTO 3590 
SN$=LEFTSCESFONC), CC-10 
IF CC=LCONC) THEN DES="":G0TO3610 


9 N=LCCUNCICC : DES=FICHTECEFUNCI NO 


BSCNCI=3N$+AF+DES 





620 FETURN 
FENM 
FEM ++ COMANDOS + 
O REM 
3 IF FS>S THEN 3710 
RETURH 
O IF F3=2 THEN GOSUE 13000: RETURN 
IF FS=8 THEN COSUE 4054: RETURH 
3 IF F THEH RETUFH 





ON ESS 2 COSUB 3740,3210 


S REM +4 INSERCION 44 





REM 

IF CC=LCONCITHEN RETURN 

IF CC=1 THEN SN$="":GOTO3800 
SHF=LEFTEFCESFCNC),CC-1) 
H=LCCNCI—CC+1 E DES=RICHTSCBFCNCI, No 
C$=BL$ 

AS=SNI+CF+DES 
ESFCONCI=LEFISC AS. LOCNCIO 

A 

X=CXUNC) :Y=CYUNCI:GOSUB 119000 
XSXA =P 

REM 

PRINT BS$(NC> :S=-1 

IF RIGHT$CESCNC),12=PDS THEN 3780 
RETURN 


REM 
O REM det BORRADO dede 





REM 

IF TPCNCI<>1 THEN 3950 

IF MIDS$CB$ONCI,2,1)=PD$ AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF CC=LCINC) THEN DES$="":GOTO 3980 
H=LCINCI—CC: DES=RIGHTECBFCNCO SH) 
SN$=LEFTSCBFCNC),CC-1) 

IF TPCHCI=1 OR TPNCI=2 THEN C$=NS$:GOTO 4819 
C$=AS$ 

BSFCHCI=SN$+DE$+C$ 

XA=X 0 =Y 

A=CXONCO :W=CW CNC :GOSUB 11008 
AAN 

PRINT B$CHC) :S=1:RETURN 

REM A ALINERDOS dodo 

IF LCCHCI=1 THEN RETURN 
Ni=LC(NCI=CC+1 

IF CC=1 THEN B*cNC="":G0TO4100 
BéCNCI=LEFTS$CBFCNCO, CC-1) 

IF TP¿NCA=1 OR TPONCI=2 THEN 4150 
FOR I=1 TO M1 

BS(NC)=B$CHCI+ELG 

HEXT 1 

GOTO 4190 

FOR I=1 TO N1 
ESCNC+=CHR$C3ZI+BG CNC) 

NEXT 1 

IF RIGHT$CBS$CNCI, 1)=PDg THEN ESiNC>=BL$+LEFTECBFCNCO, LECHCI1) 
X=CAUNC) :Y=CW UNC) :GOSUB 11009 
PRINT BS$(NC) RETURN 

REM 4% CTRL PUNTO dai 


50 SUP=0 


IF CC=1 OR CO=LCUNC) THEM SHP=1:RETURN 


BO FOR I=1 TO LCCNC: 


IF MIDSCBSCMC>,1,17=EL$ THEN I=LCCNC):SHP=1 RETURN 
MEX4T I:RETURH 

REN 

REM 

2 484 GESTION DISCO 444 


REM ono 
OPEN1, 9,15 
RETURN 





REM AA 

Ri=PA:R2=0 

IF R1>256 THEN R2=INTCPA/236) :R1=R1-256KR2 
PRINT41, "P"CHR$C3+96)CHR$CRI)CHRSCRZICHR$C1) 
RETURN 


REM CONTROLES EN EL FICHERO 
COSUEGBBO : GOSUEGZ0B 
INPUT+*1,A,B$,C,D 

G0SUE6480 : GUSUBECOO 

RETURN 


REM 

REM_444 CARGA LOS DATA ske 
L=LENCYOSCOPZ))-3:L$=RIGHTS(WO$COPZ>,L>:1F OPZ=8 THEN 7085 
UE="ADZ "ESTRECOPZIE" " 

P=C38-L)/2:Pg="":FORK=1TOP:P$=P$+" ":NEXT K 


PRINT"3"5 Ea 

PRINT"MZA e. “DICIONES -ORUM, 4.4." 
PRINT"MZA " Us » 
PRINT "MZA PS; 

IF OP2=0 THEN PRINT" 33 ma"; 

PRINTS; "EPS 

PRINT"IBBDDDDIAS E 
IF 0PZ58 AND OPZ<3 THEN 7034 

X=1 :Y=22 : GOSUB1 1999 : PRINT" —— _.]l>—á—> 
EI PRO A+: ars" 

REM 

IF OPZ=6 THEN RETURN 

ON OPZ GOTO 7110,7110,7042,7042 

L'=37 : GOSUB200B0 : NUC=12: DS=9:GOTO79890 





FOR I=1 TO DS:READ D$C1>,DX(1).DW(1):NEXTI 

Es I=1 TO NUC:READ TPCI>,LCCI),NDCI>,CXC 1), CEI) 
NEXT 1 

RETURN 

REM CONTROL FIN FICHEROS 


IF MXCNRM THEN RETURN 

PRINTHOS 

X=10:Y=10:G0SUB11000:PRINT"EL FICHERO DATOS ESTA AGOTADO" 
X22:Y=20:G005UB11000:PRINT"PULSE UNA TECLA PARA VOLVER AL MENU" 
POKE198,0:WAIT198, 1: RUN 


REM 
REM RUTINA CALCULOS 
REM 


REM RUTINA ERROR 

X=2:Y=6:00SUB11000:PRINT"ANERROR DE INTRODUCCION EN LA LINEAR "¡ER 
FOR T=1 TO 598:NEXT T 

X=2:Y=6:G0SUB11000:PRINT" " ¿RETURN 
RR 


aL] 145,17,29,157,140,133,136,13,25,134,135,0,0,8,9 
DATA"MA <-> URA T/l1/ 4" 
A ES E 
DATA" m0 LI: Ho TOLAO% A 108570" 
DATA" -0 7 : M0 LAO dm 1 " 
DATA" Ma e ne : MOLI 01" 
DATA" da li” : MIOS SALTA 
DATA" a. * 31 : Moo lA AAA 
DATA" da (SEBA AAA 

DATA" ha 2 MAIL RL ON S 
DATA" dh (SB MAA LT TT" 
A LI 14 . 
DATA" M1 v/s EVA A A a 


REM Makai FICHEROS UTILIZADOS Atoll 
DATA"DIS",63,"NOMB",19,"PARA",60,"PREG",40, "CALC", 26 
REM OOOO 0PZ=1(=3) lolo NOÍOÓN 

DATA"FIGURA /.",5,6,"BWOMBRE :",5,8 

DATA" MARAMETROS",17,9, "MREGUNTA :",2,16, "SALCULO", 21,16 
DATA"=",23,18,"=",23,20 

DATA"X",31,18,"X",31,20 

DATA4,1,0,15,6 

DATA3,20,8,14,8 

DATA3,15,0,5,11,3,15,8,21,11 
DATA3,15,0,5,13,3,15,0,21,13 

DATA3,28,8,2.18 

DATA1,6,0,25,12,3,7,8,32,18 

DATA3,20,0,2,20 

DATA1.6,8,25,208,3,7,8,32.,28 

REM atalalalolala lalalala jallafalolojlalalalo jajajajaj 

REM 

REM alolok POSICIONADO EN %X, Y saka 

POKE 211,X 

POKE 214,Y 

Sys58732 

RETURN 

REM 

REM ak GENERACION SISTEMA kk 
PRINTHOS$ : GOSUB7008 
X=9:Y=11:G05UB110088:PRINT"EI TAS TY 77 07 
Y=Y+3:00SUB11800: INPUT"*EH /13/4 (SIZNO) MRS 
IF R$="NO" THEN RETURN 

IF R$<>"SI" THEN 12003 

FOR I=1 TO S 

NF$=FI$(1):GOSUB 6990 

IF A=62 THEN 12020 


12015 
12016 
12017 
12019 
12019 
12020 
12022 
12024 
12026 
12028 
12029 
12039 
12032 
12034 
12036 
12039 


IFA=74THENPR INTHOS :PRINT"MIBBBBIAAAE 7,7107 A 7 Ls/ 74" :G0TO12818 
PRINTHOS :X=6:Y=10:G0SUB11000:PRINT"A| E Ó t Tr Ol 0 +]—" 
NA A A 
X=3:=22:605UB11000:PRINT" PULSE UNA TECLA" PARA “VOLVER AL MENU" 
POKE198,0:WAIT198,1:RUN20 

NEXT 1 

GOSUB69Uu 

FOR Iw=i TO S 

NF$=FISCI) 

IF NF$e"NOMB" THEN AA$="1":G0TO012038 

ARAS ... 

FOR K=1 TO LFCI>:RAS=RAAS+NSS : NEXTK 
OPEN2,8,3,"0:"+NF$+",L,"+CHRS(LENCAAS>+1) 

PA=1 : GOSUBE3UU 

PRINTRZ, ARS 

CLOSE2 


12048 NEXT 1 


12045 
12060 
13090 
13005 
13019 
13015 
13017 
13020 
13021 
13822 
13030 
13035 
13036 
13040 
13045 
13059 
14009 
14091 
14002 
14003 
14004 
14003 
14006 
14008 
14010 
14015 
14018 
14020 
14021 
14022 
14026 
14028 
14030 
14032 
14040 
14044 
14045 
14100 
14112 
14114 
14116 
14118 
14120 
14122 
14124 
14126 
14127 


GOSUB 6400 

RETURN 

REM Ma AYUDA ma 
COmx : CYay 

X=1:v=2 
G05UB11000:PRINTH$C1>;" ms 
FOR HE=2 TO 12 

GETR$: IFR$=""THEN13020 

IF RSCOCHR$(13) THEN 13028 
G0SUB1 1000 :PRINTHSCHE> 
NEXT HE 

GETR$: IFR$=" "THEN13035 

IF RS<OCHR$(13) THEN 13035 
GOSUB11000:PRINT" 
XCO:YaCy 

RETURN 

REM ml DPZ=Z) O 
PRINTHOS :POKES3280,14:0PZ=2:V0$(2)="  +]NTRODUCCION/XARIACION" :GUSUB789U8 
NF$=F1$(2):G0SUB 6908: 1F AC)62 ba _AC374 THEN 14006 
X=2:W=8:005UB11000:PRINT"" Le 7 "04" 

IF Am62 THENY=+2:005UB11000: PRINTI US R1FO f IMLLAT":00TO14116 
GOTO 14116 

G0SUB6000:DOSUB 6209 

PA=1:G0SUB 6800: INPUTH2, ARAS 

MXRSVAL CARS) 

X=7:Y8:G05UB11000:PRINT"/1 7 2 MA r7" 

X= +4: Y +3;005UB11000:PRINT"EXMIEDOM 3/17 77" 
Y='+2:00SUB11000:PRINT"ICALIOM BARA" 
y=+2:005UB11000:PRINT"BC SB) XA AL ON 7 La AL" 
X=16:V=Y+4:005UB11000:PRINT" MELIJA":X=23 

GET R$:IF R$<7"" THEN 14940 

60SUB11900:PRINT" ma?" 

FORT=1T0100:NEXTT 

605UB11000:PRINT" ":FORT=1T0100:NEXTT 

R=VAL(R$): IF RC1 OR R>3 THEN 14026 

IF R=3 THEN 00SUB6400 : GOSUBE688 : RETURN 

IF Rsi THEN 14500 

REM dd VARIAGION alot 

IF MX>1 THEN 14122 

PRINTHOS:X=2:Y=10:G05UB11000:PRINT"BL71 01-70 1/0 a 7/1 70" 
X=2:Y=21:G0SUB11400:PRINT"NPULSE UNA TECLA PARA VOLVER AL MENU" 
POKE198,0:UAIT199,1 - 

CO5UEG400 : GOSUE REO eo rn 

«=0:GOSUB11000:FRINT" ay 

4=0: GOSUB11000:PRINT"EL 01% — Le Mx "LA 07/10 (SI/NO)"; 
INPUT" 2" 5RPS 

IFRP$="NO"THENGOSUB11000:PRINT" il 


Art: eISAa; 





:GOTO14145 


14123 
14130 
14132 
14133 
14134 
14135 
14136 
14137 
14133 
14140 
14143 
14145 
14147 
14148 


IF RP$<>"SI" THEN 14122 
PRINTHOS :PRINT"La 01% 7 LTS ANI 3/07 NT 0: =2:%=2 

FOR I=2 TO Mx 

PA=1 : GOSUBES8M: INPUTR2, ARAS 

Y="4+1 

IF Y<28 THEN 14138 

4=2:Y=22:G05UB11000:PRINT"MUNA TECLA PARA CONTINUAR" :POKE198,08:WAIT198, 1 
PRINTHOS :Y=2 

COSUB11000:PRINT"3"I-1;"NH "¡RAS 

HEXT 1 

¿=0:Y=22:G05UB11006:PRINT" y 
GOSUB25000:G0SUB11008:PRINT"HUAL SE QUIERE VARIAR ";KTS; 

INPUT RE 

IF RE<1 OR RESMx-1 AND RP$="SI" THEN 14143 


14155 IF RE<1 OR RESMX-1 AND RP$="NO" THEN 14145 
14160 RE=RE+1 
14162 PA=RE : GOSUEGEOO : INPUTH2, ARAS: B$(27=AR$ : GOSUBEEGA 


141564 HF$=FI$C(3) :COSUBE200 : PA=RE-1 : GOSUBE590 : INPUTRZ. ARAS: GOSUBSEOO 


14166 K9=1 

14162 FOR I=3 TO 6 

14179 ESCUMIDSCARS,KS, 15: K9=K9+15 
14172 NEXT 





14174 NFS Flscs): GOSUE 6200: PA=RE-1 :GUSUBE300 : ld ARAS: GOSUB 6609 


14176 ES$:7)=LEFTSCARS, 20): E$(10)=RIGHTSCAR$, 20 





14178 NF$=FI$C5):GOSUB 6200: PA=RE-1 :GOSUBE390 : INPUTH2, ARS: GOSUB 6609 


14130 E+cs=LEFTSCARS, 6): ESCOI=MIDFCARS, 7,7) 
14182 B$(11=MID$CAAS, 14,6) :B$(12)=RIGHT$CARS$, 7) 
14184 HF$=FI$(2):GOSUB 6209 
POOLE ":GOSUB 7A0N 





14199 PRINTHOS:0PZ=4:'0O$c0PZ)=" 
14192 FOR I=2 TO 12:TPC1>=5:NEXT 
14194 GOTO 14503 

14500 FENM 44444 INTRODUCCION. HERA 
14502 RE=Mx+1 

14304 OP2=3:WOS$c0PZ5=" 
14506 PRINTHOS:GOSUB 7099 
14503 E$(1)=STR$CRE-15 
14510 GOSUE 2008 


+HTRODUCCION" 


14512 TPcS)=1:TPC11)=1:FORI=2T107 :TPCI)=3:NEXTI:TP(10)=3:TPC12)=3:TP(9)=3 


14514 GOSUB 3499 
14316 IF FS=6 THEN 14510 
14517 IF FS=9 THEN 14514 
14518 1F FS=? THEN COSUB6400 : GOSUBESBO : RETURN 
14520 AR$=B$(2):PA=RE : GOSUEES0O 
14321 HiE=EFC2) 
14522 PRINTH2,AR$:GOSUB 6609 
14524 NF3=FI$(3):COSUB 6200 
AAS=ESCI+BFC9I+ BF) +EF(6) 
22 RESRE-1:PA=RE:COSUE 6800:PRINTR2, RAS: GOSUB 6690 
NF$=FI$(4):GOSUB 6200 
232 AAS=ES(7)+EF(10):PA=RE : GCSUEGIO 
PRINTR+2, ARS: GOSUB 6690 
36 NF$=FI$(S) :GOSUE 6200 
14337 K3(1)=8:K3(2)=11 
14333 FOR K=1 TO 2 
14339 L$=PF(K3CK)) L9=LENCLE) :L8=9 
14540 FOR Ki=1 TO L9 
IFMIDSCLS,K1, € THEN L3S=L8+1:NEXT K1 
¿2 IF Lé=0 THEN 145 
3L1f ¿FOR K2=1 To LS:Li$=L14+"0":NEXT k2 
S Lé=L14+FIGHTSCLE. LOL 
14343 EFK3CK=L4 
3) TK 











14547 ARS EII 
143428 PASRE:COSUE 6509 

14549 PRINTH2Z. SUB 6608 

14550 F3=8:GUSUE 15009 

14555 IF F3<>1 THEM RETURN 

14560 GOTO 14900 

15000 REM %* INTRODUCCION SPRITE +x% 

15001 PRINTHOS;CHE$<14):POKES3280,6 

15006 L2=13:P1=L2464 

15097 TAC1)=195:TAC22=17:TACGO=157 :TAC4=29  TALD)=ES:TAC6) 
15009 FOR I=P1 TO 1+62:POKEI,0:HEXTI 

15010 S5P=53248: POKESP+21,1:POK 
15012 POKESP, 255: POKESP+1,60 
15616 x=1:'Y=8 

15018 FOR J=1 TO 24 

15020 X=%+1:G0SUE1L1000 

15022 J$=5TR$(J>: IF LENCIF$>)=3 THEN J$=RIGHTS$CJF, 2) 
15024 PRINT"A"¡LEFT$(J+,1> 

15026 Y=Y+1:GOSUB11900:PRINT"%Ak";RIGHTSCJS, 1) 
15023 Y=Y-1 

15030 NEXT J 









=83:TA(7)=82 


048,12 POKESP+33, 1: POKESP+23. 1:POKES! 


15032 %=1:=0:GOSUE11000:PRINT"A ":Y=Y+1:GOSUE11000:FRINT"A " 
15034 *=26:Y=8:G0SUB11000:PRINT"A ":Y=Y+1:G05UB11000:PRINT"a " 


15036 X=1:w=1 

15038 FOR J=65 TO J+20 

15040 Y=Y+1:GOSUB11000:PRINT"3A"¡CHR$CJ);SPCC24 "A" 
J 

15043 PRINT" A  "¿NM3;" Rd 

13443 X=28 :Y=0:GOSUE1 1000: PRINT"Mu RÁ 

15046 FOR K1=1 TO 7 


F+ 


1 


15048 A AO E RA EE 
15030 NEXT K 
15052 pena 4 1000: PRIM 
15054 K=10 
(Que FOR Ja TO 21 
15058 K=k+40 
15060 FOR I=k TO K+23:POKEI,160:POKEI+54272,14:NEXTI 
15062 NEXT J 
15070 REM 
15072 REM 
15074 Y=Y+1:G0SUB11000:PRINT"BAE :ENCIENDE"; 
15076 Y=Y+1:GOSUB11000:PRINT"Bwz :APAGA "; 
15073 Y=+1:GOSUB11000:PRINT"BL21 : INTRODUCE "; 
15094 2¿0=2:W0=2:2F=25:YF=22:X=XB:Y=Y0:S1=1: s2= 1:CC=14 
15096 GETAS: IFAS<>""THEN1S108 
15098 GOSUB11000:PRINT"Ya "; 
15100 FOR T=1 TO 30:NEXTT 
15102 GOSUB11000:POKE646,CC:PRINT"A "; 
15104 FOR T=1 TO 30:NEXTT 
15106 GOTO 15096 
15108 GOSUB 15508: 1F F9<>8 THEN RETURN 
15110 GOTO 15096 
152909 REM ====ocaccamn 
15500 REM CONTROL TECLA 








- 15502 FA=0:k9=0 


15544 CA=ASCCAS) 

15506 FOR I=1 TO 7 

15308 IF CA=TACIS THEN FA=1:I=? 

15510 NEXT 1 

15512 1F FA=0 THEN RETURN 

15314 ON FA GOSUB 15530, 15540, 15550, 15560, 15600, 15650, 15700 

15516 RETUEN 

15530 W=W-1:IF Y<W0 THEN W=Y+1:RETURN 

15532 S2=52-1 

15533 GOSUB15600:1F (PEEK(832+BT>AND21B1)>0 THEN CC=0:GOTO 15535 
CC=14 


15535 RETURN 

15540 W=Y+1:1F Y>YF THEN Y="-1: RETURN 

15542 S2=32+1 

15343 COSUB1S600: IF (PEEK(832+BT9AND21B1)>0 THEN CC=6:GOTO 15545 

15544 CC=14 

15345 RETURN 

15550 par WERO THEN =x+1:RETURN 

15352 Si=S1-1 

15553 GOSUB15600:1F (PEEK(832+BT>AND21B1)>0 THEN CC=0:GOTO 15555 
CC=14 


15555 RETURN 
15560 Xx=X%+1: IF X>2%F THEN X=X-1:RETURN 
15562 Si=51+1 
15363 GOSUB15600: IF (PEEKC332+BT>AND21B1)>8 THEN CC=0:G0TO 15565 
15564 CC=14 
15565 RETURN 
15600 REM ENCIENDE EN EL SPRITE 
15602 BT=C32-1)43+INT( (51-178) 
15604 Bl=8-S1+INT(C51-1)/8)49 
15606 IF FA“>S THEM RETURN 
15608 POKE 832+BT.PEEK(232+BT) OR 21BI 
15610 IF C(PEEKC332+BT)ANDZTEI>>0 THEN CC=8 
15612 1F X=XF+1 THEN %=2:W=Y+1:RETURN 
15614 RETURN 
15658 REM APAGA EN EL SPRITE 
52-1)3+INTCC51-17/85 
1+INTCCS1-1)/87%8 
6: ESE THEH FETURN 
156538 POKE 832+BT,PEEK(332+BT) AND (2395-21BI> 
15660 IF (PEEKCS32+ET>0R21E1)>0 THEH CC=14 
15662 IF x=XF+1 THEN *=2:YW=+1: RETURN 
15664 RETURN 
15700 REM 4% FASE DE GRABACIÓN 4444 
720 FOR 1=0 TO 62 
B1=PEEK:¿332+15:E14(1=STR$CB1> 
IF El<10 THEN B13c15="00"+FICHTS$CB1$C1),12:COTO 15730 
IF E1<100 THEN B1$c1)="9"+RIGHT$(B1$C1),2):60T015730 
El13(I0=RICHTECB1FC 170,35 
HEXT 1 
: HE=1+3CFE-1) 
HE3=FIFC15 0 GOSUEGZ00 
3 AAr="" 
5 FOR 1=4 TO 26 












379 vas dee 
2192 HE; 
PASHR:GOSUE 62300:PRINTH2Z, AAS 
o NESNF +10 ARg="" 
FOR I=21 TO 41 
AAS=ARS+E1S CIO 
NEXT 1 
PA=HNE : COSUE 
HR=MR+1:ARF= 
2 FUR 1=42 TO 62 

ARS=ARS+E1$C 15 
: NEXT 1 
PA=NR:GOSUE 6300: PRINTH2, ARAS 
COSUFE60n 
GOSUE 6400 :GOSUB 6990: GOSUB €000 
IF OP223 THEH GOSUES4BO:GOTO1S325 
AAR= Mad mé STRE CIN 
IF Mi<10 THEH Mx$="90"+RIGHTICMAS, 19: G0T015795 
IF Mx<100 THEN Mx$="0"+RIGHTSCMX+. 2) :G0T015795 
3 RAS=MX$ 
FOR I=1 TO 17? 
Y AAS=ARG+ "4": NEXT 
HF$=F 1$(2) : GOSUB 6200: PA=1 :GOSUBESOO 
215 PRINTAZ. ARAS 
COSUB 6600:GOSUE 6400 

: UB11000:PRINT"ALETORHO AL MENU (Sm 7%; 
GETRE: TFRI= "THEN 15830 
IF R$="S" THEN F2=2:RETURHN 
IF R$<>"N" H 158 15) 
F9=1:POKES3 / y + HNDZ34 : RETURN 
REM. === FIN INTRODUCCIÓN FIGURA --- 
A REM PESTORE DATA 
FESTORE 
O FOR I=0 TO 62:READ D:NEXTI 
FOR I=1 TO NY:READ X$:NEXTI 
235 FORK=1 TO 3 

20030 FOR I=6 TO 62:READ D:NEXTI 
200339 MEXT K 
20045 IF LY<B THEM RETURN 
20050 FOR I=1 TO LY:RERD LW$:NEXTI 
26100 RETURN 
25000 REM ---- 
25005 MeS=STRECMX=1) 
23007 IF Mé<10 THEN Mis=RICHTE (ME, 1) COTOZSOZ0 
25010 "IF MX<100 THEN MX+=RICHTSCMAE, 2) :GOTO25020 
23020 KTS="(1-"+MX$+")" RETURN 






D:PRINTH. ARAS 












GU 


12 NIP MATH FERAERREA AA 
13 ! 25014 

15 227 :Y=11:GOSUB11000:PRINT"RINTRODUCIA EL DISCO DATOS" a+ 33 
16 COSUB11000 PRINT"Y PULSAR UNA TECLA" 

17 CET A$:1F A$<9"" THEN PRINTHOS:GOTO20 

3 FOR T=1 TO 400: NEXTT:COTD13 
20 DIM ESC20),TPC209,LOC209,NDC200 CRC 20), 0200, DCZ, Di 20) 
21 DIM TFC150, DEC 200 408100, FIGCS0, HEC12 0 B1F (520, E2404) 
24 DIÑ P(4),2(6)+CM309),0PC9) 






23 PEN 

26 Elg=" ":PDi=". "o ASE="=" 0 HSg="4" 0 HOF="J" SL E=" 0 
ed POKE 650,122 

70 FESTORE 


23 FOR l=1 TO 15: FERAD TF: HEXTI 

40 FOR I=1 TO 12:FREAD H$¿1>:NEXTI 

43 FOR I=1 TO S'READ FIF4c1>:NE%TI 

SA FOR I=1 TO 4:READ CM$CI>:HEXT 1 

100 FEM +++ FLUJO PRINCIPAL 44% 

110 PRINT HO$:POKES3280, 14 

120 0F2=1 40Fc15=" UTA Aé USO) " 

130 GOSUB 7000 

133 HEF$=F 1420 GOSUE 6506 

140 1F AC562 AND AX>74 THEN 150 

, BE 67950 

Y=3:GOSUB11099:PRINT"5A4 TT LAN T TITAN" 
VE11000:FPRINT"e LA E A 
SUE 11606: INPUT" A ¡HN 

22 IF H=0 THEH 150 

163 IF H3D THEH GOSUE 15000:G0T0180 







O H=H+1 

2 GOSUE 15010 

IF H¿B THEN 200 
=2:Y=13:GOSUB11000:PRINT""- A STTAAS" 

FOR T=1 TO 1008:HEXTT:RUNZO 

200 FEM REGISTRO IDENTIFICADO 

205 H=N-1:P=1+34C0H-1) 6 

210 REM 

212 PRINTHOS 

220 NF$=FI3(1):GUSUE 6200 

22l rs ¿GOSUE 6300: INPUTRZ. ARS 


224 FOR 19 TO 20 

226 Ki=K 

222 pedo" A HIDEARSA KI, 3 

230 HEXT 

231 PASPA: GOSUB 6800: INPUTH2, RAS 

232 Ki=-2 

234 FOR 1=21 TO 41 

236 Ki=k1+ 

232 ELECO MIDSCARS,K1, 2 

240 HEXT 1 

241 PA=PA+1:GOSUB 6800: INPUTR2, AAS:COSUB 6600 
242 Ki=-2 

244 FOR 1= a TO 62 

246 Kl=K1+ 

242 a uruscas, K1,3) 

250 HEXT 

260 FOR I= 2 TO 62:POKES32+1,WALC(B1$(1)>:NEXT 1 
262 PRINTHOS;CHR$(14) 

263 X=4:Y=4:G0SUB11000:PRINT"2";HOS 

264 L2=13'PI=L 2464 

266 3P=53248: POKESP+21,1:POKE2040,L2:POKESP+39, 1 :POKESP+23, 1:POKESP+23. 1 
258 POKE SP,230:POKE SP+1,60 

"O NF$=FI$(3):COSUBG200: al N: GOSUBE209 

2 

















EN COSUB 6608 

Kix 

FOR I=1 TO 4 

SO ¿K1,153+" =":Ki=Kk1+15 

HEXT 

WF+$=F1$(4>:GOSUB 6200 

PA=H: GOSUEE3OO : INPUITRAZ, ARAS: COSUB 6600 

SORT =":BS(6)=RIGHTSCARS,20)+" =" 
GOSUB 15200 

6 RENA MASCARA W RESPUESTAS + 








2000 
GOSUB 3000 
3 IF FS=6 THEN 350 
IF FS=9 THEN 360 
> 1F FS=7 THEN POKES3269,PEEK(53269)AND254 :RUNZO 
R$(1>=B$(11):R$(27=B$C12) 
FEM 44+ ANALISIS RESPUESTAS INTRODUCIDAS +++ 
Ni=1:N2=7? 
NF$=FI$(5):COSUE 6200 
GOSUBS300: INFPUTR2, ARAS 
GOSUE 6600 
ID 





== 21) 

82 IF CHF=CHRS(32) OR CHF=CHR$(35) THEN43S 
A1=ASCUCHE) 

IF A1>543 AND A1<37 THEN 432 

FOR L=1 TO 4 

26 IF CHé=CMEÉCLY THEN OPCK1)=L:L=4 

HEXT L 

IF OPCK125=1 AND OPCK12<=4 THEN K1=K1+1:C0T0433 
NPCK+1)=WALUCHE> 

2(K+10=PoNPEK+100 

K=l a 

32 NEXT 

FEM $ FIN BUCLE DE EXTRACCION DE RESPUESTAS +4* 
3 2(6)=2(1) 

FOR I=1 TO 3 

2 1F OPC1=0 THEM I=3::60T0509 

ON OPCI) GOTO 460,470, 450,498 





500 
El 2 500 

458 2(6)= =206)+2 141): GOTO 569 

499 2(67=2(6-211+1) 

S00 NEXT 1 

502 FEM 

305 FORJJ=1T04 :NP<JJ>=0-0PCJJ)=8 0 2CJ JO: NEXTIJ 

518 206+=INTC2CIE2ZCE0> 

512 IF RIS2 THEN PÚKES3269, PEEK(523269)AND234 : RUN20 

315 IF 2055=INTCYALERECRID 2 THEN 700 

320 REM +44 ERROR 44 

322 REM 

323 X=B:Y=0:GO0SUB 11000:PRINT"MA-— 07101 ME" ¿RIG UIT" 

S¿? FOR T=1 TO 1500 :NEXTT 

=6:COSUE 11000:PRINT"MALIERE VER LA FORMULA (3N2" 

¿GOSUE 15600 

H"THEN:=0:Y=0: COSUB11000:PRINT" ":COT 


540 1F R$<>"5" THEN 535 

543 COSUE 2000:REM + PRESENTA FORMULA + 

350 PRINTHOS :%=39:Y=4:GOSUB11000:PRINT" "¿NOS 

959 2=25:Y=24 :COSUE11000:PRINT"Añ= 1-41: 41/74"; :GO0TO350 
ron nen +++ SIGUIENTE PESPUESTA 444 

ros FEM 

715 Ni=14:N2=20 

v17 X=0:Y=0:GOSUB 11000:PRINT"MA 971/01 MM" ¿RIU RAA 1" 
v13 FOR T=1 TO 1500:NEXTT 

r19 *=0:Y=0:GOSUB 11000:PRINT" E 
720 RI=RI+1:COTO412 

E EAS 

2009 REN 

2005 REM 444 PRESENTA MASCARA dk 

2615 FORI=1TODS:X=DX(1):Y=DYC1>:COSUE11000:PRINT"A"D$CI):NEXTI 
2030 FOR J=1 TO HUC 

20732 
2050 IF TP<J)<53 AND TPCJ)<594 THEN 2060 

20394 X=CXCJ) ¿E Y=CW CJ): GOSUB11000:PRINT"A" 5 ESCJ) 

2056 GOTO 2130 

7] posa ¿N2=NDCJ) 1F TFCJ>=1 OR TPCJ>=2 THEN Cé=NS$:COTOZ070 
20564 C$=A34 

2079 FOR I=1 TO N1-N2-1:A$=A$+C4 : NEXTI 

2075 IF N2=0 THEN A$=A%9+C4$: COTO 2095 

2020 AS=A$+FDS 

2090 FOR I=1 TO H2:A$=A3+"0":NEXTI 

2095 K=CXCJ)¿=C CJ): GOSUE 11000 

2026 FRINT "M";AF;"a" 

2097 BSCJ)="" 

2093 FOR K=1 TO N1-N2-1 

2100 ESCIO=B3ICJ)+NSS 

2103 MEXT K 

2106 IF H2=0 THEN ES(J)=B39(J)+H54: GOTO 2130 

2110 ESCJo=ESCJ)+PD$ 

2120 FORK=1TON2:BS$(J)=BS(J)+N3$ : NEXTK 

2130 NEXT J 

2150 RETURN 


3 FEM 
3010 REM +* DATA ENTRY 44 
3030 J=1 
3040 HC=J: 2=CXUNCO + W=CYONCI 
3050 CC=1 
3060 COSUE 3240 
20€5 IF FS=2 THEN RETURN 
3070 IF FS=0 THEN 3100 
2039 IF FS>4 THEN 3210 
3029 GOTO 3120 
3100 REM CARACTER 
3105 J=J+1:1F JóNUC THEN 3030 
3110 GOTO 3040 
3120 ON FS GOTO 31230.,3150,3170.3190 
3130 IF J>1 THEN J=J-1:G0TO0 3040 
3140 FS=0: J=NUC:COTO 3040 
3150 IF J<NUC THEN J=J+1:G0TO 3040 
2160 FS=0:COTO 3030 
3170 IF CC<LCCJ) THEN S=1:CC=CC+1:%=%+1:GOSUB 11090:GOTO 3060 
3190 FS=0:GOTO 3100 
31530 IF CC>1 THEN S=-1:CC=CC-1:%=X-1:G05UB11000:GOTO 3060 
2208 FS=8:GOTO 3040 
3210 FEM 
2220 IF FS>S THEN FS=0:GOTO 3060 














IF FS=S THEN FS=0:GOTO 3109 
RETURN 
REM 
250 UN ** LECTURA DE 1 CAMPO 44 
IF TP¿HC=4 THEN RETURN 
IF TPCNC)=2 THEN GOSUE 2090: RETURN 
IF MIDFCESCNCI,CC, 19=PD% THENX=>%+5:CC=CC+S 
GOSUP 11000 
B GET AS:IF AS<5"" THEN 3332 p 
GOSUE11000:PRINT" aa"; :GOSUB11000:PRINT"A";MIDECESFONCI/ CCA 105 
34 FOR T=1 TO 20:NEXT T 
3336 COTO 3330 
3328 IFASCCUAS) 
3340 PRINT" 
3350 CA=ASCUAF) 
3360 FOR I=1 TO 15 
3378 IF TFCI=CA THEN FS=1: I=15:GOSUE3620: RETURN 
3373 IF po THEN RETURN 
3300 NEXT 
3290 IF TPcrOs THEN 3450 
3490 1F CA=45 OR CA=46 ORCCA>=43AMDCA<=57)THEN3420 
2419 COTO 3320 
3420 1F CAC946 THEMI450 
3430 COSUB 4270 
3449 IF SHP=1 THEN 3410 
5=1:G05UB 3520 
IF CESLCCNC) THEN RETURH 
78 CO=COe x= ¿GOTO 3310 
3 REN 
nen 4 TRASFERENCIA AL BUFFER 44 
En 
IF CC=1 THEN SH$ ¿GOTO 3590 


SH$=LEFTFCERCNC O, CC-10 
IF CCOSLCCNC THEN DES+="":GOTO3610 
































HaLCONCICO? DESF=RICHTECEFCONCI NO 
ESCMCI=3HG+AF+DES 

Y RETURN 
REM 


Y REM 4% COMANDOS 44 
n 
32% THEN 3710 





3 THEN COSUE 13000: RETUEN 
3 THEN GOSUE 40230: RETURN 
THEN RETURN 

2 COÓSUE 3740, 32910 





3 ON FS 

2 RETURN 

FEn 

REM + INSEFCION +4 
mM 


TF CO=LCCNCITHEN RETURN 
IF CC=1 THEN SH$="":GOTOZ200 


SHILEFTSCESCMC,CO-1) 
H=LCCNCICC+1 DEF IGHTECEFONCIS NO 
O C4=EL4 


3530 Af==3M$+C$+DES 

DE: =LEFTFCAF,LOCHCIO 
== 
MC MENCI GOSUE 11000 


0 


PRINT BSCMC):S=- 
A IF PIOHTSCES CNC), 1)= PDF? THEN 3730 
O 


pen Jet BORRADO HRR4A 


ie TP(NCI<1 THEN 3950 

IF MIDSCESCNCI,2,1)=FDS AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF CC=LC(NC> THEN DE$="":COTO 23980 
N=LC(NCI—CC : DES$=RICHTECEFCNCA ¿M7 
SN3=LEFTFCBSCNC), EC-1) 

IF TP<NC>=1 OR TPONC=2 THEN C$=NS$:COTO 4010 
C$=AS+ 

BSF(NC)=SN$+DES+C$ 

He=x 1 = Y 

A=CHONCO + 1=CYONC) :GOSUB 11000 


XXX == 

PRINT BS$CNC>:S=1 RETURN 

REM da ALINEADOS IARRAAR 

IF LC<NC>=1 THEN RETURN 

N1=LC<NCI-CC+1 

IF CC=1 THEN BS$(NC>="":COTO4100 
BS$C(NCI=LEFTSCESCNCO,CC-1) 

IF TP(NC>=1 OR TP(NC>=2 THEN 4159 

FOR I=1 TO Ni - 

BSCNCI)=ESÚNCI+BLS 

NEXT 1 

GOTO. 4190 

FOR I=1 TO Ni 

BS(NCI=CHRFC32+BS (NC) 

NEXT 1 

IF RICHTS$C(BSC(NC>, 1)=PDF THEN ESCUNCI=BL4+LEFTSCES UNC), LOCNCI10 
X=CXCUNC :Y=CYÚNC):GOSUB 11009 

PRINT BS$CNCo RETURN 

REM 4 CTRL PUNTO dee 

SHP=0 

IF CC=1 OR CC=LC(NC) THEN SWP=1:RETURN 
FOR I=1 TO LC<MC) 

IF MIDSCBFCNCI, 1, 1=BL$ THEN I=LC(NCA :SHP=1 : RETURN 
NEXT I:RETURN 

25N 


pen Ak GESTION DISCO Ak4 


AU 


PE 
OPEN2,8,3,NF$ 
RE! 


RÍSPA:R2=0 

IF R1>256 THEN R2=INT(PA-256):R1=R1-2564R2 
PRINTH 1, "P"CHR$(3+96)CHRSCR1)CHRECRZICHREC(1> 
RETURN 

REM 

REM CONTROLES EN LOS FICHEROS 
COSUEE000 : COSUEE200 

INPUTR*1,A.B+$,C.,D 

GCOSUEE6460 : COSUBEEOO 

RETURN 

REM 44 COMPROBACION ERRORES DISCO 44% 


2 IF A=62 THEN Es="FICHERO DATOS NO HALLADO" 


IF A=74 THEN E$="ERROR, DISCO FUERA DE LINEA" 

PRINTHOS :X=2:'Y=5:COSUB11000:PRINT"J3"EF 
X=6:Y=22:60SUB11000:PRINT"NPULSE UNA TECLA PARA CONTINUAR" 
POKE195,B: WAIT 198,1 

PO0OKE1938.4:RUN 13 

REM 


REM 43 CARGA LOS DATA a 

L= A EN, L> 

V3=">»0Z 3" 

P=C30-L>/2:P$="":FORK=1TOP:P$=P3+" ":NEXT K 
PRINT"S";5: O S 
PRINT"MZA n.1.0. "DICIONES —ORUM. 6.4." 
PRINT"MXA "UE; «a d 
PRINT"MA q Ps 

IF OP2=0 THEN PRINT"3S m4"; 


PRINTEC PR 

FRINT "IBAI » 
IF OP2=1 THEN RETURN 

eE wW=24: GOSUE11000:PRINT"Añz 41: RIA 

IF OP2=06 THEN RETURN 

ON OFZ GOTO 7110,7042 

2 L'=36 : COSUB20000 :NUC=12: DS=2:G0TO7990 

FOR I=1 TO DS:READ D$C1),DXc1),DYC1>:NEXTI 

FOR I=1 TO NUC:READ TPCI),LOCID NDC IT), OCIO, OCIO 
















RETURN 

50 REM 44 PRESENTACION FORMULA ak 

COSUE S100 

3 PRINTHOS :%=4:'7=4:GOSUB11000:PRINT"3"NO$ 
$ Fis="" ¡Fsa"" 

FOR J=1 TO 7? 

Li=0 

2 C1é=MID$CA$,J,1> 

o TO 4:1F C1$=CM$CL) THEN L=4:L1=1:Fi$=F13+" "+C1g+" " 
IF Li<58 THEN 2024 

2 F1é=F1$+B28VALCC1GI0 

NEXT J 

F3=" MESTRECZCSI IA" mn "+F1g 





'=Y+2:G0SUB11000:PRINT"N"¡LEFTSCESCRI+40), LENCBSCRI+4 1) 
Y=v+2:G05UB11000:PRINT"NE": "¡FS 
X=3:Y=22:005UB110006:PRINT"MUNA TECLA PARA CONTINUAR" 
POKE199,0:WAIT198, 1 

REM 

POKE198,0:RETURN 

REM Molalolok EXTRAE DE LOS BUFFERS molan 

FOR B=1 TO 4 

B2$(B)=BS(B):L9=LENCB2$CB)>-1 
B2$(B)=LEFTS$(B25(B),L9) 

BBsa"" 

FOR K9=1 TO L9 

S$=MID$(B2$(B>,K9, 1 

IF S$=CHR$(32) OR SS=CHRSCIS) THEN 8120 

BBS=BB$+5$ 

NEXT K9 

B2$(B)=BES 

NEXT B 


TURN 
LEA ME DATA ol 
pera 145,17,23,157,140,133,136,13,25,134,135,0,0,8,0 


10007 DATA" <-> MA TA" 
A a SI A E 1 a 
10012 DATA"%A ML]: Mo TO LAO A 100570" 
10014 DATA" 0 /1 : 0 LAO ht 10 * 
10016 DATA"dh 0 “TO/ : HU 0 Lt0% 418 Y > 
10018 DATA" abi MASA AA AA a 
10020 DATA" da TA EI 
10022 DATA" da (OO AA AAA . 
10024 DATA" da (7 METIA 17 LA 0474 E 
10026 DATA" dh (2 : MHSALT717 Lé0 07157 .!0. 
10028 DATA" — -|-L+! A Ms 

10030 DATA"Ma-l ,-/ ¿HALA | NL » 


10035 REM xl FICHEROS UTILIZADOS ado 
10048 DATA"DIS","NOMB", "PARA", "PREG", "CALC" 
10050 REM meollo OPERADORES Holaa dol 
10055 DATA"x", “ ? LIA li dl] Ma 

10100 REM alla OPZ=2 AMoaloOOOlOR 
10102 DATA"sLOS VALORES CONOCIDOS SON :",4,8 
10104 DATA" ALCULAR :",4,18 

10110 DATA4,15,0,6,10 

10111 DATA4,15,0,6,12 

10112 DATA4,15,0,6,14 

10113 DATA4,15,08,6,16 

10114 DATA4,28,0,4,28 

10115 DATA4,20,08,4,22 

10116 DATRA4,1,0,24,18 

10117 DATA4,1,0,24,12 

10118 DATA4,1,0,24,14 

10119 DATA4,1,0,24,16 

10120 DATA1.5,0,27,20 


10121 
10200 


DATA1.,5,0,27,22 
REM aaalalolalaalolalalalalalalolajldlicjalo lolo 


11008 REM 


11091 

11005 
11019 
11015 
11029 
13098 
13005 
13018 
13015 
13017 


:13020 


13021 
13022 
13030 
130339 
13036 
13040 
13045 
13050 
15000 
15002 
15004 
15006 
15010 
15012 
15014 


3 


REM_kxMok POSICIONADO EN Xy Y AMM 

POKE 211,X 

POKE 214, Y 

sYs58732 

RETURN 

REM KA AYUDA o 

COex: CV=y 

X=1:Y=24 

COSUB11000:PRINTH$C1);" "; 

FOR HE=2 TO 12 

GETR$: IFR$=""THEN13020 

IF RSOCHR$C13) THEN 13020 
GOSUP11000:PRINTHS(HE); 

NEXT HE 

GETR$: IFRS=""THEN13035 

IF R$OCHR$(13) THEN 13035 
COSUP11800:PRINT"M Ai A 
X=CO : Y=CY 

RETURN 

REM XA NOMBRE FIGURA *kk 

X=2 :=+2:GOSUB11000: INPUT" 20UE NOMBRE ";NO$ 
IF NOS$="FIN" OR _NO$="_»/" THEN PRINTHOS:PRINT"3S":CLR:LOAD"ARITMETICA",8 
IF LENCNOS)>20 THEN NOSSLEFTSCNOS, 20) 

COSUE 6000 :NF$=FI$C2):GOSUE €208 

PA=1:GOSUE 6808: INPUTH2, ARS 

MX=VALCARS) 

IF N)O THEN 15100 

L9=20-LENCNOS): IF L9=0 THEN 15030 

IF L9<0 THEN N=0:G0T015110 

FOR J=1 TO L9:NO$=NOS+CHR$(32) :NEXTJ 

FOR RE=1 TO Mx 

PA=RE : GOSUBE200: INPUTH2, ARS 

k9=8 

FOR J=1 TO 20 

5 C1S=MIDFCRAS,J,1):C24=MIDSCNOS;J, 1) 

IF C1S=CHR$(32)> OR C1$=CHR$(25) THEN K9=K9+1:GOTO 15042 
IF C1$=C2$ THEN K9=K9+1 

NEXT J 


3 IF K9=20 THEN N=RE:RE=Mx 


NEXT RE 


50 IF K9=20 THEN 15110 


N=9:GOTO 15119 


9 IF HoMx THEN N=9:60TO0151109 


PA=N : COSUBE800 : INPUT+2, RAS 
GOSUB 6600 : NO$=AH$ : RETURN 
REM dk PREPARACION WALORES Ad 


5202 FOR K=1 TO 4 


F=8 


3 PCK3=INTCORNDOO A+ 1741 


L$=LEFTS$(BSCK>, 1) 
IF L$=CHR$C32) OR L$=CHR$(35) THEN1S230 
IF K=1 THEN 15224 


5 FOR I=1 TO k-1 


IF PCID=PCKO THEN I=k-1:F=1 
NEXT 1 

IF F>0 THEN 15205 

REM PREPARA EUFFERS $ 7-19 
BScK+6)=STRECPCKOO 


23 ES(K+E)=RIGHTECBGCK+572, 1) 


NEXT K 


239 RETURN 


REM kk ESPERA DE 1 CARACTER a 


2 CET P$:1F R$<>"" "THEN RETURN 


GOSUE 11000:PRINT"=m7" 


S FOR T=1 TO 100: MEXTT 


GOSUE 11000:PRINT" " 


610 FOR T=1 TO 1609:NEXTT 





GOTO 15662 


O REM des RESTORE DATA RRdda4 
? RESTORE 

3 IF LY<G THEN FETURH 

9 FOR I=1 TO LY:READ LW+:NEX«TI 


RETURN 


RELACION DE LAS VARIABLES - COMMODORE 64 


Aritmética 


DES(+«) 
DS(«) 


= nombres de los cestos 

= matriz que contiene las preguntas 
previstas 

= número de símbolos presentes en 
los 4 cestos 

=matriz de las cadenas para la 
comprobación de las respuestas. 

= matriz que contiene los factores 
multiplicadores a presentar 
(1000x,100x, 10x, 1x) 


NS(+) 
TS (+) 
ADS$(+) 


AX(«) 
BX(+) 


BASE 


= posiciones en la pantalla de las 
cadenas AD$(«) 

=número máximo de símbolos si- 
multáneos en un cesto 

HOS = borrado en pantalla 

N =número a sumar 

S$ = nombre del cesto en que sumar 

M = número del cesto en que sumar 

10 = número del cesto actual 

FIN = flag para salir del programa 

AS$ = Cadena que contiene los acarreos 

en forma alfanumérica 

ER = flag de error 

N$ = valor aleatorio en forma alfanumé- 

rica (4 cifras) 


Geometría 
BS(+) 


= matriz de los buffers (1 por campo 
de introducción) 

= longitud del campo de introduc- 
ción 

= número de decimales en el campo 
de introducción 


LC(») 


ND(+) 


= coordenadas en el vídeo del cam- 
po de introducción 


CX(+) 
CY (+) 


DX(+) 
DY (+) 


TF(+) 


= Coordenadas en pantalla de la 
descripción 

= matriz numérica que contiene los 
códigos ASCII de las teclas de co- 
mando 


2212 


DS(«:) 
VOS$(+) 
BL5$ 
PD$ 
AS$ 
NS$ 


HOS 
NUC 


DS 
FIS(») 
LFS(») 


HS(«) 
B15(+) 


A,B5,C,D 
NFS 

KTS 

MX 

LZ 


P1 


= descripciones en las máscaras ví- 
deo 

=voces del menú principal 

= blank 

= punto decimal 

= Carácter "—”. Identifica los campos 
de introducción alfanuméricos 

=cCcarácter “*”. Identifica los cam- 
pos de introducción numéricos 

= borrado de pantalla 

=número de campos de introduc- 
ción en la máscara vídeo activada 

=número de descripciones en la 
máscara vídeo 

= matriz de los nombres de los fi- 
cheros de datos utilizados 

= longitud registro de ficheros datos 
utilizados 

= matriz de las cadenas ayuda 

= matriz que contiene los valores 
sprite en forma alfanumérica 

= variables de comprobación de 
error en el disco 

= fichero datos considerado 

= nombre de la figura a modificar 

= último registro insertado 

= bloque de memoria reservado a 
datos sprite 

= dirección de partida para intro- 
ducción datos sprite 

= matriz de las teclas de comando 
en creación sprite 

= índice de la tecla pulsada en crea- 
ción sprite 

= número de la figura considerada 

=puntero al registro de principio 
lección 

= respuestas 

= valores útiles para cálculo 

= Operadores previstos (“+”, “—", “/”, 
0") 

= mensaje de error en disco 

= nombre de la figura pedida 





Aritmética / Versión Apple Il 





Aritmética 
10 REM 
20 REM 
30 REM 


33 REM '' INTEGER A 
40 D$ = CHR$ (4): 
PRINT D$: 
FRINT D$: "BLOAD CAR.D1"z 
FRINT D$ 
60 RESTORE : 
ZE$ = "000"; 
> BP$ = CHR$ (7) 
70 FOR 1 = 1 TO 4: 
READ XS(D): 





NEXT 1 

80 FOR 1 = 1 TO 42 

READ XM(I): 

NEXT 1 

90 BS =" e 
BAS = B$ + B$ + Bs + B$: 
Bs = 

100. CF$(4) = "MILLARES": 
CF$(3) = "CENTENAS" 

110  CF$(2) = "DECENAS": 
CF$(1) = "UNIDADES" 


120 GOSUB 5000 
130  A$ = "OTRO NUMERO ? (S/N) Sl 


: 





Y = 23: 
X= 09: 
GOSUB 20300 
140 GET B$: 
IF BS < "S" AND B$ > UN" 
THEN 140 
150 IF B$ = "S" THENA= FRE (0): 
GOTO 120 
160 TEXT: 
HOME : 
END 
300 DATA 9.18.26.35.6.16,25.35 
SO REMO o 
510 REM PRESENTA CABECERA 
SR REMO 
530  HGR2 + 
GT = 1: 
As = "E. 6. 8. EDICIONES 
FORUM, S.A. " 
540 X= 1: 
Y = 1: 
GOSUB 20300: 
RETURN 
30007 REN === 
5010 REM START 
a 
5030  GOSUB SO: 
GOSUB 35000 


3035 REM NUMERO RANDOM 
5040 NX = INT ( END (1) x 9999 
Es 
IF NX < 1000 THEN 5040 
5045 NC = MX: 
GOSUB 18000 
5050 A$ = "COMPON EL MUMERO " 
5060 X= 10: 
A E 
GOSUB 20300 
3070 6T = 1: 
As = STR$ (NX): 
GOSUB 20300 
5080 GT = 0: 
FOR IP 
5090 x= 


=1T04 
9: 


Ln 


5120 


5130 


5140 
5150 


5160 


un 
or 
Cn 


5170 


5180 


5190 


3200 


5230 


5240 


5250 


5260 


5270 


5280 


5290 


Y = 23: 

A$ = "CUANTAS " + CF$LIFP) 

24m >. 

ET = 0: 

G0SUB 20300: 

XC=9+%+ LEN (AS): 

YC = 23 

GOSUB 20100: 

G0suB 20000 

IF AO < 48 OR AO > S7 THEN S11 


= CHR$ (40): 
B$ = STR$ (V(S5 - IP)) 
AS = B$ THEN 5170 


Y = 23: 

AS = "ERROR. LA CIFRA " 
+A$ + "NOES " + CF$(IP) 
PRINT BP$: 

GOSUE 20 
GET B$ 
A$ = LEFTS (BA$.35): 





GOTO 3090 
CP = 3 ="1P8 
NP = YV(5 - 1P)s 
KO E 
GOSUB 30100 
A$ = LEFT$ (BA$.30): 
Xx 2s 
Y = 23 
GOSUE 20300: 
CS = NP 
GOSUB 30200 
NEXT IP: 
As = LEFTS (RA$,25) 
X = 10: 
O 
GOSUB 20300: 
Y = 27 
X 
Y = 23: 
AS = "CUANTO QUIERES SUMAR 2": 
GOSUB 20300 
YC = 23: 
XC = 31: 
GOSUB 20100: 
GOSUB 20000 
IF AO < 48 OR AO > 57 THEN 5220 
N = VAL ( CHR$ (40)):2 
AS = STR$ (NC) + "+" + STR$ (N) 
Xx = 10: 
Y =7: 
GOSUB 20300: 
Y = 23 
AS = LEFTS (BA$.23): 
1:= 93 
GOSUB 20300 
AS = "CUANTOS SON 2": 
x=9: 
GOSUB 20300 
YS = 23 




















Momo 








GOSUB 20400 
C$ = LEFTS$ (C0$. 10): 
FOR 1 = 17104 
IF C$ = CF$(1) THEN 5320 


5300 


5330 


5340 


3345 





5395 


5400 


3410 


5420 


3430 


5435 


5440 
5450 


3460 





NEXT 1: 

FRINT BP$:: 

As = LEFTS (BA$.30): 
x= 9 

G0SUB 20300 

GOTO 3260 

CP = IT: 

as LEFTS (BA$.20): 
O 

GOSUB 20300 

MAPA 

A$ = MIDS (2E$.1,2) + "="; 
Xx 16: 

Y Del 


GOSUB 20300: 

Y= 23 

A$ = "EN QUE CESTO ? ": 
x= 9 

GOSUB 20300 

XG.=. 23% 

YC = 23 
GOSUB 20100: 
GOSUB 20000 


X= 





Y = 23: 
As = CHRs (A0): 
GOSUB 20300 
IF AO 49 OR AO S2 THEN 5340 
XP = VAL ( CHR$ (A0)) 
IF XP = CP THEN 5400 
As LEFTS (BA$.25): 
Xx = 9: 
GO0SUuB 20300 
A$ = "EL CESTO "+ STR$ (XF) 
+ " NO ES CORRECTO": 
Xx =9: 
GOSUB 20300: 
GET B$ 
A$ = LEFTS (BA$.30): 
X= 9 
GOSUB 20300: 
GOTO 5330 
CM = INT (10 * (CP = 1))2 
CV =N E CM 
= NC + CV: 
IF NC = 9999 THEN 5430 
As = "ERROR. LA SUMA SUPERA 9999" 


x=9 
GOSUB 20300: 
PRINT BP$:: 
GET B$: 
RETURN “ 
FOR 1 = 1 T0 4: 
VP(D) = VC(I): 
NEXT 1 
As = LEFTS (BA$.25): 
x=9: 
GOSUB 20300 
GOSUB 18000 
FOR IP = 1 7104 
IF VPLIP) < > YVLIP) THEN KO 





CP = 1P: 

NP = VPCIP): 
GOSUB 30100: 
KO = 1: 

NE = (IP): 
GOSUB 30100: 
CS = VLIP): 
G0SUB 30200 





3470 NEXT IP 
O At = STR$ (NC): 













18000 
18010 





R$ (NC) 
TO 4: 


A 


TO 4 
VAL ( MIDS (NC$.1.1)) 


18050 


< 
- 
h 


18060 NEXT li 
. RETURN 
20000 REM ==. 
20010 REM ESPERA Y PARPADEO CURSOR 
20020 REM ===> 
20030 AO = PEEK ( - 16384): 
y IF AD > 128 THEN POKE - 16368,0 
AO = A0 - 128: 
RETURN 
20040 T=T+ lt: 
IF T < 10 THEN 20030 
20050 T= 1: 
IF. PEEK (PL) < > PV THEN 
PORKE PL.PV: 
GOTO 20030 
20060 POKE FL, 127 — PVz 
GOTO 20030 
DOLOO REM ===. 
20110 REM ENCIENDE CURSOR XC.YC 
DOLBO REM == 
20125 IF XC < 1 OR XC > 40 THEN XC 
= 1 
20127 1F YC < 1 OR YC > 24 THEN YC 
= | 
20130 POKE PL.PV 
20140 LOC = 23423 £ (YC < 9) + 23463 
k (YC > 8) k (YC < 17) + 23503 
1 (YC > 16) + (YO - Bt (YC 
> 8) - 8 k (YC > 16)) £ 128 
+ XC 
20150 FV = PEEK (LOC): 
PL = LOC: 
POKE LOC.127 - FU 
20160 RETURN 
20200 REM ——--- 
20210 REM CARACTER HI-RES 
20220 REM ===> 
20230 + (00 - 32) 48) 





20240 Xx (Y 9) + 16293 
3 (Y < 17) + 16335 
AY 216) E >= 8 4 200) 
BIC INT IG ARA TX 
0F0R 1 = 17108 
POKE LOC. FEEK (10 + 1) 
70 LOC = LOC + 1024 
O NEXT 1 
20 RETURN 
RAS AS 
O REM CADENA EN HI-RES 









IF As = N RETURN 

LL = LEN (A$): 

FOR IL = 1 TO LL 

0 = ASC ( MID$ (A$. 11,1): 





20340 





REM ENTRADA CADENA 





20420 


20430 


20440 
20450 
20455 
20460 
20470 


20480 
20490 


20500 
20510 


20520 


20530 


20540 


20550 


20560 
30000 
30010 


30020 


30030 


30040 


30050 


30050 


30070 
30080 
30100 
30110 
30120 
30130 


30140 


30150 


30160 


30170 


30180 


30200 









= 0 THEN LO = 41 - XS 
20100 
20000 


= 23 OR A0 = 26 THEN RETURN 

IF AO = 13 THEN C$ = MID$ (C$, 1, 
IC): 

GOTO 20550 

IF AO < > 1 THEN 20500 

IF IC = O THEN 20450 

10-=:10.-: 13 

XC = YC - 1: 

GOTO 20440 

IF IC = LO THEN 20450 

IF AO = 19 THEN IC = IC + 1: 
XC.= XE +1: 

GOTO 20440 

CO = AO: 

X = XC: 

GOSUB 20200: 

PV = PEEK (LOC — 1024) 

C$ = MID$ (C$,1.1C) + CHR$ (CO) 


+ MIDS$ (C$.IC + 2,39) 
IC = IC + 1: 
XC = XC + 1: 


GOTO 20440 
AS = MID$ (BA$,1,LO - IC)»: 
X = XS + IC: 
C$ = CS + As 
GOSUB 20300: 
RETURN 
REM 
REM DIBUJA CESTO XC, YC 
REM === 
GT = 2: 
Co = 38: 
FOR Y = YC TO YC + 3 
X = XC:z 
GOSUB 20200: 
X = XC + 4: 
GOSUB 20200 
NEXT Y: 
Y mr YO + 32 
FOR X = XC + 1 TO XC +3 
GOSUB 20200: 
NEXT X: 
CO = Só: 
6T = 2 
Y =YC+4 
FOR X= XC - 1 TO XC + 5 
G0SUuB 20200: 
NEXT X: 
RETURN 
REM 
REM NP BOLAS EN EL CESTO. CP 
REM — — 











AP AEREA A O 

YP = 15 

IF NP < 1 OR NP > 9 THEN RETURN 
X = XPz 

Y = YP: 

GT 

co 

IF Ko 1 THEN CO = 81 

FOR N = 1 TO NP: 


GOSUB 20200 

X=X +1: 

IF X — XP = 3 THEN X = XP: 
NL 





30250 


30260 


30270 
30290 
35000 
35010 


353020 


33030 


35040 


35050 


33050 


5070 


35080 


35090 


335100 


35110 


33120 


33130 


REM PARCIALES 
19: 
XS (CP) 
STR$ (V(CP)): 
ASC (AS): 
O: 
GOSUB 20200 
NED 
X = XM(CF): 
CM-= 10 * (4 = CP) 
CV = CM y CS: 
A$ = STR$ ( INT (CV)) 
IF CV = 0 THEN B$ = STRS$ (CM): 
L = LEN (BS): 
6% = MID$ (BA$.1,L - 1) + AS 
GOSUB 20300: 
RETURN 
SES 
REM DIBUJA MASCARA 





GOSUB 20300 
X = 16: 

AS = "7777": 
GOSUB 20300 
X= 232 

As 777": 
GOSUB 20300 
X = 33: 

AS = "77": 
GOSUB 20300 
co 3 








a 
] 


20200 


4: 
E 20200: 
= 34; 

GOSUB 20200 
AS = "1000X" 


ul 
Ul 


o 


KDDS 


Y 
Xx 
60 
Xx 
G 
X 


Y = 18: 

X= 6 
GOSUB 20300 
AS = "100X": 
X = 16: 
GOSUB 20300 
AS = "10X": 
X = 25: 
GOSUB 20300 
AS = "1X": 
X = 33: 


GOSUB 20300 





O A$ = "MILLARES CENTENAS DECENAS 


UNIDADES": 
Y =11 

X= 4 
GOSUB 20300: 
RETURN 


Geometría, Generación 


10 
20 
25 
25 
30 
35 
35 


40 


as 


REM 
REMO GEOMETRIA GEN. 
REM VERSION DOS 

REM 
REMO! INTEGER Y 

DS = CHRS (4): 

BP$ = CHAS (7) 

BS = " ": 

BA$ = B$ + B$ + BS + E$: 


30 


$60 


70 
80 


110 
120 


130 


140 


160 


170 


180 


190 


200 


210 


220 


230 
240 
250 
300 
si0 
520 
530 


2000 
2010 
2020 


Bé= o "" E 
DIM D$(11),B$(11),TP(11),LC(11),X 
D(11),YD(11),XC(11),YC(11) 

FRINT D$: 

FRINT D$;"BLOAD CAR,D1": 

PRINT D$ 


GOSUB 300 
A$ = "CUANTAS UNIDADES HAY ? (1/2 


pr 





GOSUB 20300 

GET B$: a 

IF BS< > "i" ANDBS< > "2" 
THEN 90 

DR$ = E$ 

GOSUB 20400: 

A$ = "INTRODUCIR DISCO DATOS EN U 
NIDAD " + B$: 

Xx = 4 

GOSUB 20300: 

GOSUB 20700 

ONERR GOTO 40000 

A = FRE (0): 

GOSUB 500 

A$ = "1, GENERACION": 

X = 11: 

Y dde 

GOSUB 20300 

$ = "2, INTRODUCCION VARIAC.": 
= 41: 

Y = 13: 

GOSUB 20300 

$ = "3, FIN DE TAREA": 

11: 

15: 

GOSUB 20300 

A$ = "CUAL 9: 

X = 11: 

Y = 19: 

GOSUB 20300 

GET B$: 

IF B$ < "1" OR BS > "3" THEN 170 
IF B$ = "3" THEN TEXT 2 

HOME : 

END 

IF B$ = "2" THEN 240 

GOSUB 500: 

A$ = "GENERACION EN CURSO": 

GT = 1: 


=D 


<xo»b 
. o. 


Xx = 10: 

Y = 13: 
GOSUB 20300: 
GT=0 

NF$ = "NOMB": 
LR = 20: 
GOSUB 4000 
NR = 1: 

AOS = "1": 

+ GOSUB 5400: 
GOSUB 6600 
GOTO 120 
GOSUB 5000 
GOTO 120 
A 
REM CABECERA 
REM 
HGR2 : 

AS = "E. 6. S. EDICIONE 
S FORUM, S.A. 
GT = 1: 

X = 1: 

Y =1: 

GOSUB 20300: 
6T = 0: 
RETURN 

REM AA 
REM MASCARA 
REM 


2040 


<0S0 


2070 


2080 
2090 


3010 
3020 


3030 


3040 


3060 
3070 
3085 
3090 
3100 
3110 
3115 


3120 
3130 


3140 
3150 


3160 


3170 


3180 


3190 


5000 








T=0: 
XD(1C): 
YD(IC): 
= D$(10) 
UB 20300: 
LEN (B$(I1C)) 
L < LC(IC) THEN B$(IC> 
= B$(IC) + LEFT$ (BA$,LC(IC) 
> 1) 
IF TP(1IC) < > 4 AND TP(IC) 
< > 5 THEN B$(IC) = LEFTS ( 
BA$,LC(IC)) 
GT = 1: 
Xx = XC(IC)S 
Y YC(IC): 
A$ = B$(1C) 
GOSuB 20300 
NEXT IC: 
RETURN 
REM al 
REM DATA ENTRY 
A 
cc 
GT 
xS 


Ben 


6 
X 
No 
A 
Sl 
L 
I 


5 
Ñ 


"a 


XC(CC): 

YS = YC(CC) 

LO = LC(CC): 

GOSUB 20400 

IF AO = 5 OR AO = 18 OR AO 
= 27 THEN RETURN 

IF AO < > 26 THEN 3100 
CC = CC + 12 

IF CC > NC THEN CC = 1 

IF TP(CC) = 4 THEN 3080 


GOTO 3040 
IF AO < > 23 THEN 3130 
CC = CC - 1: 


IF CC < 1 THEN CC = NC 

IF TP(CC) = 4 THEN 3110 

GOTO 3040 

IF TP(CC) < > 1 THEN B$(CC) 

= CS: 

GOTO 3080 

FOR 1 = 1 TO LC(CC) 
C= ASC ( MID$ (C$,1,1)): 
IF (C < 48 OR C > 57) AND C 
< >32ANDC< > 46 THEN 
GOTO 3040 

NEXT 1: 

C$ = MID$ (C$,1, IC) 

AS = MID$ (BA$,1,LC(CC) — 

LEN (C$)) 

AS = AS + C$: 

B$(CC) = A$: 

X = XC(CC): 

Y = YC(CC) 

GOSUB 20300: 

GOTO 3080 

REM. 

REM STAR 

REM —- 

NFS = 

LR = 20: 

GOSUB £000 

NR = 1: 

GOSUB 6200: 

MX = VAL (AM$): 

AG = 0: 

GOSUB £500 

GOSUB 500: 

AS = "INTRODUCCION O ACTUAL IZACIO 

N ? (1/0): 


lOMB": 





2 AO BA A 


5070 


5080 
5090 


5100 


si10 


5120 


5125 
5130 


5135 


5137 


5140 


5150 


S152 


5155 
si60 


Ss170 


5180 


5190 


5200 


3210 


5220 
6000 
£010 
£020 
6030 
6040 


6050 
6060 
6200 
6210 
6220 
6230 
£240 
6250 
6260 
6270 


THEN 5060 
GOSUB 20600: 
IF BS = " THEN RE = MX + 1: 
GOTO 5130 
IF MX > = 2 THEN 5100 
AS = "NO HAY LECCIONES": 
Xx = 12: 
GOSUB 20300: 
GOSsuB 20700: 
RETURN 
As = "NUMERO DE LECCION 9": 
Xx = 10: 
GOSUB 20300 
1: 
28: 
13: 
LO = 2: 
GOSUB 20400 
RE = VAL (C$) + 1: 
IF RE < 2 OR RE > MX THEN 
PRINT BP$;: 
GOTO S110 
GOSUB 20400 
LM = 1: 
GOSUB 7000: 
IF AG = 1 THEN FOR 1 = 1 TO 11: 
TP(I) = 4: 
NEXT 1: 
GOSUB 30500 
AS = "LECCION N." + STR$ (RE 
EXE 





ES 
un 
".... 


.u 


X=1 

Y =3 

GOSUB 20300 

AS = "PARAMETROS": 

X= 17: 

Y =29: 

GOSUB 20300 

GOSUB 2000: 

IF AG = 1 THEN GOSUB 7000 

GOSUB 3000: 

IF A0 = 18 THEN RETURN 
IF AO = 27 THEN GT = O: 

GOTO 5130 

GOSUB 30300 

GOSUB 35000: 

GOSUB 35100 

NFS = "DIB": 

LR = 30: 

GOSUB £000 

KO = 10 £ (RE - 2) + 1: 
GOSUB 30000 

GOSUB 4600: 

IF AG = 1 THEN RETURN 

NF$ = "NOMB": 

LR = 20: 

GOSUB £000: 

MX = MX + 1: 

NR = 1 

AAS = STR$ (MX): 
GOSUB 4400: 

GOSUE 4600 

RETURN 

REN: ¡2 
REM APERTURA FICHERO 
REM 
PRINT DS 

PRINT D$; "OPEN"¿NF$ + ",D" 
+ DRS;",L "¿LR + 2 
PRINT D$ 

RETURN 

REN == ———_—_—_ 
REM LECTURA REGISTRO 
REN === 
PRINT D$ 

PRINT D$; "READ"¿NF$;",R"5NR 
INPUT AAS 

FRINT D$ 

RETURN 


6410 
6420 
6430 
6440 
6430 
6460 
6470 
6600 
6610 
$620 
6630 
6640 
6650 
6660 
7000 
7010 
7020 
7030 


.7040 
7050 
7060 


7070 


7080 

10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 


10080 
10090 
10100 
10110 
10120 
20000 
10 
20020 
20030 





20040 


20050 


20060 


20100 
20110 
20120 
20125 


20127 


20130 
20140 





REM AA A A A 
REM ESCRITURA REGISTRO 
A 
PRINT DS 


PRINT DS; "WRITE"¿NF$;",R"¿NR 
PRINT — CHR$ (34) + ARAS 
FRINT Ds 
RETURN 
Ro 
REM CIERRA FICHERO 
REM == 
PRINT D$ 
PRINT D$;"CLOSE"¿NF$ 
PRINT D$ 
RETURN 
REM: ===> 
REM LECTURA DATOS 
REM 
IG = 1: 
RESTORE 
READ NC 
FOR IC = 1 TO NC 
READ D$(IC),TP(IC),LC(IC),XD(1I 
C),YD(IC), XC(IC),YCL(IC) 
NEXT IC: 
IF LM< > IG THEN 16 = IG 
$ De 
GOTO 7040 
RETURN 
REM --- DATOS --- 
DATA 11 
DATA "NOMBRE",3,20,7,6,14,6 
DATA “1.",3,15,3,11,5,11 
DATA "2.",3,15,23,11,25,11 
DATA "3.",3,15,3,13,5,13 
DATA "4.",3,15,23,13,25,13 
DATA "PREGUNTA", 3,20,2,16,2,18 





DATA "=",1,6,23,18,25,18 

DATA "X",3,7,31,18,32,18 

DATA "CALCULO", 3,20,25,16, 2,20 
DATA "=",1,6,23,20,25,20 

DATA 3,7,31,20,32,20 

REM === === === 

REM ESPERA Y PARPADEO CURSOR 

REM 

AO = PEEK ( - 16384): 

IF AO > 128 THEN POKE - 16368,0 





AQ = AO - 128: 

RETURN 

T=T+1: 

IF T < 100 THEN 20030 
T=1: 

IF PEEK (PL) < > PV THEN 
POKE PL,PV: 


GOTO 20030 

POKE PL,127 - PV: 

GOTO 20030 

REM === 
REM ENCIENDE CURSOR XC,YC 


REM ===" — 
IF XC < 1 OR XC > 40 THEN XC 
=1 

IF YC < 1 0R YC > 24 THEN YC 

= 1 

POKE PL,PV 

LOC = 23423 * (YC < 9) + 23463 
% (YC > 8) K (YC < 17) + 23503 
1 (YC > 16) + (YC - 8 k (YC 

> 8) - 8 X (YC > 16)) £ 128 


+ XC 
PYV = PEEK (LOC): 
PL = LOC: 


POKE LOC,127 - PV 


O RETURN 


REM 


O REM CARACTER EN HI-RES 
O REM A == 


20230 


20240 


20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 
20325 
20330 


20340 
20350 
20360 
20400 
20410 


20420 
20430 


20440 


20455 


20460 


20470 
20480 


"20490 


20510 


20520 


20530 


20540 


20550 


20560 


20500 
20610 
20620 
20630 


20540 
20700 
20710 
20720 
20730 





IO = (245735 + (CO — 32) € 8) 
+ 6T Y 512 
LOC = 16255 E (Y < 9) + 16293 
1 (Y>8) 3 (Y < 17) + 16335 
3=1V.> 161 + (Y =B:8 (1-78) 
- 81 (Y > 16)) £ 1298 + X 
FOR 1 = 1 T08 
POKE LOC, PEEK (10 + 1) 
Loc = LOC + 1024 
NEXT 1 
RETURN 
RA: === 
REM CADENA EN HI-RES 
Co 
IF A$ = "" THEN RETURN 
LL = LEN (AS): 
FOR IL = 1 TO LL 
CO = ASC ( MID$ (A$, 1L,1)): 
GOSUB 20230 
X=X+1: 
NEXT IL 
RETURN 
PE oa 
REM ENTRADA CADENA 


XC = XS: 
YC = YS: 
IC = 0: 
Y = YC: 

C$ ="": 

IF LO = O THEN LO = 41 - XS 
GOSUB 20100 

GOSUB 20000 

IF AO = 5 OR AO = 18 0R AO 

= 23 OR AO = 26 OR AO = 27 

THEN RETURN 

IF AO = 13 THEN C$ = MIDS (C$, 1, 
IC): 

6G0TO 20550 

IF AO X< > 1 THEN 20500 

IF IC = O THEN 20450 

1 ISE 

XC = XC - 12 

GOTO 20440 

IF IC = LO THEN 20450 

IF AO = 19 THEN IC = IC + 1: 

XC = XC + 12 

GOTO 20440 

CO = AO: 

X = XC: 

GOSUB 20200: 

PV = PEEK (LOC - 1024) 

C$ = MIDS (C$,1,IC) + CHR$ (CO) 
+ MID$ (C$,IC + 2,39) 


IC = IC + 1: 
XC = XC + 1: 
GOTO 20440 


A$ = MIDS$ (BA$,1,LO — IC): 
X = XS + IC: 

CS = C$ + AS 

GOSUB 20300: 

RETURN 

REN == 

REM BORRA LINEA Y 

RA AA 
X=1: 





A$ = LEFTS (BA$,40): 
GOSUB 20300 





GOSUB 20600: 

RETURN 
RA A 
O REM DIBUJO EN EL DISCO 





30040 FOR J = 1 TO 10 
30050 AAS = AMAS + STR$ (CC(1,J)) 
+ STR$ (GG(1,J)) 
30060 NEXT J: 
GOSUB 4400 
30070 NEXT 1: 
RETURN 
30300 REM: == === == 
30310 REM DATOS EN EL DISCO 
30320 REM: "== ===== 
30330 NF$ = "NOMB": 
LR = 20: 
GOSUB 6000 
30340 NR = RE: 
AS = BS(1): 
GOSUB 6400 
30350 GOSUB 6600: 
NF$ = "PARA": 
LR = 60 
30360 GOSUB 000: 
AAS = B$(2) + B$(3) + B$(4) 
+ B$(5) 
30370 GOSUB 6400: 
GOSUB 6600: 
NFS = "PREG" 
30380 LR = 40: 
GOSUB 6000: 
AAS = B$(6) + B$(9) 
30390 GOSUB 6400: 
GOSUB 6600: 
NFS = "CALC" 
30400 LR = 26: 
GOSUB 5000: 
ARAS = B$(7) + B$(8) + B$(10) 
+ B$(11) 
30410 GOSUB 6400: 
GOSUB 6600: 
RETURN 
30500 REM ——————————————————-- 
30510 REM LECTURA DATOS DEL DISCO 
30520 REM 
30530 NF$ = "NOMB"; 
LR = 20: 
GOSUB 6000 
30540 NR = RE: 
GOSUB 6200: 
B$(1) = AAS 
30550 GOSUB 6600: 
NFS = "PARA": 
LR = 60 
30560 GOSUB 6000: 
GOSUB 6200 
30570 B$(2) LEFTS (AA$,15): 
B$ (3) MIDS (AA$,16,15): 
B$(4) MID$ (AA$,31,15): 
B$ (5) MID$ (A0$,46,15) 
30580 GOSUB 6600: 
NF$ = "PREG": 
LR = 40: 
GOSUB 6000 
30590 GOSUB 6200: 
B$(6) = LEFT$ (AA$,20): 
B$(9) = MID$ (AA$,21,20) 
30£00 GOSUB ££00: 








NF$ = "CALC": 
LR = 26: 
GOSUB £000 


30610 GOSUB £200: 
B$(7) = LEFTS$ (AA$,6): 
B$(8) = MIDS$ (AA$,7,7): 
B$(10) = MID$ (AM$,14,6): 


30620 
35000 
35010 
35020 


35030 


353040 


359050 
35060 
35070 
35080 


35090 


35100 
35110 
35120 


35130 


35140 
35150 
35160 
35170 
35180 
35190 


35195 
35200 


35210 


35220 
35230 


35240 


35230 


35260 
35270 
35280 


33290 


33300 


35310 


339320 


B$(11) = MID$ (AAM$,20,6) 
GOSUB £600: 
RETURN 
REM 
REM INIC. PANTALLA CONST. DIBUJO 
RA 
HGR2 : 
6T = 0: 
A$ = "SET= N": 
X = 1: 
Nm 2 
GOSUB 20300: 
Xx = 30: - 
A$ = "SIMBOLO=" 
GOSUB 20300 
HCOLOR= 3: 
HPLOT 97,23 TO 168,23 TO 168,104 
TO 97,104 TO 97,23 
HPLOT 96,22 TO 169,22 TO 169,105 
TO 96,105 TO 95,22 
HPLOT 265,7 TO 273,7 TO 273,16 
TO 265,16 TO 265,7 
FOR I = 1 TO 10: 
FOR J = 1 TO 10: 
CC(1,J) = 32: 
GG(1,J) = 0: 
NEXT J: 
NEXT 1: 
RETURN 
AE 
REM CONSTRUCCION DIBUJO 
AM 
I=1: 
J=1; 
XC = 15: 
YC = 4; 
Ss0 = 0: 
Cc = 32 
GOSUB 20100 
GOSUB 20000 
IF AO = 23 THEN YC = YC - 1: 
GOTO 35200 
IF AO = 19 THEN XC = XC + 1: 
GOTO 35200 
IF AO = 1 THEN XC = XC - 12 
GOTO 35200 
IF AO = 26 THEN YC = YC + 1: 
GOTO 35200 
GOTO 35230 
IF XC < 15 OR XC > 24 THEN XC 
= 15 
IF YC < 4 OR YC > 13 THEN YC 
=4 
GOTO 35140 
IF AO < > 8 THEN 35270 
CL. CCo= de 
1F CC < 32 THEN CC = 95 
CO = CC: 
X = 39 
Y =2: 
GOSUB 20200 
GOTO 35150 
IF AO < > 21 THEN 35310 
CL = CC + 12 
IF CC > 95 THEN CC = 32 
Co = CC: 
X = 39: 
Y = 2: 
GOSUB 20200 
GOTO 35150 
IF AO < > 32 THEN 35380 
SO. ="50 + 12 
IF SO > 3 THEN SO = O 


”uosa 


530 GT = SO:2 


IF SO > 1 THEN GT = 50 - 2 
AS = "Ni 
IF SO > 1 THEN As = "6" 


0X=6 


y 


GOTO 33150 
> 13 THEN 353430 





200 

35400 PY = PEEK (LOC - 1024) 

35410 CC(YC — 3,XC - 14) = CC: 
GG(YC - 3,XC - 14) = 6T 

35420 GOTO 35140 

35430 IF AO < > 24 THEN 35470 

35440 


“mou 


o 
Mon 


O 


32: 
0: 
= XC: 
= YC: 
CC(YC - 3,XC - 14) = 32: 
GG(YC - 3,XC - 14) = GT 
35450 GOSUB 20200: 
PU=0 
35460 GT = SO: 
GOTO 33140 
35470 IF AO < > S THEN 35550 
35480 A$ = "SEGURO ? (S/N)":z 
X = 12: 
Y = 20 
35490 GT = 1: 
GOSUB 20300 
335500 XP = XC: 
YP = YC: 
XC = 27: 
YC = 20 
35510 GOSUB 20100: 
GOSUB 20000 
339520 IFAO< >83ANDAOX<X > 78 
THEN 35510 
35530 X = 12: 
As =" “8 
GT =0: 
GOSUB 20300: 
XC = XP: 
YC = YP: 
GT = SO 
35535 IF A0 = 78 THEN 35140 
33540 RETURN 
339550 IF AO < > 18 THEN 35150 
35560 GOSUB 5600: 
RETURN 
40000: REM: —-=—===== 
40010 REM GESTION ERROR 
40020 REM ----=======-- 
40025 TEXT : 
HOME 
40030 IF PEEK (222) = S THEN 40130 
40040 IF PEEK (222) < > 8 THEN 40060 
40050 PRINT "COMPROBAR EL DISCO DATOS": 
END 
40060 IF PEEK (222) < > 13 AND 
PEEK (222) < > 11 THEN 40080 
40070 PRINT "NOMBRE FICHERO NO VALIDO": 
END 
40080 IF PEEK (222) < > 9 THEN 40100 
40090 PRINT "DISCO LLENO": 
END 
40100 IF PEEK (222) < > 4 THEN 40115 
40110 PRINT "DISCO PROTEGIDO": 
END 
40115 L = PEEK (218) + 256 k PEEK (21 
9) 
40120 PRINT "ERROR "; PEEK (222);" IN " 
3L: 
END 
40130 PRINT "LOS DATOS NO EXISTEN": 
END 


Geometria, Uso 





JO = HEM. 
20 METRIA USO 
25 'SION DOS 
30 (2 

CHR$ (7) 

" 

bl + Et + BS + BS 
70 PRINT D$: 


PRINT D$: "BLOAD CAR.D1": 
PRINT DS 
20 DIM E$(11) 


GI$ = "CUANTAS UNIDADES HAY ? (1/7 





110 GT =0: 
GOSUB 20800 

120 GET As: 
IF AB > "IM ANDAS <> 2" 


THEN 120 








O: 
INTRODUCIR EL DISCO DATOS 
EN LA UNIDAD " + DR$: 
GOSUB 20800 
GOSUB 20700 
ONERR GOTO 40000 
GOSUB 5000 


180  GI$ = "OTRA FIGURA? (S/N)": 








GOSUB 20800 
190 GET BS: 
> "S" ANDES < > UN" 





THEN 190 

200 IF B$ = "S" THEN 170 
210 TEXT: 

HOME +; 

END 

REM 

REMO CARECERA 





EDICIONE 


540 





NE da 
GOSUB 20300: 


GT = 0: 
RETURN 
REMI==== 
REM START 






2 


GOSUB 20400 
5070 N= VAL (C$): 
IF N > 0 THEN 5100 
5080  GOSUB 204600: 
As = "NOMBRE DE LA FIGURA?" 
5090 X= 2: 
GOSUB 20300: 
XS = 20: 
LO = 20: 
GOSUB 20400 
si00 GOSuB 3500 
S110 IF N >0 THEN 5140 
Si20 GOSUB 20600: 
GI$ = "LA LECCION NO EXISTE": 


5240 


3250 


5260 


5280 


5300 
5310 


5330 


5340 


3350 


3500 
510 


5520 


GO0SUuB 20800 
GOSUB 20700: 
GOTO 5030 
KO = 10 X (RE - 2) + 1: 
NF$ = "DIB": 
LR = 30 
GOSUB 5000: 
GOSUB 30100 
GOSUB 20400 
GOSUB 6400: 
GOSUB 30200 
GOSUB 8000 
GOSUB 8500 
Y =17: 
FOR VR = 1 TO 2 
IR = 6: 
IF VR = 2 THEN IR = 9 
IF B$(IR) = LEFTS (BA$.20) 
THEN 5310 
X=i: 
As = BS(IR) + "=": 
GOSUB 20300 
XS = 22: 
yS a Yo 
LO = 5: 
GOSUB 20400: 
GOSUB 12000 
IF ER = 2 THEN Y = 22: 
GT = 1: 
FRINT BP$:: 
GI$ = "ATENCION. FORMULA ERRON 
EA": 
GOSUB 20800: 
GOSUB 20700: 
TEXT : 
HOME : 
END 
IF ER = O THEN 5300 
Xx = 30: 
GT = 1: 
AS = "ERROR": 
PRINT BP$:: 
GOSUB 20300 
YY = Y: 
6T = 0: 
GlI$ = "QUIERES VER LA FORMULA 
2 (S/N) "e 
YN 22p 
GOSuB 20800 
GET B$: 
IF B$< > "S" AND B$ < 
> "N" THEN 5270 
GOSUB 20400: 
AS =" 4 
Y = YY: 
Xx = 30: 
GOSUB 20300 
IF B$ = "S" THEN GOSUB 14000 
Y = YY: 
GOTO 3230 
Y mem Y +2 
NEXT UR 
GI$ = "QUIERES PROBAR CON OTROS Y 
ALORES? (S/N) "s 
Y = 22: 
GOSUB 20800 
GET BS: 
IF B$< > "S" ANDBS$< > "N" 
THEN 5330 
GOSUB 20600: 
IF B$ = "S" THEN Y = 17: 
GOSUE 20600: 
Vieti9s 
GOSUB 20600: 
GOTO 5180 
RETURN 
AM ES 
REM LECTURA NOMBRES 





5400 


6000 
£010 
6020 
6030 
6040 


6050 
£060 
6200 
5210 
6220 
6230 
6240 
6250 
6260 
5270 
6600 
6510 
6620 
6630 
6640 
5630 
6660 
gnoo 
8010 
8020 


8030 


8040 








NF$ = “NOMB": 

LR = 20: 

GOSUB 6000 

NR = 1: 

GOSUB £200: 

MX = VAL (ARS) 

IF N > 0 THEN 5390 

FOR NR = 2 TO MX: 
GOSUB £200 
IF ARS = C$ THEN N = NR 
48 
GOTO 3590 

NEXT NR: 

GOSUB 6600: 

RETURN 

RE =N+ 1: 

IF RE > MX THEN N = O: 

GOSUB 6600: 

RETURN 

GOSUB 6600: 


FICHERO 





PRINT D$ 

PRINT DS: "OPEN"¿NF$ + ".D" 
+ DRS;".L":LR + 2 

PRINT Dé 

RETURN 

REM A 

REM LECTURA 
NAO 
PRINT Ds 

PRINT DS: "READ":NF$; ",R"¿NR 
INPUT AAS 

PRINT Ds 

RETURN 

REM <= 








REA 
PRINT Ds 
PRINT D$: "CLOSE":NF$ 
PRINT D$ 
RETURN 
REN ¿<= 
REM — PREPARA MASCARA 
REM 
GT = 0: 
As = B$(1):; 
X = 13: 
Yom Ae 
GOSUB 20300 
Y=7: 
FOR IV = 2 TO S: 
IF BS(IV) = LEFTS (BAR, 15) 
THEN 8060 
AS = ESCIV) + "=": 





REM 


e 1 TO 4: 
PD =0: 


FOR I = 1 T0 4 
IF B$(1 + 1) = LEFTS (BA+.13) 


THEN 8400 
X= INT ( AND (1) * 10): 
IF X < 2 THEN 8560 
FOR J = 1 TO 4: 

IF X = P(J) THEN 8560 
NEXT J 
PU) Xx 


8600 
8610 


8£20 
8630 


8640 
8650 


12000 
12010 
12020 
12030 


12040 
12050 


12060 


12070 


12080 
12090 
12100 
12110 
12120 


12130 


12140 





12180 
12185 


12190 
12200 
12300 
12510 


12600 
12610 


12700 
12710 


12800 
12810 


14000 
14010 
14020 
14030 


NEXT 1: 
IF P(1) = FP THEN 8530 
Y=7: 
FOR IVY = 1 104 
IF P(IV) = O THEN 8650 
x= 29: 
AS = STR$ (P(IV)): 
GOSUB 20300 
Va +2 
NEXT IV: 
RETURN 
EAS ASS == 
REM ANALISIS RESPUEST/ 





FI = 11 
MT = VAL (B$(IM)): 
RR = INT ( VAL (0$)) 


FOR 1 = 1 T0 7 
K$ = MIDS (B$(F1),1.1): 
IF K$< >" " THEN FM$ 
= FM$ + K$ 

NEXT 1: 

SP = 1: 

RL = (FMS): 

OF =0: 

1 =0 

FOR 1 = 1 TO RL 


K$ = MIDS (FM$,1,1) 
IF SP = - 1 THEN 12140 
IF K$ < "1" AND K$ > "4" 
THEN RETUEN 
IP = VAL (K$):2 
IF P(1IF) = 0 THEN RETURN 
IV = IV + 1: 
VECIV) = PCIP): 
GOTO 12150 
IF K$< > "+" AND Kks$ < 
> "-" ANDKS< > "E" AND K$ 
"/" THEN RETURN 
OP = OP + 1: 
OP(OP) = ASC (K$) - 41 
APNEA 
NEXT 1: 
IF SP = 1 THEN RETURN 
IF OP. = 0 THEN RT = VP(1): 
GOTO 12185 


O FOR I = 1 TO OP 


ON OP(I) GOSUB 12500, 12600, 10, 


12700,10, 12800 


NEXT 1 

ER = 0: 

RT = INT (RT 4 MT) 

IF RT<  >RR THEN ER = 1 
RETURN 

REM MULTIPLICACION 

RT = VP(I) € VPLI + 1): 
VP(1 + 1) = RT: 

RETURN 

REM SUMA 

RT = VP(D) + VP(I + 1): 
VP(I + 1) = RT: 

RETURN 

REM RESTA 

RT = VP(I) - VP(I + 1) 
VP(1 + 1) = RT: 

RETURN 

REM DIVISION 

RT = VP(1D) / VP(I + 1): 
VPC(I + 1) =:RT: 

RETURN 

REM; ==_=====23 >, 
REM ESCRITURA FORMULA 
RE: === 


FS = “%: 


14040 
14050 


14060 
14070 
14080 
14090 


14100 


14105 
14110 
14120 
20000 
20010 


20020 
20030 


20040 


20050 


20060 
20100 
20110 
20120 
20125 
20127 


20130 
20140 


20150 


20160 


20210: 


20220 
20230 


20240 


20250 
20260 
20270 
20280 
20290 


20310 
20320 
20325 
20330 
20340 


20350 


FOR 1 = 1 TO RL STEP 2 


IP VAL ( MID$ (FM$,1,1)) 
FS = Fé + BS(IP + 1) + 
MID$ (FM$,1 + 1,1) 
NEXT 1: 
L = LEN (FS): 
BIS ="" 
FOR 1 = 1 TOL 
K$ = MID$ (F$,I,1) 
IF K$< >" " THEN GI$ 
= G1IS + K$ 
NEXT 1: 


GI$ = "(" + G1S +") 

IF MT< > 1 THEN GI5 = Gl$ 
+ "*" + STRS (MT) 

Y = 22: 

GOSUB 20800 

GOSUB 20700: 

Y = 22: 

GOSUB 20600 

RETURN 

REA ——— nn 

REM ESPERA Y PARPADEO CURSOR 


AO = PEEK ( - 16384): 

IF AO > 128 THEN POKE - 16368,0 
: 

AO = AO - 128: 

RETURN 

T=eTeda 

IF T < 100 THEN 20030 

UC 

IF PEEK (PL) < > PV THEN 
POKE PL,PV: 

GOTO 20030 

POKE PL,127 - PV: 

GOTO 20030 

REN A 

REM ENCIENDE CURSOR XC, Y! 

REM =oooenononcanname _ 

IF XC < 1 OR XC > 40 THEN XC 
=1 

IF YC < 1 OR YC > 24 THEN YC 
=1 

POKE PL, PY 

LOC = 23423 k£ (YC < 9) + 23463 
Xx (YC >8) k (YC < 17) + 23503 
Y (YC > 167 + (YO -=:8 E (YE 
> 8) - 8 X (YC > 16)) £ 128 
+ XC 


PV = PEEK (LOC): 

PL = LOC: 

FOKE LOC,127 - PV 

RETURN 

REM 

REM CARACTER EN HI-RES 

REM eno 

10 = (24575 + (CO - 32) k 8) 


+ GT * 512 

LOC = 16235 K (Y < 9) + 16295 
Xx (Y >8) K£ (Y < 17) + 16335 
* (Y > 16) + (1-8 (1>8) 
-8k (Y > 16)) £ 128 + X 





FOR'I = 1 708 
POKE LOC, PEEK (10 + 1) 
LOC = LOC + 1024 

NEXT 1 

RETURN 

REM a crm 

REM CADENA EN HI-RES 

REM A e 

IF AS = "" THEN RETURN 

LL = LEN (M8): 


FOR IL = 1 TO LL 
CO = ASC ( MIDS (AS, IL,1)): 
GOSUB 20230 
X= Xx+d: 

NEXT IL 

RETURN 


20400 
20410 
20420 
20430 


20440 
20450 
20455 


20450 


20470 
20480 
20490 


20500 
20510 


20520 


20530 


20540 


20550 


20560 


20600 
20610 
20620 
20630 


20540 
20700 
20710 
20720 
20730 


20740 


20800 
20810 
20820 
20830 
20840 


20845 
20850 


30100 
30110 
30120 
30130 


30140 


30150 
30160 


=== == 

REM ENTRADA CADENA 

RENA pS 

xC XS: 

YC = YS: 

IC O: 

Y = YC: 

ES. = "Es 

IF LO = O THEN LO = 41 - XS 
GOSUB 20100 

GOSUB 20000 

IF AO = 5 UR AO = 18 OR AO 
= 23 OR AO = 26 OR AO = 27 
THEN RETURN 

IF AO = 13 THEN C$ = MID$ (C$,1, 
IC): 

GOTO 20550 

IF AOX< > 1 THEN 20500 
IF IC = O THEN 20450 

IC = IC - 1: 

XC = XC - 1: 

GOTO 20440 

IF IC = LO THEN 20450 

IF AO = 19 THEN IC = IC + 1: 
XC = XC + 1:2 

GOTO 20440 

CO = AO: 

X = XC: 

GOSUB 20200: 

PV = PEEK (LOC - 1024) 
C$ = MID$ (C$,1,1C) + CHR$ (CO) 
+ MID$ (C$,1C + 2,39) 

IC = IC + 12 

XC = XC + 1: 

GOTO 20440 

A$ = MID$ (BAS,1,LO - IC): 
X = XS + IC2 

C$ = C$ + AS 

GOSUB 20300: 

RETURN 

REM AA 

REM BORRA LINEA Y 
RENA 

X= 1: 

AS = LEFTS (BA$,40): 
GOSUB 20300 

RETURN 

REM === momo 

REM ESPERA CARACTER 

REN -————-——-— 

A$ = "PULSAR UNA TECLA": 
GT = 1: 

Y = 24: 

X = 12: 

GOSUB 20300 

GET B$: 

GT = 0: 

GOSUB 20600: 

RETURN 

RE 
REM CENTRA CADENA HI-RES 
REM ———— 
IF GIS = "" THEN RETURN 
L = LEN (GI$): 

X = (42 = L) / 2: 

AS = GI$: 

XF=Xx+L 

IF X < 1 THEN X =1 

GOSUB 20300: 

RETURN 


REM 


REM CARGA DIBUJO DEL DISCO 


"nun. 


FOR JR = 1 TO 10: 
NR = JR + KO 
GOSUB 6200: 
I=1 
FOR J = 1 TO 10 
CC(JR,J) = VAL ( MIDS (AA$ 


30170 
30180 
30190 
30200 
30210 
30220 
30230 


30240 
30250 


30260 


30270 
30280 
30290 
30500 
30510 
30520 
30530 


30540 


30550 


30560 


30570 


30580 


30590 


30600 


30610 


30620 
40000 
40010 
40020 
40025 
40030 
40040 
40050 
240050 
40070 


40080 
40090 


40100 
40110 


40115 


A 
GG(JR.J) = VAL ( MID$ (A0$ 
,1 + 2,1)) 
I=1+3: 9) 
NEXT J 40120 PRINT "ERROR "; PEEK (222)5" EN " 
NEXT JR: sl: 
RETURN END 
REN == ====== 40130 PRINT "LOS DATOS NO EXISTEN": 
REM EJECUCION DIBUJO END 
La 
FOR IG = 1 TO 10: 
Y = 16 +3 


FOR JG = 1 TO 10 
CO = CC(1G.JG): 
GT = 66(1G,J6) 
IF CO = 32 AND GT < 
> 1 ¡AND GT < > 3 THEN 302 
80 
X= JG: 
GOSUB 20200 
NEXT JG: 
NEXT 1G 
RETURN 
REN 
REM LECTURA DATOS DEL DISCO 
REN! ci nin 
NF$ = "NOMB": 
LR = 20: 
GOSUB 4000 
NR = RE: 
GOSUB 6200: 
B$(1) = AOS 
GOSUB 6600: 
NFS = "PARA": 
LR = 60 
GOSUB 4000: 
GOSUB 6200 
B$(2) = LEFTS (AA$,15): 
B$(3) = MIDS (AA$, 16,15): 
BS(4) = MID$ (AA$,31,15): 
B$(5) = MIDS (AA$, 46,15) 
GOSUB £600: 
NFS = "PREG": 
LR = 40: 
GOSUB 4000 
GOSUB 4200: 
B$(6) = .LEFTS (AA$,20)2 
B$(9) = MID$ (AA$,21,20) 
GOSUB 4600: 
NF$ = "CALC": 
LR = 26: 
GOSUE 4000 
GOSUB 4200: 
B$(7) = LEFTS (AA$,6): 
B$(8) = MID$ (AA$,7,7): 
B$(10) = MID$ (AA$,14,6): 
B$(11) = MID$ (AA$, 20,7) 
GOSUB 6600: 
RETURN 
REM === 
REM GESTION ERROR 
REN: == _======= 
TEXT 2 
HOME 
IF PEEK (222) = 5 THEN 40130 
IF PEEK (222) < > 8 THEN 40060 
PRINT "COMPROBAR EL DISCO DATOS": 
END 
IF PEEK (222) < > 13 AND 
PEEK (222) < > 11 THEN 40080 
PRINT "NOMBRE FICHERO NO VALIDO": 
END s 
IF PEEK (222) < > 9 THEN 40100 
PRINT "DISCO LLENO":* 
END 
IF  PEEK (222) < > 4 THEN 40115 
PRINT "DISCO PROTEGIDO": 
END 
L= PEEK (218) + 256 k PEEK (21 


RELACION DE LAS VARIABLES - APPLE 


Aritmética 


CF5S(«) =contiene el nombre de las cifras 
(“centenas”, “decenas”, etc.) 
NX =número aleatorio presentado en 
pantalla 
V(x) =en cada elemento hay una cifra 
del número NX 
NP =número de bolas a dibujar en un 
cesto 
CcP = número de cesto 
= CHR$(4), código para envío y lec- 
tura de datos en disco 
= 40 blanks 
=Uusada para envío de mensajes a 
pantalla 
=unidad seleccionada 
=nNúmero juego caracteres en alta 
resolución seleccionado 
= Código de retorno del carácter de 
la rutina que lee el carácter 
= determina el tiempo de parpadeo 
del cursor 
=coordenadas actuales del cursor 


= código de entrada a dar a la rutina 
de escritura carácter 


2220 


Geometría 


D$ = CHR$(4), código para envío y lec- 
tura de datos en disco 
BAS$ = 40 blanks 
DS$(+«) = descripciones campos 
por la data entry 
= buffer data entry 
=tipos de campos 
= longitud de campos 
= Coordenadas X descripciones 
= coordenadas X campos 
YD(+) =coordenadas Y descripciones 
YC(«) = coordenadas Y campos 
A$ =usada para envío de mensajes a 
pantalla 
DR$ =unidad seleccionada 
AAS$ = buffer del disco 
NR =número registro 
LR = longitud registro 
NFS =nombre fichero 
GT =número juego caracteres de alta 
resolución seleccionado 
RE = número lección seleccionada 
MX = número lecciones en el disco 
AG =si = 1, indica actualización en cur- 
so 
NC =número campos que forman la 
máscara 
LM =número máscara seleccionada 
AO = código de retorno del carácter de 
la rutina que lee el carácter 
T = determina el tiempo de parpadeo 
del cursor 
xC, YC = Coordenadas actuales del cursor 
Co = código de entrada a dar a la rutina 
de escritura carácter 
= matriz dibujo en alta resolución 
(códigos caracteres) 
= matriz dibujo en alta resolución 
(códigos juego) 
N =número lecciones 
KO =apunta al 1.” registro del dibujo 
correspondiente a la lección 
RE = apunta al 1.” registro de la lección 


usados 


B$(+) 
TP(«) 
LC(«) 
XD(+) 
XC(+x) 


CC(x, +) 


GG(«, «) 





Aritmética / Versión Philips VG 8010 





Aritmética 
10 REM 
20 REM Él z 
30 REM Version - MSX 
40 REN 3P>E->_———— 


45 R=RND(-TIME) 

50 DIM DE$(20) ,D$(20) ,NS (20) ,T$(20) ,AD(20) ,AX (20) 
60 KEY OFF: WIDTH 40:COLORIS, 4 

70 BS=4:BA=9 

TO BS:READ DE$(1),DX(1),DY(1):NEXT 1 
90 FOR I=1 TO BS:READ D$(I):NEXT 1 

100 FOR I=1 TO BS:READ AD$(1),AX(1)>,BX(1):NEXT 1 
110 FOR I=1 TO BS:READ T$(I):NEXT 1 









120 Z1$="] (11:228=" —— "1 13$=" 2 ":PI$="+";Y1=22: X0=2: YD=10: Y0=9:C0=33:P=10:B=10 


130 A1=48:A2=37 

140 FOR I=1 TO 4:NS(I)=0:NEXT 1 

150 CA$="":CA$=STRINGS (38, CHR$ (32) ) 

160 CLS:GOSUB 7000 

1535 GOSUB 1000 

170 GOSUB 15500 

173 X=2:Y=Y1:GOSUB 11000:PRINT"CUANTO QUIERE SUMAR ";: INPUT N 
190 IF N=0 THEN CLS:END 

185 IF N<O OR N>9 THEN 175 

190 GOSUB 15500 

195 X=2:Y=Y1:GOSUB 11000:PRINT"EN EL CESTO DE "¿: INPUT S$ 

200 K=0 

205 FOR K1=1 TO BS:IF S$=T$(4-K1+1) THEN K=K1:K1=BS 

210 NEXT Ki 

215 IF K<>0 THEN 230 

220 GOSUB 15500:X=2:Y=Y1:GOSUB 11000:PRINT"ERROR ";S$;" NO ESTA PREVISTO" 
225 FOR I=1 TO 2000:NEXT 1:GOTO 190 

230 GOSUB 15500 

235 X=2:Y=Y1:GOSUB 11000:PRINT"QUE NUMERO DE CESTO ";: INPUT M 
240 IF M<1 OR M>4 THEN 235 

245 IF M=K THEN 255 

250 GOSUB 15500: X=2:Y=Y1:GOSUB 11000:PRINT"EL CESTO ";M;" NO ES CORRECTO" 
252 FOR J=1 TO 2000:NEXT J 

255 GOSUB 15500: IF M<>K THEN 235 

260 MO=M: 10=M: A$=STR$ (N) 

265 FIN = O:WW = 0 

270 GOSUB 4000: IF FIN=2 THEN 350 

275 1F FIN <> O THEN 285 

280 IF WW=0 THEN IF NS(I0)+VAL(A$) > BA THEN A$="1":GOTO 270 
285 FOR I=4 TO 1 STEP-1 

290 A$=RIGHTS$(STRS$ (NS(1)),1) 

295 GOSUB 15000 

300 NEXT 1 

305 Mé=N$:N$="":Y1=5:GOSUB 15500 

310 FOR I=4 TO 1 STEP-1:N1$=RIGHTS(STR$(NS(1)),1):N$=N$+N1$: NEXT 1 
320 X=10:Y=5:G0SUB 11000:PRINT M$;" + "¿NXVAL(ADS(4-M9+1));" = "¿N$:GOTO 400 
350 GOSUB 15500:GOSUB 11000:PRINT"ERROR LA SUMA PEDIDA SUPERA 9999" 
360 FOR I=1 TO 2000:NEXT 1:GOSUB 15500 

400 X=5:Y=22:GOSUB 11000:PRINT"PULSAR UNA TECLA PARA CONTINUAR" 
410 R$=INKEYS: IF R$="" THEN 410 

420 CLS:RUN 

1000 REM DESCOMPOSICION DE UN NUMERO DECIMAL 

1010 GOSUB 2000 

1020 GOSUB 3000 

1030 X=10:Y=S:GOSUB 11000:PRINT "COMPON EL NUMERO ";N$ 

1040 FOR I=i TO BS 

1050 A$=MIDS (N$, LEN(N$)-1+1,1) 

1055 Y=Y1:X=((40-LEN(D$(1)))/2)-2:G0SUB 11000:PRINT D$(1)5 

1060 X=X+LEN(D$(1))+2: Y=Y1 

1065 CH$=INKEYS: IF CH$="" THEN 1065 

1080 IF ASC(CH$)<A1 OR ASC(CH$)>A2 THEN 10465 

1085 IF VAL(CH$)=VAL (A$) THEN 1095 

1090 GOSUB 1100:GOTO 1055 

1095 IO=I:GOSUB 4000 

1096 GOSUB 15000 

1098 NEXT 1 

1099 RETURN 

1100 REM CONTROL ERROR 


1105 
1110 
1115 
1120 
1125 
1130 
1140 
1150 
1140 
1200 
1210 
1220 
1230 
2000 
2005 
2010 
2015 


20720 


2040 






4505 
4510 
4320 
4330 
4335 
4540 


J=VAL (CH$) :ER=0 

FOR Ki=1 TO 4 

IF J=VAL(MIDS (N$,K1,1)) THEN ER=K1:K1=4 

NEXT K1 

IF ER=0 THEN ER=-1:GOTO 1200 

X=1:Y=22:605UB 11000:PRINT"ERROR,EL NUMERO ";CH$;" ESTA EN LAS ";TS(ER); 
FOR T=1 TO 2000:NEXT T 

G0SUB 15500 

RETURN 

X=1:Y=22:G0SUB 11000:PRINT"ERROR, EL NUMERO ";CH$;" NO EXISTE EN "¿N$; 
FOR T=1 TO 2000:NEXT T 

G0SUB 15500 

RETURN 

REM PRESENTA MASCARA 

REM 

FOR I=1 TO 4:X=DX (1): Y=DY(I):GOSUB 11000:PRINT DES(1):NEXT 1 
REM 

FOR Y=YD TO Y+3 

x=X0 

FOR J=1 TO 4:GOSUB 11000:PRINT 21$:X=X+10:NEXT J 

NEXT Y 

X=X0 

FOR J=1 TO 4:GOSUB 11000:PRINT 23$:X=X+10:NEXT J 

Y=15 

FOR J=1 TO 4:X=AX(J):GOSUB 11000:PRINT AD$(J):NEXT J 

X=X0:3 Y=19 ñ 

FOR J=1 TO 4:GOSUR 11000:PRINT 22%: X=X+10:NEXT J 
Y=Y+1:X=X0+9:GOSUB 11000:PRINT PI$:X=X0+19:GOSUB 11000: PRINTPIS$ 
X=X0+29:G0SUB 11000:PRINT PIS 

RETURN 

REM GENERACION RANDOM 

Ng="" 

FOR I=1 TO BS 

NM=INT (RND(1)19+1) 

IF I=1 AND NM=0 THEN 3030 

N1$=STR$ (NM) :N1$=RIGHTS (N1$, 1) :N$=N$+N1$ 

NEXT 1 

N$=RIGHTS (N$, BS) 

N=VAL (N$) 


) RETURN 


REM COMPLETA MASCARA 

REM 

IF NS(10)+VAL (A$) >BA THEN 4050 

REM < BA 

KV=1:G0SUB 4500 

Wb/=1: RETURN 

REM IMPORTE 

IF NS(10) BA AND NS(4)+1 > BA THEN FIN=2:RETURN 
IFIO<X >4THEN4055 

IFNS (10)+VAL (A$) >BATHEN FINE=2 ¡RETURN 

A1S=A$ 

REM BORRAR EN EL CESTO ANTERIOR 

SN= (VAL (41$)+NS (10) )-B:NS (10) =0 
As$="9":KV=0:G0SUB 4300 

AS=STRS$ (SN) 

K 





IF NS(10+1)+1>BA AND I0+1=4 THEN FIN=2: RETURN 
IO0=10+1: 1F NS(10)+1 >BA THEN A$="1": RETURN 
A9=NS (10) +1: A$=STR$ (A9) 

KV=1:NS(10)=0:G0SUB 45300 

IF 10+1 > 4 THEN FIN = 1 

A$="0": RETURN 

IF VAL(A$) <=0 THEN RETURN 

FOR J=1 TO VAL (A$) 

IF NS(10)+1 <=KF THEN Y=Y0+4:M=KF:GOTO 4330 
IF NS(10)+1 <=28KF THEN Y=Y0+3:M=2%KF:GOTO 4530 
Y=Y0+2: M=34KF 

C=M-NS (10) 

A=CO- (10-1)4P 

X=A-2+0 


4545 
4547 
4350 

a] 
4560 
4563 
7000 
7005 
7010 
7020 
7030 
7040 


GOSUB 11000: 1F KV=1 THEN PRINT CHR$(2HBC):GOTO 4550 

PRINT " ” 

REM 

NS (10)=NS (10) +1 

NEXT J 

RETURN 

REM CABECERA . 

X=1:Y=0:GOSUB 11000:PRINT "1%: X=10:GOSUB 11000:PRINT"E.G.S. Ediciones Furum,S.A." 
=Y+1:G0SUB 11000:PRINT"] voz 1l" 





X=1: Y=Y+2: GOSUB 1 1000: "IT Á A ——_ — 
X=1:Y=Y-1:G0SUB 11000:PRINT"] |; x=20: 605UB 11000:PRINT"ARITMETICA" 
RETURN 


10000 REM DATOS 
10010 DATA "MILLARES", 1,8, "CENTENAS",11,8 
10020 DATA "DECENAS", 22,8, "UNIDADES", 32,8 


1003 


O DATA "CUANTAS UNIDADES ", "CUANTAS DECENAS " 


10040 DATA "CUANTAS CENTENAS ", "CUANTOS MILLARES " 
10050 DATA "1000X",4,7,"100X",15,17,"10X",26,27,"1X",37,37 
10060 DATA "MILLARES", "CENTENAS", "DECENAS", "UNIDADES" 
11000 REM POSICIONA CURSOR 

11010 LOCATE X, Y 

11020 RETURN 

15000 REM INTRODUCCION MULTIPLICANDOS Y RESULTADOS 
15010 RI=VAL(A$) AVAL (ADS (4-1+1)) 

15020 X=BX(4-1+1):Y=17:GOSUB 11000 

15030 PRINT A$ 

15040 X=AX(4-1+1)=1: Y=Y+3 


1504 


3 RI$=STR$(RI): IF RI=0 THEN RI$=" 0" 


15050 IF RI=0 THEN X=BX(4-1+1)-2 


1506 
1507 
15501 


O GOSUB 11000:PRINT RIS$ 
O RETURN 
O X=1:Y=Y1:GOSUB 11000:PRINT CA$: : RETURN 


Geometría, Generación 


10 
20 
25 
30 
32 
35 
40 
Ab 
50 
60 
70 
75 
77 
80 
90 
100 
110 
115 
120 
130 
140 
150 
160 
170 
180 
190 





RA 

REM GEOMETRIA 

REM generacion MSX 

RE NN 

CLS: CLEAR 12000 

KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16):KEY 3,CHR$(17):KEY 4,CHR$(19) : KEY S,CHR$(20) : WIDTH 40 
DIM TF(15),TP (12),LC(12),ND(12),CX(12),CY(12),DX(12),DY(12) 

M3=18:REM M3= Max lecciones 

DIM B$(12),D$(12),SS$(M3, 4) ,NO$ (M3) ,PAR$ (M3), PREG$ (M3), CAL$ (M3) 

REM CONSTANTES 

A1=1:A2=31:BP$="08L32CDE":NS$="4":AS$="-"¿PD$=". ":BL$=" ".mps="| MENU p 

F$=CHR$ (1) +CHR$ (87) 

O$="":FOR I=0 TO 39:0$=0$+F$: NEXT 1 

S2=3:MI=1 

X0=16: Y0=1: XC=7: YC=8: XS=5 

US$=CHR$ (13) : ZE$=CHR$ (48) : GIU$=CHR$ (32) 

HE$="CTRL Y (AYUDA) " 
Hi$="E.G.S. 

REM CARGA VOCES 
RESTORE 

READ PROG$ 

READ NV 

FOR I=1 TO NV:READ VO$(1):NEXT 

MA=NV+1 

VO$(MA)="Fin de tarea" 

FOR I=1 TO 15 

READ TF (1) 

NEXT 1 

Rss 

REN == UA EN 

GOSUB 1300:REM MENU 

IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS:COLOR 15,4 :END 
ON OPZ GOTO12000, 15000,8500 


Ediciones Forum, S.A. 








GOTO 230 

REM -——- ESPERAR -—--- 

CLS: Y=12:GOSUB11000:PRINT"E S P E R A R":RETURN 
REM 

REM - POSICIONA CINTA GRAB.- 

REMO — 


Té="REC y PLAY." 
CLS: X=9: Y=7:60SUB11000:PRINT"Rebobinar la cinta":Y=10:G0SUB 11000:PRINT "y apretar "¡T$;:Y=1 


6:G0SUB11000:PRINT"Despues pulsar una tecla." 





720 1F INKEYS =""THEN 720 
730 RETURN 

800 REM 
803 REM — POSICIONA CINTA LECT. — 
805 REM 
810 T$=" PLAY." 

820 GOTO710 

1300 REM ———————-— 

1310 REM MENU PRINCIPAL 

1320 REM _——————- — 

1322 CLS:COLOR1S, 4 

1335 X=1:Y=0:GOSUB 11000:PRINT H1$ 
1340 X=5: 











G0SUB 11000: PRINT————————7 ": Y=3 1 GOSUB 11000:PRINT"| "PROGS5"b 


y: Y=4: GOSUB 11000: PIN 
1345 X=15:Y=Y+2:60SUB 11000:PRINT MP$;:Y=5 :GOSUB 11000:PRINT"————"5 


1346 Y=7:GOSUB 11000:PRINT“————" 
1350 FOR 1 = MI TO MA 

1360 Y=19S7+YC:X=XC: GOSUB11000 

1370 11=1 

1380 IF 1I= (MA) THEN 1I=0 

1390 PRINT 11;"-";V0$(1) 

1400 NEXT 

1410 I=MI 

1420 Y=I1SZ+YC: X=XS: GOSUB11000 

1430 SP=YC-6 

1440 PRINT "->"; 

1450 OPZ$=INKEYS: IF OPZ$="" THEN 1450 


1455 OPZ=VAL (0PZ$) : IF OPZ$=US$ THEN 1530 


1460 IF OPZ >NV THEN 1450 


1470 IF OPZ$=ZE$ THEN X=XS:GOSUB 11000:PRINT SPC( SP);:I=MA:GOTO 1420 
1480 IF ASC(OPZ$)>48 AND ASC (0P2$) <58 THEN X=XS:GOSUB 11000:PRINT SPC( SP);: I=0PZ:GOTO 1420 


1490 IF 0PZ$ <> GIU$ THEN 1450 

1500 X=XS:GOSUB 11000:PRINT SPC( SP); 
1510 I=I+1:1F 1> (MA) THEN 1410 

1520 GOTO 1420 

1530 CLS:COLOR6, 14 :GOSUB11000 

1540 II=1:1F 1 > NV THEN II=0 


1560 PRINT Tf "-"¿VOS (1) : PLAYBP$:FORJ=1T01500: NEXT 


1580 OPZ =I 

1590 RETURN 

2000: RENA => == 

2010 REM PRESENTA MASCARA 

2020 REM in e 

2030 CLS:COLOR OPZx4,14 

2130 L=LEN(VOS$ (0PZ)) 

2140 FM=2:FM$=SPACES (FM) 

2150 X=1:Y=0:G0SUB11000:PRINTH1$; 
2215 Y=3:X=0:GOSUB 11000:PRINT FM$;" 





Vos (0PZ);" le Ems: x=FM: Y=2 


2216 GOSUB11000:G8$=LEFTS (0$, 1.42) : PRINTCHR$ (1) ; CHR$ (2H58) 5 68$; CHR$ (1) ; CHR$ (2H59) : Y=4: GOSUB 11000 
:PRINTCHR$ (1) ; CHAS (LH5A) ; G8$CHR$ (1) ; CHAS (LHSB) ; 






'0:GOSUB 11000:PRINT QS 
=25:GOSUB 11000 

2220 PRINT HES 

2240 FOR J=1 TO NUC 

2245 As$= "" 


2270 X=DX(J):Y=DY(J):GOSUB 11000:PRINT DS(J) 


2273 IFTP(J)<>5 AND TP(J)<> 4 THEN2290 


2280 X=CX (3) : Y=CY (J) : GOSUB11000 
2285 PRINTBS (J) : GOTO2420 


2290 Ni=LC(J):N2=ND(J):1F TP(J)=1 OR TP(J) 


2300 C$=AS$ 

AS=STRING$ (N1-N2-1,C$) 

IF N2=0 THEN A$= A$+C$:GOTO 2350 
AS=AS+PDS 

FOR I=1 TO N2:A8=A$+C$:NEXT 1 
X=CX (3) : Y=CY (J) :GOSUE 11000 
PRINT As 

B$(J)= SPACES (N1-N2-1) 

BS(J)= BS(J)+RIGHTS (05,N2+1) 
NEXT J 

RETURN 

REM ——-—-— 

REM DATA ENTRY 

REM —————— 

J=1 
NC= 
ce 
3060 GOSUB 3240 


3070 IF FS=0 THEN 3100 


J: X=CX (NC) : Y=C Y (NC) 






= 2 THEN C$=NS$:GOTO 2310 


3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 


IF FS>4 THEN 3210 

GOTO 3120 

J=3+1:1F J>NUC THEN 3030 

GOTO :3040 

ON FS GOTO 3130,3150,3170,3190 

IF J>1 THEN J=J-1:GOTO 3040 

PLAY BP$ :FS=0:J=NUC:GOTO 3040 

IF J< NUC THEN J=J+1:GOTO 3040 

PLAY BP$:FS=0:GOTO 3030 

IF CC<LC(J) THEN S=1:CC=CC+1:X=X+1:GOSUB 11000:GOTO 3060 
PLAY  BP$:FS=0:GOTO 3100 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:G0SUB 11000:GOTO 3040 
PLAY  BP$:FS=0:GOTO 3040 

IF FS>8 THEN FS=0:GOTO 3060 

IF FS=8 THEN FS=0:GOTO 3100 

RETURN 

AAA 

REM LECTURA DE UN CAMPO 

REM AA 

FS=0 

IF TP(NC)=4 THEN RETURN 

IF TP(NC)=2 THEN TP(NC)=1 

IF MIDS(B$(NC),CC,1)=PD$ THEN X=X+S:CC=CC+S 
GOSUB 11000 


A$=INKEYS: IFA$=","OR A$= "" THEN PRINT"M";:GOSUB11000:PRINTMIDS (B$ (NC) ,CC, 1); :GOSUB11000:6 


0TO3320 


3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3520 
3530 
3540 
3350 
3560 
3370 
3580 
3590 
3420 
3630 
3640 
36530 
3650 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3840 
3870 
3980 
3890 
3900 
3910 
3920 
3930 


CA=ASC(AS): IF CA > A2 THEN 3380 

FOR I=1 TO 15 

IF TF(1)= CA -THEN FS = I: GOSUB 3430: RETURN 
NEXT 1 

GOTO 3320 

IF TP(NC)<>1 THEN 3440 

IF CA=45 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 
PLAY BP$:GOTO 3320 

IF CA <> 46 THEN 3440 

GOSUB 4270 

IF SWP=1 THEN 3400 

S=1: GOSUB 3520 

IF CC=LC(NC) THEN RETURN 
CC=CC+1:X=X+1:GOTO 3300 

REM AAA A A AAA AA AA AA 

REM TRANSFERENCIA AL BUFFER 

REM A A o 

IF CC=1 THEN SN$= 
SN$=LEFTS (B$ (NC), CC-1) 

IF CC=LC(NC) THEN DS$= "":GOTO 3590 
N=LC (NC)-CC:DS$=RIGHTS (B$(NC),N) 
ES (NC) =SN$+A$+DS8 

PRINT AS: RETURN 

REM 

REM COMANDOS 

REM ------- 

IF FS>4 THEN 3490 

RETURN 

IF FS=9 THEN GOSUB 13000: RETURN 

IF FS=8 THEN GOSUB 4080: RETURN 

IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 

REM =—--—--- 

REM INSERCIÓN 

REM 

IF CC=LC(NC) THEN PLAY BP$: RETURN 
IF CC=1 THEN SN$= "":GOTO 3800 
SN$=LEFTS (B$ (NC), CC-1) 

N=LC (NC)-CC+1:DS$=RIGHTS (BS (NC) ,N) 
IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 
C$=BL$ 

A$=SN$ +C$+DS8 





B$ (NC) =LEFTS (AS, LC(NC)) 

XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) :GOSUB 11000 
X=XX: Y=YY 

PRINT_Bs$ (NC) :S=-1 


IF RIGHTS(BS(NC),1)= PD$ THEN 3780 
RETURN 

REM —-—-- 

REM_BORRADO 

REM 


3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4080 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 


4150 
4170 
4180 
4190 
4200 
4210 
4220 
423 

4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 


5610 
5620 
5630 


5650 


5690 
5692 
5693 
5595 


3700 
5703 


5705 
5710 


220 
5723 
3230, 


3745, 


37560 
5765 


IF TP(NC)<>1 THEN 3960 

IF MIDS (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 
IF CC<1 THEN PRINT BP$: RETURN 

IF CC=LC(NC) THEN DS$= "": GOTO 4000 

N=LC(NC) —CC:DS$ =RIGHT$ (B$(NC),N) 

IF CC=1 THEN SN$= "": GOTO 4010 

SN$=LEFT$  (B$(NC),CC-1) 

IF TPINC) = 1 OR TP(NC)=2 THEN C$=NS$:GOTO 4030 








C$=A5$ 

BS (NC)= SN$ +DS$ +C$ 

XX=X: YY=Y 

X=CX (NC) : Y=C Y (NC) :GOSUB 11000 
X=XX: Y=YY 

PRINT B$ (NC); :S=1: RETURN 

REM — 

REM ALINEADOS 

REM —-——-- 





IF LC(NC) =1 THEN RETURN 

Ni=LC (NC) -—CC+1 

IF CC=1 THEN BS$(NC) = "": GOTO 4150 

BS (NC)= LEFTS (B$(NC),CC-1) 

IF TP(NC) =1 OR TP(NC)=2 THEN 4200 

FOR I=1 TO Ni 

B$ (NC) =B$ (NC) +BL$ 

NEXT 1 

GOTO 4240 

FORI=1 TO Ni 

B$(NC)=BL$ +B$ (NC) 

NEXT 1 

IF RIGHTS (B$(NC),1) =PD$ THEN B$(NC)= BL$ +LEFT$ (B$(NC),LC(NC)-1) 
X=CX (NC) : Y=CY (NC) 

GOSUB 11000 

PRINT B$(NC) : RETURN 

REA: ===> 

REM CTRL. PUNTO 

REN ===> 

sup = 0 

IF CC=1 OR CC=LC(NC) THEN SWP =1: RETURN 
FOR I=1 TO LC(NC) 

IF MIDS(B$(NC),1,1)= PD$ THEN I = LC(NC): SWP=1: RETURN 
NEXT I:z RETURN * 

REA ——— 

REM LECTURA FICHEROS 


OPEN"CAS: DIB"FOR INPUT AS 41 
FORI=1T0M3 

FORJ=1T04 

INPUTH1,SS$(1,J) 

NEXTJ, 1I:CLOSE 41 

OPEN"CAS: NOMB"FOR INPUT AS 41 
FOR_1=0 TO M3 

INPUT 41,NOS$(T) 

NEXTI:¿CLOSE +1 
OPEN"CAS:PARA"FOR INPUT AS 41 
FORI=1T0M3 

INPUT +1,PAR$(1) 

NEXTI¿CLOSE 41 
OPEN"CAS:PREG"FOR INPUT AS 41 
FORI=1T0M3 

INPUT 41 ,PREGS (1) 
NEXTI:¿CLOSE $1 
OPEN"CAS:CALC"FOR INPUT AS 41 
FORI=1T0M3 

INPUT 41,CAL$(1) : 
NEXTI:¿CLOSE 41 


REM ESCRITURA FICHEROS 





G0SUB700: GOSUB£00 


OPEN"CAS: 4Z"FOR OUTPUT AS *i 
FORI=1T06:PRINT 41, A$:NEXTI: CLOSER 1: REM espacio cinta 
OPEN"CAS:DIB"FOR OUTPUT AS *1 





EORJ=1TD4 

PRINT 41,SS$(1,J) 
NEXTJ, Is CLOSE 41 
NOS (0)=STRS$ (PS) 


5770 OPEN"CAS: NOMB"FOR OUTPUT AS 41 
5780 FOR 1 = 0 TO M3 

5790 PRINT 41,NO$(1) 

5800 NEXTI:CLOSE +1 

5810 OPEN"CAS: PARA"FOR OUTPUT AS 41 
5820 FOR I=1 TO M3 

5830 PRINT $1,PARS (1) 

5840 NEXTI:CLOSE ¿1 

5850 OPEN"CAS: PREG"FOR OUTPUT AS +1 
5860 FOR I=1 TO M3 

5870 PRINT 41, PREG$ (1) 

5880 NEXTI:CLOSE +1 

5890 OPEN"CAS: CALC"FOR OUTFUT AS 41 
5895 FORI=1T0M3 

5900 PRINT 41,CAL$(1) 

5910 NEXTI:CLOSE $1 


5920 RETURN 
7000 REM" —-=—----- SÉ 
7010 REM LECTURA DE LOS DATOS 
7020 REM =—================-- 
7040 NUC=12 


7070 RESTORE 10100 

7072 FOR I=1 TO NUC 

7074 READ D$(1) 

7076 NEXT 1 

7080 FOR 1 = 1 TO NUC 

7090 READ TP(1),LC(1),ND(1),DX(1),CX(1),CY (1) 

7100 DY(1)=CY(1) 

7110 NEXT 1 

7120 RETURN 

ASONREMAAn 

8503 REM CORREC. DATOS 

ESOS REM 

8510 IF MB=0 THEN GOSUB 5500: PS=VAL (NO$ (0) ) 

8520 GOSUB7000 

8522 FOR I=2 TO 12:TP(1)=5:NEXT 1 

8530 CLS:X=7:Y=9:GOSUB11000:PRINT"Due leccion": Y=11:G0SUB11000: INPUT"se quiere variar "¿K$:1F K$ 
="" THEN 8540 ELSE K=VAL (K$) 

8540 IFK<10RK'>M3ORK>PSTHENBS2O 

8550 JK=k: G0SUB15040 

8355 IFLEFTS(CAL$(JK), 1)="+"THENCALS$ (JK)=MIDS$ (CAL$ (JK),2,26) 

8360 B$(1)=K$ 

2570 B$(2)=N0$ (JK) :B$ (3) =LEFTS (PAR$(JK), 15) :B$(4)=MIDS (PAR$(JK), 16,15) :B$ (5) =MIDS (PAR$ (JK),31,15 
):B$(6)=RIGRTS (PAR$(JK), 15) :B$ (7) =LEFTS (DOM$ (IX) ,20):B$3(10)=RI $ (DOM$ (JK) 20) 

8580 B$(8)=LEFTS (CAL$(JK),6):BS(9)=MIDS(CALS(IK),7,7):B8(11)=MIDS(COL$(JK),14, 2): BS (12)=MIDS 17 
$(3:),20,7) 

8£00 GO0SUB12225 

8610 CLS:X=9: Y=?: GOSUB11000:FRINT"CONTINUO 7 <S 0.N>" 

8620 A$= Y$: IFA$="S"DRA$="s"THENSS3O 















8630 IFA$<>"N"AND A$<>"n"THENS620 

8640 GOSUBS700:GOTO230 

10000 REM ----- 

10010 REM DATOS 

10020 REM ----- 

10030 DATA "GEOMETRIA (gener.)" 
10040 DATA 3 


10050 DATA "GENERACION", "INTRODUCCION DATOS", "CORRECCION DATOS" 
10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 

10100 DATA "Figura n. "Nombre", 1=,2=,3=, qa da, gua, Umi 
10105 DATA 4,2,0,26,35,3 

10110 DATA 3,20,0,5,13,6 

10120 DATA 3,15,0,1,4,10 


10130 DATA 3,15,0,22,25,10 
10140 DATA 3,15,0,1,4,12 
10150 DATA 3,15,0,22,25,12 
10160 DATA 3,20,0,22,1,17 
10170 DATA 1,6,0,31,24,17 
10180 DATA 3,7,0,33,33,17 
10190 DATA 3,20,0,22,1,19 
10200 DATA 1,6,0,31,24,19 
10210 DATA 3,7,0,33,33,19 
11000 REM --=-=-=----- 
11010 REM POSICIONA CURSOR 
11020 REM --- 





11030 LOCATE X,Y 
11040 RETURN 

12000 REM. ——-—— 
12002 REMGENERACION 
12003 REM. ——-——————— 


12010 PS=1 

12020 CLS:X=10:Y=9:GOSUB 11000:PRINT "GENERACION EN CURSO, ":X=10:Y=13: G60SUB11000:PRINT "CONTINUO 
2(S0aNn>" 

12030 AS=INKEYS: IFA$S="N"DRA$="n"THEN23 

12040 IF A$="s" OR A$="S" THEN 15035 

12060 60T012030 

1200-22 

12202 REM INTRODUCCION DATOS 

12203 -REMAA >= 

12220 GOSUB7000:B$ (1)=STR$ (JK) 

12225 SOSUB2000 

12240 X=26:Y=4:GOSUB11000:PRINTLEFT$ (0$,24) ; 

12245 X=11:Y=8:GOSUB11000:PRINT"P a r ame tr o s":Y=9:GOSUB 

12250 X=1:Y=15:GOSUB11000:FRINT"ODperacion as 

T$(0$, 38) +SPACES$(5) + LEFTS$(05$,26) z 

12260 GOSUB3000: IF FS=6 THEN 12225 ELSE IF FS=7 THEN RETURN 230 
12270 NO$(JK)=B$ (2) : PAR$ (JK)=B$ (3)+B$ (4)+B$ (5) +B$ (6) :PREG$ (JK) =B$ (7) +B$(10) 
12280 CAL$(JK)="+"+B$ (9) +B$(9)+B$ (11)+B$(12) 

12300 RETURN 

13000 REM ----- 

13010 REM AYUDA 

13020 REM ———- 

13050 LOCATE 0,22 

13055 PRINT "AYUDA (barra espaciadora para continuar)"; 

13040 GOSUB 13400 

13110 PRINT "FLECHAS: mueve en las 4 direcciones e 

13120 GOSUB 13400 

13130 PRINT "RETURN: alinea y convalida introduccion "; 

13140 GOSUB 13600 


11000:PRINT LEFT$(0$,34); 
ul o":Y=16:G0SUB 11000:PRINT LEF 


13150 PRINT "F1: vuelve al menu principal . 
13160 GOSUB 134600 

13170 PRINT "F2: anula toda la introduccion Es 
13180 GOSUB 13400 

13190 PRINT "F3: borra un caracter "s 
13200 GOSUB 13400 

13210 PRINT "F4: permite la insercion de espacios eh 
13220 GOSUB 13600 

13222 PRINT"FS: graba toda la introduccion “ 
13224 GOSUB13£00 

13230 PRINT " CTRL Y (AYUDA) "; 
13300 RETURN 

13600 A$=INKEY$: IF A$= "" THEN 13400 


13605 IF A$<> CHR$(32) THEN 13600 

13610 LOCATE 0,22 

13420 RETURN 

NN —_———> 

15003 REM INTRODUCCION DATOS 

15005 _REM_— ———_——— 

15010 GOSUBSS500: PS=VAL (NO$ (0))+1 

15035 M8=1: FORJK=PSTOM3 

15040 CLS:COLORA, 15: X=1: Y=0:GOSUB 11000:PRINT H1$:X=6:Y=23:GOSUB 11000:PRINT "Figura n."¡JK; 
15050 X=13:Y=2:G0SUB 11000:PRINT "1111111":X=4:Y=3:GOSUB 11000:PRINT "1234547890123456" 

15060 X=3:Y=4:GOSUB 11000:PRINT CHR$ (1); CHR$ (2458) ¿LEFT$(0$, 32) ; CHR$ (1) ; CHAS (2HS9) 

15070 X=0:A=0:FODR Y=5 TO 20:4=A+1:A$=STR$(A) :GOSUB 11000:PRINT SPACES (3-LEN(0$)); M4; CHR$ (1); CHR$ 
(2456) ¡ SPACES (16) 3 CHR$ (1) ; CHAS (2H56) ; : NEXTY: X=3: GOSUB11000: PRINTCHR$ (1) ¡CHR$ (2H5A) 3LEFT$(0$, 32) 
¿CHR$ (1) ¿CHRS$ (LHSB) 5 

15075 :X=24:Y=7:G0SUB11000:PRINT"<E> enciende": Y=8:GOSUB 11000:PRINT"<A> apaga"; 

15080 PLAYBP$: : Y=10:GOSUB11000:FRINT"Usa las flechas";:Y=11:GOSUB11000:PRINT"para desplazar" 
3: Y=12:G0SUB11000:PRINT"el cursor. ";:Y=15:GOSUB11000:PRINT"FS confirma." 

15090 O=6:4=9 

15100 A$=INKEYS$ 

15110 IFA$<>""THEN15150 

15120 LOCATEQ, W, 1: FORT=1T030: NEXT 

15130 LOCATEQ,W,0:FORT=1TO30:NEXT 

15140 GOTO15100 

15150 IFA$=CHR$ (28) THEN 
15160 
15170 IFA$=CHR$ (30) THENH=HH-1: 1FHS STHENH=S 

15180 IFA$=CHR$ (31) THENW=4)+1 : IFW>20THENW=20 

IF A$="e"DR A$="E" THEN LOCATED, M:PRINT'" 

15 IF A$="a"DR A$="A" THEN LOCATEO, W: PRINT *" " 

15210 IFA$=CHR$ (20) THENIS225 

15220 GOTO1S100 

15225 X=24:FORY=7T011: GOSUB11000:PRINTSPACES (15) ¿NEXT Y o 

15230 PLAYBP$+BP$: X=24: Y=10: 60SUB11000:PRINT"Pulsar una tecla";:Y=11:G0SUB11000:PRINT"para elegi 
¿Y=12:GOSUB11000:FRINT"el color "¿:Y=13:GOSUB11000:PRINT"de la figura. ":Y=15:GOSUB11000:PRIN 
T"FS CONFIRMACION. " 

15233 A=4 

15240 A$=INKEYS$: IFA$=""THENIS240 











0+1: IFD>19THENO=19 












r" 















15500 


15510 


IF A$=CHR$(20) THEN X=6:Y=23:G05UB 11000:PRINT "ES PERA R";:PLAYEBP$:G0T0 15300 
A=2+1: IFA>14THEN: 
COLORA 





¡OSUB1 5500 


: BOSUB1SS00 





FORI=1T04 
SS$ (JK, 1)=S$ (1)+STR$ (A) 

NEXTI: IF OPZ=3 THEN RETURN:REM CORRECION 
GOSUuB 1 
CL =10:G0SUB 11000:PRINT"CONTINUO ? <S o N>" 
KEYS: IF A$="S" OR At="s" THEN NEXTI 
0TO15420 

OSUBS700: 60TO230 








m 


1 
m 
mn 
p 
a 
Ñ 


Up" DR Af="N" THEN 15440 





S$(R)="":1=0 


13520 FORW=0T01:P=PP+44W 
15530 FOR 2=1 TO 8 
15540 FOR J=7 TO 1 STEP-2: I=1+1 


15350 





IF VPEEK(P+1)=219 T 


K=k+20J+2(J=1) 


15560 NEXT J:S$="" 


370 IF K<10 THENS$=S$+"00"+RIGHT$(STR$(K),1) ELSE IFK<100THENS$=S$+"0"+RIGHT$(STR$ (K),2 





15590 P=P+40: K=0: 1=0 
15594 NEXT 2,09 
15600 RETURN 


Geometría, Uso 


10 


20 


RE e 
REMGEODMETRIA 














30 REM USO MSX 

AO. REM: an e 

S0 MAXFILES=2:CLEAR 14000:COLOR 4,15,14 
60 KEY OFF:KEY S5,CHR$(20) 

70  M3=18:DIM SS$(M3, 4) ,NO$ (M3), PARS$ (M3) , PREG$ (M3) , CAL$ (M3) ,B$(6) 
80  BM$="D4L40ER16ER16ERSACCCCCCCC" 

90  BB$="06L20EE-EE-EOSBO6DCOSAAAAA" 
100 BP$="05L16CDEFGABOSC" 

110 A$="W":FOR I=1 TO 32:0$=0$+A$: NEXT 
120 UR$=" E.G.S. Ediciones Forum, S.A." 
130 CUR$=0$+UR$+0$ 

140 FOR I=1 TO 4:READ CM$(1):NEXT 

150 DATA"E", 0/0 0 

500 REM === 

520 REM-M A I N- 

SAO REN: == 

550 SCREEN 2,3 

560 OPEN"grp: "FOR OUTPUT ASH1 

570 GOSUB 1300 

580 GOSUB 1500 

590 GOSUB 1700 

600 GOSUB 2400 

610 COLOR15, 2, 6:CLS:LINE (20,20)-(235,171),1,BF:LINE(40,40)-(215,151),11,BF:LINE(60,60)-(195, 131) 
,4,BF 

420 PSET(90,80),4:PRINTH1," F IN" 

630 FSET(90, 105) :PRINT4H1, "PROGRAMA" 

640 PLAYBB$+BP$ 

650 FOR I=1 TO S000:NEXT I:SCREEN1:COLOR6, 11,6:END 
AO REM 

910 REM ESPERAR 

MO 

930 COLOR12, 15:PRESET (60, 100) 

940 PRINTH, "ESPERAR" 

950 RETURN 

AAA 

970 REM IMPRESION cabecera 

FOOREM AAA SR 

990 COLOR2:PRESET (0, 0) :PRINT41,CUR$; 
1000 RETURN 

1010 REM 

1020 REM CLS PARCIAL 

OSO REN: =—======== 

1040 LINE(0,60)-(254,191),15,BF 

1050 RETURN 

1060 REM ——— 





OR 1 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2400 
2410 
2420 
2430 
2435 
2440 
2450 
2460 
2470 
2480 


O REM -——-— 


REM GENERACION RANDOM 
REM 
R=RND (TIME) 


O P(I)=INT (RAND (1) 1942) 


FOR J=0 TO I-1:1F P(I)=P(J) THEN 1090 
NEXT J 
RETURN 


REM-PRINCIPIO- 

AE 

COLOR, 15, 14:CLS 

GOSUB 960 

LINE (48,40)- (200,56), 7, BF 

LINE (47,39)-(201,57),1,B 

PRESET (48,46) : COLOR1:PRINTH1," GEOMETRIA ";:1F G3=1 THEN RETURN ELSE G3=1 
COLOR13:PRESET (30,90): PRINTH 1, "Rebobina la cinta datos"; 
PRESET(70,110):PRINTH1, "y aprieta ";:COLOR1:PRINT+1, "PLAY"; 
COLOR4:PRESET (9,150): PRINTH1," Si estas preparado,pulsa una 
IF INKEY$="" THEN 1410 

GOSUB 5000 

RETURN 

REN ———————— _— 

REM peticion figura 

REN 

GOSUB 1010 

COLORB:PRESET (15,80): PRINTH1," Due figura se desea ? HE" 
B$="":FOR X=222 TO 230 STEP8: Y=80:GOSUB 1630: NEXT:N=VAL (B$) : IFN>PSORN=OTHENPLAYBM$:GOTO 153 


tecla"; :PLAY BP$ 


IF N <O THEN PLAY BP$:GOTO 1580 
RETURN 
B$="":COLOR 7:PRESET (55,120) :PRINTH1, "Nombre de la figura?":PRESET (47,140): PRINTH1, STRINGS ( 


20,"-") 


FOR X=47 TO 200 STEP 8:Y=140 
G0SUB1630: IFA$=CHR$ (13) THEN1620 
NEXT X 

B$=B$+SPACES (20-LEN (B$) ) : RETURN 
AS=INKEYS: IFA$=""THEN1630 

IF A$=CHR$(13) THEN 1690 
COLOR15:PRESET(X, Y) 

PRINTH1, "MN" 

COLOR1:PRESET(X, Y) 

PRINTH1,A$: BS=ES+A8 

RETURN 

REM === 

REM BUSCA FIGURA 

REN 

IF NO THEN 1770 

FOR N=1 TO PS 

IF BS=NOS(N) THEN 1770 
NEXTN:60T01780 

RETURN 

EOSUB1010 

COLORS: PRESET(S5, 100) :PRINTH1, "ERROR , la figura :" 
COLOR1: PRESET(80, 120) : FRINTH1,B$: COLORS: PRESET(65, 140): PRINTH1, "NO ESTA PREVISTA":PLAYBM$:F 


=1 TO 2000:NEXT:RETURN 580 





REM -——-- 
REM GENERACION SPRITES 


COLOR, 15: CLS: GOSUBIOO 

SE (10=""ISR (2 )=""1S8(3)="":1 88 (9)= 00 
FORI=1T04:P1=1:P2=3 

FORJ=1T032 

S$ (1)=S$ (1) +CHR$ (VAL (MIDS (SS$ (N, 1),P1,P2))):P1=P1+P2 
NEXTJ, 1 

FORI=1T04 

SPRITES (1)=S$(1) 

NEXTI 

C=VAL (RIGHTS (SS$(N, 1),2)) 

RETURN 

en 

REM DESARROLLO LECCION 





GOSUB2000 

COLOR15,4:CLS 

LINE (0,0)-(255,9),13, BF: COLOR1:PRESET (1,2), 13: PRINTH1,UR$3 
LINE (10,15)-(84,89),15, BF 

PUT SPRITE 1, (15,20),C,1 

PUT SPRITEZ, (15,52),C,2 

PUT SPRITE 3, (47,20),C,3 





3080 
:GOTO3OSO 


3090 
3100 
3110 


PUT SPRITE 4, (47,52),C,4 
FORI=20TO1STEP-1: IFMID$(NO$ (N), 1, 1)<>CHR$(32) THEN2520 
NEXT 

A= (INT ((20-1)/2))X8 

LINE (4+88, 28) -(4+90+118,38),7, BF 

PRESET (A+90,30) :PRINTH1, NOS (N) 

COLOR15: PRESET (90,60) :PRINTH1, "Los valores conocidos son:" 
COLOR15:P=75:P1=1:P2=15 

FORI=1T04:P=F+10: IFMID$ (PAR$ (N) ,P1,3)=" "THEN2600 
GOSUB1060 

PRESET (95,P) :PRINTH1,MIDS (PAR$ (N),P1,P2)3"="3P(1) 
P1=P1+15:NEXTI 

PRESET (52,140): PRINTH1, "CALCULAR :" 

PRESET (10,160) : PRINTH1,MIDS (PREGS(N),1,20)3"= HHHRA 
PRESET (10,170) :PRINTA1,MIDS (PREGS (N),21,20)3"= HRIRE" 
COLOR9:PRESET (71,182) :PRINTH1, "FS: introduccion" 
GOSUB3000: COLOR15, 4 
CLS:PRESET (35,95) :PRINT4H1, "CONTINUAS ? <S o N>" 
A$=INKEYS$: IF A$="N" OR A$="n" THEN RETURN 

IF A$="S" OR A$="s" THEN 2690 

GOTO2660 

IF SW=1 THEN RETURN 570 

G0T02435 

RENO === 

REM DATA ENTRY 

REN: === 

B=160:D=1 

A=186:V=0:C$="" 

1$=INKEYS: FORL=1T060: NEXT 

IFI$=CHR$ (20) THEN4000 

IFI$=CHR$ (13) THENV=5: GOTO3110 

IFI$=""THENCOLOR1S: PRESET (A, B) :PRINTH1, "1"; : FORL=1T060: NEXT: COLORA: PRESET(A, B):PRINTH 1, "M"; 


IF ASC(1$)<46 OR ASC(1$)>57 THEN PLAY"OSL64GA":GOTO 3050 
COLOR15:PRESET(A, B) :PRINTH1, 1$;:A=0+8: V=V+1:C$=C$+1$: PLAY "OSL64C" 
IF V=5 THEN R$(D)=C$: COLORA:PRESET (186, B) :PRINTH1, " MN": COLOR15: PRESET (226- (LEN(R$ (D))48) 





,+B):PRINTR1,R$(D) : PLAY"OSL64DEF":GOTO 3120 ELSE GOTO 3050 


3120 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 

310 


IF D=1 THEN B=170: 
REM 
REM ANALISIS RESPUESTAS 
REMIS 
Pi=1 
FOR RI = 1 T0 2 

IF MID$(PREG$(N),1+(RI-1)X20,3)="  " THEN 4320 
7 (5)=VAL (MID$ (CAL$ (N),P1,6)) 
A$=MID$ (CAL$ (N) ,P2,7) 


¿GOTO 3040 ELSE 3030 











K=0:K1=1 

FOR I=1T0 7 

CH$=MID$(A$, 1,1): IFCH$=" "ORCH$=""THEN4200 
A1=ASC (CH$) 

IF A1>47 AND A1<58 THEN 4170 

FOR L=1 TO 4 

IF CH$=CM$(L) “THEN OP(K1)=L:L=4 

NEXT L 

IF OP(K1)>0 AND OP(K1)<5 THEN Ki=k1+1:GOTO 4200 
NP (K+1)=VAL (CH$) 

2 (K+1)=P(NP(K+1)) 

K=k+1 

NEXTI 

2(6)=2(1) 

FORI=1T03: IFOP(1)=0THEN4280 


ONOF (1) G0T04240, 4250, 4260, 4270 
2 (6)=Z (6) KZ (1+1):60T04280 

7 (6)=Z (6) /7 (1+1) :GOTO4280 

2 (6)=2 (6)+Z (1+1) :GOTO4280 

2 1(6)=2(6)-2(1+1) 


NEXTI 

FORJJ=1T04:NP (JJ)=0:0P(JJ)=0: 7 (JJ)=0: NEXTJJ 

2 (6)=INT(Z(5)82 (6)) 

IF 2 (6)=INT(VAL(R$(RI))) THEN F$="CORRECTA":PLAYBB$:GOSUB 4330 ELSE F$="ERRONEA":PLAYBM$: GO 


SUB 4330:G0T0 8000 


4320 
4330 
4340 


F1=14:P2=20:NEXT RI: SW=1: RETURN 
IF RI=2 THEN LINE (10, 15)-(84,89),15,BF 
COLOR1:PRESET (17,30), 15:PRINT4H1, "RESPUESTA" : PRESET (38,50), 15: PRINTH 1, RI:PRESET (23,70), 13:PR 


INTH1,FS$ » 
4350 IF RI=1 THEN GOSUB 4380 ELSE FOR I=i TO S00:NEXT I 


4360 
4370 
4380 


FOR I=1 TO 200:NEXT 1 
RETURN 
B=52: A=15:D=47:E=20:F=15:6=47:CC=1 


4390 
4400 
4410 
4420 
4430 
4440 
4450 
4450 
4470 
4480 
5000 
3010 
5020 
3030 
5040 
5050 
5060 
5070 
5080 
5090 
s100 
s110 
5120 
s130 
5140 
5150 
5150 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
8000 
8010 
8020 
8030 
ya 

8040 
8050 
8060 
8070 
8080 
8090 
8100 
8ei1o 
8120 
8130 
8140 
8150 
8160 
8170 
g180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
2300 
8310 
8320 


FOR I=1 TO 40 

A=A+2:D=D+2: B=B+2:6=6+2 

PUT SPRITE 1, (A,E),CC,1 

PUT SPRITE 2, (F,B),CC,2 

PUT SPRITE 3, (D,E),CC,3 

PUT SFRITE 4,(G,B),CC,4 

IF 1>38 THEN E=209:B=207 

IF CC>14 THEN CC=1 ELSE CC=CC+1 
NEXT 1 

COLOR1S, 4: RETURN 

REM ——————————Á 

REM LECTURA FICHEROS 

REM 
GOSUB1010: GOSUB90O 

OPEN"CAS: DIB"FOR INPUT AS $2 
FOR I=1 TO M3 

FOR J=1 TO 4 

INPUTHZ, S5$ (1,1) 

NEXTJ, I:CLOSE $2 

OPEN"CAS: NOMB"FOR INPUT AS $2 
FOR 1=0 TO M3 

INPUT 42,NOS (1) 

NEXTI:CLOSE 42 

OPEN"CAS: PARA"FOR INPUT AS $2 
FOR I=1 TO M3 

INPUT $2,PAR$(1) 

NEXTI:CLOSE $2 

OPEN"CAS: PREG"FOR INPUT AS 42 
FOR I=1 TO M3 

INPUT 42, PREG$ (1) 

NEXTI:CLOSE $2 

OPEN"CAS: CALC"FOR INPUT AS $2 
FOR I=1 TO M3 

INPUT 42,CAL$(1):CAL$(1)=MIDS (CAL$(1),2,26) 
NEXTI:CLOSE 42 
PS=VAL (NO$ (0) ) : RETURN 


REM 


REM PRESENTA FORMULA 


REM 


SW=0: COLOR, 15, 14: CLS:GOSUB 960: COLOR6: PRESET(4,40):FRINTH1, "Quieres ver la formula ? (S o N 


I$=INKEYS 

IF 1$="S" OR 1I$="s" THEN 8080 

IF I$="n" OR I$= THEN RETURN 

GOTO 8040 

GOSUB 8280: REM extraccion del buffer 
Fi$="":F$="":FORJ=1T07:L1=0 

C1$=MIDS (A$,J,1) 

FORL=1T04: IFC1$=CM$ (L)THENL=4:L1=1:F1$=F1$+" "+C1$+" " 
NEXTL 

IF Li<>0 THEN 8150 

F1$=F1$+B2$ (VAL (C1$)) 

NEXT J 

F$=STR$ (2 (5)) 

IF 2(5)>0 AND 2(5)<1 THEN F$="0"+MID$(F$, 2,4) 
COLOR1:PRESET (20,70) :PRINTH1, "La formula para calcular" 
COLOR2: PRESET (85, 90) : PRINTH1,MIDS$ (PROGS$ (N), 1+(RI-1) 20,20); 
COLOR1:PRESET (20, 115) :PRINTA1, "es: "FS; "e"; 

PRESET (94,130) :PRINTH1,MIDS(F1$,1,15) 

PRESET (86, 140) : PRINTH1,MID$(F1$,16,18) 

PRESET (85, 150) :PRINTR1,MID$(F1$,34,18) 

PRESET (86, 160) : PRINTH1,MID$(F1$,52, 18) 
COLOR4:PRESET (70, 180) :PRINTH1, "PULSA UNA TECLA" 

IF INKEY$="" THEN 8260 

RETURN 

P1=1:P2=15 

FOR I=1 TO 4:1F MID$(PAR$(N),P1,3)="  " THEN 8310 
B2$(1)=MID$ (PAR$(N),P1,P2) 

P1=P1+15:NEXT 1 

RETURN 








RELACION DE LAS VARIABLES - PHILIPS VG 8010 


Aritmética 


DES(+«) = matriz cadenas para los nombres 
de los cestos 

= matriz cadenas para las pregun- 
tas previstas 

=número de símbolos que hay en 
los cestos 

= matriz de las cadenas para com- 
probación respuestas 

= matriz que contiene los factores 
multiplicadores a presentar 


DS$(x) 
NS(+) 
TS(+) 


AD$(+) 


ce = posición en pantalla de las cade- 
(+) nas AD$(«) 
BA = base del sistema de numeración 
considerado 
= valor a sumar 
= nombre del cesto en que sumar 
=número del cesto en que sumar 
(1 —4) 
= índice al cesto considerado 
= flag de salida 
= Cadena que contiene los acarreos 
en forma alfanumérica 
=valor aleatorio generado por el 
programa en forma alfanumérica 
= índice de indicación de error 


Geometría 


BS$(«) = matriz de buffers (1 por campo de 
introducción) 

= longitud campo de introducción 

= número decimales en el campo de 


introducción 


LC(+) 
ND(+) 


CX() 
CY («) 


DX(+«) 
DY (+) 


TF(«) 


= coordenadas en pantalla del cam- 
po de introducción 


= coordenadas en pantalla descrip- 
ción 
= matriz numérica que tiene los có- 
digos ASCII de teclas comandos 
D$(+) = descripciones en máscaras vídeo 
VOS(+) =voces del menú principal 
BL$ = blank 
PD$ = punto decimal 
AS$ = carácter “—”. Identifica los campos 
de introducción alfanuméricos 
NS$ =carácter “*”. Identifica los cam- 
pos de introducción numéricos 
NUC =número de campos introducción 
en máscara vídeo activada 
M3 = máximas lecciones 
SS$(M3,4) = datos para la creación de los spri- 
tes 
= nombres de las figuras 


NO$(M3) 
PAR$ 
(M3) = parámetros de las figuras 
DOM$ 

(M3) = preguntas 

CAL$ 

(M3) = fórmulas de cálculo 


NO$(0) = puntero a última lección 
P5 = val (NO$(0)) 

BM$ 

BPS$ = señales sonoras 

BB$ 
CM$(4) 
RS(«) 


=4 Operadores aritméticos 
= respuestas del usuario 
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Geografía 


También en esta materia, el estudio y la comprobación 
de la preparación pueden ser asistidos por el ordena- 
dor. Una vez más, su capacidad de memorización, 
sus posibilidades gráficas y su velocidad de proceso 
se aprovechan para seguir al niño, ayudándolo en sus 
estudios. 

El programa de Geografía puede adaptarse a cual- 
quier tema inherente a la materia, y permite preparar 
«lecciones» a varios niveles de complejidad. Las pre- 
guntas van acompañadas de un dibujo que ilustra el 


Uso del programa 


El software está dividido en dos programas completa- 
mente separados; el primero está dedicado a la pre- 
paración de las preguntas y el segundo, utilizando los 
datos anteriores, plantea las preguntas y comprueba 
las respuestas. 

La preparación de las preguntas empieza con la defi- 
nición del tema y de la palabra clave en el interior del 
tema. Con esta estructura se dispone de una amplia 
gama de aplicaciones, puesto que un mismo tema 
puede desarrollarse con varios apartados (campos 
Clave). Por ejemplo, el tema España puede contener 
los apartados Ciudades, Ríos, Montes, etc., dando lu- 
gar a una notable variedad de preguntas. 

En la segunda foto de la página 2229 se ha represen- 
tado la máscara que aparece al activar el programa de 
generación. Los datos a proporcionar son los dos an- 
teriores (tema y clave), teniendo en cuenta que para 
cada tema y cada clave debe cambiarse el nombre 
del fichero o utilizar otro soporte (cinta o disco). La pre- 
gunta que deberá presentarse se divide en tres partes 
principales: 


1 / Dibujo: con un sprite o un dibujo en alta resolución 
se presenta gráficamente el tema, por ejemplo la 
silueta esquematizada de una región. 

2 / Texto: algunos campos (5) se utilizan para especifi- 
Car cada pregunta prevista. 

3 / Respuestas: es posible un total de 20 respuestas. 


En la fase de generación de las preguntas, las tres 
partes se crean una después de otra utilizando las 
máscaras representadas en la página 2230. 

En la primera se muestra la generación del sprite que 
deberá presentar el tema de las preguntas. Por ejem- 
plo, utilizando en la generación los datos indicados en 
la segunda foto de la página 2229 se crea una serie de 
preguntas cuyo título será España (tema) y el apartado 
las regiones (campo clave Regiones). Después de es- 
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tema y prevén un procedimiento de ayuda mediante el 
cual, introduciendo la palabra Ayuda, el ordenador su- 
giere la respuesta. 

Al final de cada lección se presenta la «puntuación» 
que especifica cuántas han sido las respuestas co- 
rrectas y cuántas veces se ha pedido ayuda. El proce- 
dimiento está estructurado de manera que ofrezca la 
máxima libertad en la definición de las preguntas y, 
por tanto, puede utilizarse en distintos órdenes de es- 
tudios, a partir de los elementales. 


ta elección y de haber creado el sprite, se pasa a defi- 
nir cada una de las descripciones que constituirán la 
máscara. 

La última fase es la introducción de las respuestas con 
la máscara indicada en la tercera foto de la página 
2230. Las descripciones introducidas anteriormente se 
han representado en la plantilla, y a su lado hay la zo- 
na para introducir los datos. En el ejemplo, la máscara 
contendrá las leyendas: Región, Habitantes, Recur- 
sos, etc., y al lado de cada una deben introducirse las 
respuestas que le corresponden. 

Por ejemplo, un primer grupo de datos podría corres- 
ponder a Navarra, por lo que se tendría la máscara de 
la tercera foto de la página 2231; cambiando la región 
se obtiene una máscara con las mismas descripciones 
anteriores, a las que el usuario debe asociar las nue- 
vas respuestas. 

En general, las descripciones pueden variarse pasan- 
do de uno a otro dato. En el ejemplo anterior, el primer 
grupo introducido, correspondiente a Navarra, conte- 
nía las descripciones Región, Habitantes, Recursos, 
Capital. En el grupo de datos siguiente, el programa 
acepta variaciones de los mismos, por lo que tratando 
por ejemplo Cuenca, el campo Recursos puede susti- 
tuirse por el Ríos o el Montes, haciendo más variado el 
desarrollo. El único campo que debe permanecer co- 
mún para todos los datos de un determinado tema es 
el campo clave, presentado en la primera línea de las 
preguntas. 

Esta estructura permite utilizar el programa para una 
amplia gama de aplicaciones, porque el significado 
de cada pregunta no está predefinido ni es fijo en el 
ámbito de cada tema, pudiendo alcanzar con gran fa- 
cilidad cualquier grado de detalle. Por ejemplo, de las 
preguntas correspondientes a las regiones puede pa- 
sarse a examinar las ciudades principales de cada re- 
gión, por lo que el dato que en el primer grupo era la 
Clave (o sea la región) puede convertirse en el propio 


tema, dando lugar a una nueva serie de preguntas, de 
mayor profundidad que las anteriores, sobre dicha re- 
gión. En este caso, el programa clave podría ser una 
ciudad, los montes o los ríos. Por tanto, el programa 
puede permitir la preparación de un verdadero curso 
que, partiendo de un nivel de síntesis, se desarrolle 
con un detalle creciente. 

Por ejemplo, un primer nivel puede estar constituido 
por Europa con preguntas sobre las naciones; el si- 
guiente nivel podrá contener un primer detalle de cada 
nación, y de él podrán preverse secciones inferiores 
con preguntas sobre cada nación, como por ejemplo 
las regiones o las ciudades. 

Análogamente, puede cambiarse el tema pasando, 
por ejemplo, a la geografía gastronómica. 
Resumiendo, el programa no está vinculado a ninguna 
disciplina en particular, y basta con respetar algunas 
reglas impuestas por la estructura lógica para poderlo 
aplicar a los temas más variados, incluso diferentes de 
la geografía. 

En las aplicaciones deben tenerse presentes los si- 
guientes vínculos: 


"m el campo clave es único para todas las preguntas. 
Por ejemplo, con las máscaras anteriores, el pro- 


Menú general. En la foto se presenta la pantalla 
principal que se obtiene al activar el programa 
Geografía. Mediante este menú es posible cargar 
en la memoria los dos programas que constituyen 
el procedimiento, uno de generación y otro para el 
desarrollo de las pruebas. 


Generación. La primera función a desarrollar es la 
Generación de los archivos que constituyen el material 
de las preguntas. El programa prevé una primera 
introducción del título y de la clave para cada lección. 
Estos dos parámetros son comunes a todos los 
ejercicios introducidos, y representan las 
características fundamentales del diskette datos 
utilizado: en este caso, el soporte magnético contiene 
lecciones correspondientes a España. 





grama siempre presentará preguntas sobre regio- 
nes del país considerado 

"m todos los demás campos son completamente defi- 
nibles por el usuario y están divididos en 4 pregun- 
tas. 


Entre las preguntas definibles por el usuario: 


" la primera admite una sola respuesta (segunda lí- 
nea de la máscara, Habitantes) y, por tanto, deberá 
estar estructurada para preguntas que no permitan 
más de una respuesta válida 

" la segunda (línea 3, Recursos) solicita cinco res- 
puestas 

E la tercera (línea 4, Capital), evidentemente admite 
una sola respuesta 

m la última pregunta permite un máximo de doce res- 
puestas. 


Completada la generación de los datos, puede pasar- 
se a su uso. El programa lee la palabra clave (Región) 
y la presenta, invitando al usuario a seleccionar la re- 
gión sobre la que desea las preguntas. Después de 
esta sección aparece la máscara que permite introdu- 
cir y comprobar las respuestas. 


| GEOGRAFIA | 
INTRODUCIR EL NUMERO CORRESPC 
A LINA 


GENERACION DE LOS ARCHIVOS 
DESARROLLO LECCIONES 
2 FIN DE TAREA 


CUAL 


LGA EA A 


(COTCGARACIO 
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La introducción de las lecciones prevé en primer lugar 

la creación de la figura que ilustrará la lección (en este 

caso se ha dibujado el perfil de una región española). 

Los comandos a utilizar son: 

(1) CRSR UP : desplaza el cursor 1 posición arriba 

(1) CRSR DOWN: desplaza el cursor 1 posición abajo 

(>) CRSR RIGHT: desplaza el cursor 1 posición a la 
derecha 

(-) CRSR LEFT  : desplaza el cursor 1 posición a la 

izquierda 

enciende el punto en que hay el cursor 

apaga el punto en que hay el cursor 

introduce la figura 


D>m 





En este punto se presentan cinco preguntas 
pertenecientes a la lección que se está construyendo. 
La primera se escribe automáticamente y no se puede 
variar (corresponde al campo clave, común a todas las 
lecciones) y las otras las decide el usuario. En este caso 
se ha elegido el tema Regiones como campo clave de 
las lecciones. 





En esta foto se ha representado la presentación final de 
la introducción de lecciones. Pueden verse las cinco 
preguntas y el dibujo ilustrativo introducidos 
anteriormente. Ahora el usuario debe introducir las 
respuestas correctas previstas para esta lección. Este 
formato vídeo se utilizará después durante el desarrollo 
de las lecciones para permitir que el niño introduzca las 
respuestas. 





Al final de la introducción de una lección se pregunta 
al usuario si desea introducir otra lección o no. En este 
último caso se actualizará el puntero del fichero datos 
y el programa terminará. 
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Desarrollo lecciones. Apenas activado, el programa 
de desarrollo lecciones pide la introducción del diskette 
que contiene los datos y del que se leerá el tema tratado 
en las lecciones. En esta foto se ha representado la 
máscara vídeo que informa al usuario sobre el 
contenido de las lecciones: ahora puede decidir si 
responde o no a las preguntas introducidas en dicho 
soporte magnético. 


Siguiendo con el desarrollo de las lecciones, el niño 
tendrá que especificar sobre qué cuestionario desea 
ser interrogado. Este paso ya representa una forma de 
interrogación, porque al ir a buscar el fichero de la 
lección pedida, el programa examinará el conocimiento 
a nivel general del tema. En este caso (lecciones sobre 
regiones españolas), el niño ha realizado una petición 
correcta, porque el nombre “navarra” corresponde a 
una lección efectivamente introducida. 


Una vez identificada la lección entre las que hay en el 
disco datos, se presenta la máscara vídeo en la que 
el niño deberá introducir las respuestas. El nombre 
“navarra” representa el título de la lección, por lo que 
el programa lo escribe automáticamente. 


El niño ha empezado a introducir las respuestas. El 
cursor está representado por un interrogante que 
parpadea: las palabras más cortas de 10 letras pueden 
introducirse con la tecla RETURN, las respuestas de 10 
letras se introducen automáticamente al introducir la 
última letra. 
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Las respuestas correctas permanecen en pantalla de la 
misma manera en que se han escrito. Los errores se 
presentan mediante un mensaje visual en la misma 
posición en que se han produtido. Esta máscara vídeo 
no prevé ayuda porque no está gestionada por la data 
entry, y consiste solamente en la introducción de 
palabras de una longitud máxima de diez caracteres. 





Durante el desarrollo de las lecciones se ha previsto 
una posible ayuda del ordenador en el caso de que el 
niño no conozca una de las respuestas. 

Al escribir la palabra “ayuda” en el espacio reservado a 
la eventual respuesta ignorada, ésta se presentará y el 
cursor se desplazará al campo de la siguiente 
pregunta. 





En este caso se ha pedido una ayuda para la pregunta 
Capital, y el ordenador ha presentado la respuesta 
correspondiente. Ahora el niño está introduciendo la 
última respuesta prevista. 





Una vez terminada la fase de introducción de las 
respuestas, el programa está preparado para indicar 
el recuento. Se ha previsto una espera antes de hacer 
desaparecer la pantalla de las respuestas. 
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En la foto se ha presentado la pantalla final del 
programa de desarrollo lecciones. En ella, el ordenador 
presenta los resultados obtenidos por el niño en la 
lección acabada de desarrollar. Se presentan tres 
totales diferentes: las respuestas correctas, las 
erróneas y el número de ayudas pedidas. Después 
se pregunta al niño si desea desarrollar otra lección. 


TRANS 


RESPUESTAS 


JUE 





En el programa de desarrollo lecciones es necesario 
indicar la manera en que el niño debe pedir las | ES PER CA 
lecciones, cuyo título debe escribirse de la misma ia Y (1114 CIO 
manera que se ha introducido en la Generación. Por Bs : e 
ejemplo, en el caso de regiones de España, se pide el 
nombre “Valencia”. 


A A A TIE 


El programa detecta el error, constituido por la primera 
letra del nombre escrita en mayúscula (en la 
Generación se ha introducido en minúscula), y lo indica. 





Generación. Con el programa de Generación de las 
preguntas para el procedimiento Geografía puede 
crearse un número ilimitado de grupos de lecciones, 
cada una correspondiente a un tema o a un subtema 
diferente. Esta variedad de cuestionarios se obtiene 
sustituyendo el soporte magnético en el que hay 
grabados los datos. De esta manera puede constituirse 
una gran biblioteca de datos. Por ejemplo, en la foto se 
ha generado un archivo de datos referido a 
Norteamérica, correspondiente al tema Lagos. 
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La lógica del programa 


El programa, en su uso completo, debe gestionar un 
conjunto de datos con las posibilidades de introducir 
un dibujo, modificar las descripciones de los campos 
y evaluar las respuestas dadas. 

Cada grupo de datos deberá tener un registro (o va- 
rios) dividido en tres partes: Respuestas, Descripcio- 
nes y Dibujo. 

La estructura utilizada se ha esquematizado en el grá- 
fico de la página 2235. El fichero datos está dividido en 
grupos lógicos, cada uno de 6 registros (excepto en el 
Apple, que necesita más registros para el dibujo). Los 
primeros 4 contienen las respuestas, el 5.” las descrip- 
ciones, y el último (los últimos 10 en el Apple), los da- 
tos necesarios para crear el sprite. Normalmente, el 
primer registro está reservado a los datos de servicio. 
En particular, contiene: 


" número del último registro introducido: cada grupo 
de datos (al que le corresponde una máscara) está 
numerado progresivamente. Este valor se memori- 
za en el registro 1 (bytes 1 y 2) del fichero 

mn descripción del campo clave: es la descripción que 
aparece en la primera línea de cada máscara y 
cuyo contenido identifica el apartado elegido en el 
ámbito del tema contenido en el fichero 

m título: constituido por 10 caracteres, tiene la única 
finalidad de comprobación para asegurar que el 
soporte utilizado (disco o cinta) contiene el tema 
deseado. 


En el mismo gráfico también se han representado los 
punteros para identificar en el conjunto de los registros 
presentados los que se refieren a un determinado gru- 
po de datos. Como cada grupo ocupa 6 registros (15 
en el Apple), debe procederse con estos pasos y, por 
tanto, el principio de un grupo general «N» está des- 
pués de un número de registros a partir del principio 
del fichero, igual al número de grupos que lo preceden 
multiplicado por 6 (15 en el Apple). A este valor debe 
sumársele 2, porque el primer bloque de datos empie- 
za en este registro. 

Como se ha indicado antes, la introducción de los da- 
tos se realiza en tres fases sucesivas para cada apar- 
tado, empezando por el sprite y terminando por las 
respuestas. 

En los gráficos de las páginas 2236 y 2237 se ha re- 
presentado el diagrama de principio del programa de 
generación. Para interpretar correctamente dicho dia- 
grama hay que consultar los esquemas de máscaras 
representados en la página 2230. 

El diagrama no presenta dificultades de interpretación, 
y sólo hay que especificar que su particular estructura 
deriva de la elección de utilizar la misma lógica tanto 
para la versión cinta como para la de disco. En parti- 
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cular, todos los datos relativos a un cierto tema deber 
introducirse uno después de otro. 

Una segunda particularidad consiste en haber fijadc 
previamente por programa el nombre del fichero, por 
lo que para cambiar de tema se necesita un nuevo 
soporte físico. 

Este inconveniente, irrevelante para la versión cinta (el 
coste de una cinta no es alto), puede eliminarse en la 
versión disco introduciendo en la primera máscara la 
petición del nombre del fichero o utilizando para el 
nombre los primeros caracteres de la descripción. De 
esta manera, en el mismo diskette pueden coexistir va- 
rios grupos de datos. 

Una segunda implantación, siempre correspondiente 
a la versión disco, puede consistir en prever un proce- 
dimiento para corregir los datos introducidos. 
Finalmente, hay que tener en cuenta que no se ha es- 
pecificado el formato de memorización ni cómo se han 
construido. En los diagramas, sólo se ha esquematiza- 
do el tema porque depende demasiado del tipo de 
máquina y no permite un tratamiento generalizado. Sin 
embargo, deben consultarse los correspondientes lis- 
tados. 

Una situación a tener presente es que los bytes dispo- 
nibles para la memorización del sprite pueden no ser 
suficientes, aunque este inconveniente puede obviar- 
se variando la longitud de los registros o el número de 
éstos dedicados al sprite. 

El programa está completamente separado del que 
permite utilizar los datos para comprobar la prepara- 
ción del niño; el único parámetro común a ambos es el 
formato del fichero. 

En el gráfico de abajo de la página 2237 se ha repre- 
sentado el diagrama del segundo programa (utiliza- 
ción) que, como puede verse, está estructurado en só- 
lo 4 subrutinas, porque debe realizar pocas funciones. 
En la activación es necesario pedir el tema y el aparta- 
do dentro del tema. Entonces, el programa empieza 
con una subrutina (14000) que lee el primer registro 
del fichero datos, presenta el tema contenido en éste 
(descripción) y espera la introducción del valor y de la 
palabra clave. El diagrama de esta subrutina se ha re- 
presentado en el gráfico de la página 2238. 

Según el valor introducido (por ejemplo ANDALUCIA), 
el programa busca, con la subrutina 8000, el grupo de 
datos correspondiente. Si este valor no se encuentra 
en ningún grupo, indica el error y pide una nueva intro- 
ducción. Si no es así, lee los datos, tanto si son de las 
preguntas (descripción, en D$(«*)) como de las res- 
puestas (en B$(«)) y presenta la máscara vídeo (sub- 
rutina 16000), naturalmente sin que aparezcan las res- 
puestas. 

La última función, realizada por la subrutina 15000, es 
la introducción de las respuestas y su comprobación. 
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Utilizando este programa 

antes hay que preparar todos 
los datos a introducir, porque 
no son posibles correcciones 
ni adiciones. Para cada tema 
debe utilizarse un soporte 
diferente (cinta o disco), o bien 
modificar el programa para 
parametrizar el nombre del 
archivo. 


En la versión Apple, 

los dibujos se introducen 
al final de las 

preguntas 


Para las descripciones no puede 
utilizarse la matriz D$(*), porque 
ya está prevista en la data entry 


TT es el puntero al registro, 
por lo que siempre 
debe incrementarse 


INTRODUCCION DATOS 


TT=TT+1 
BS(x) al 
fichero, reg. TT 


TT =TT+1 
S15(+) al fichero 


TT=TT +1 
SPS(+) al fichero 
UG = UG +1 


El diagrama se desarrolla 
para funciones sin la 
indicación de las 

subrutinas necesarias porque 
son idénticas a las utilizadas 
en las data entry anteriores 


Transfiere el registro 1 al fichero. 
Para la versión cinta en un 
fichero separado. En TT se pone 
el valor 1 y, en UG (último 
grupo), el valor 0. 


Los datos se transfieren 
a SP$(x) 


Los 5 campos de descripción (D$(+)) 
se tratan como datos y 

se introducen con una 

data entry normal. 

Durante la introducción 

están en B$(+*); al final 

se transfieren a S1$(x) 


De esta manera se crean 
las descripciones para la 
siguiente máscara 


Es una data entry normal en la que 
las descripciones se han 
introducido anteriormente y 

los datos sen las respuestas. 
B$(1) se pone igual al 

campo clave introducido 

en la primera máscara 


Transfiere B$(20) al fichero en 
4 registros 

TT + 1 con B$(1) ... B$(5) 
TT + 2 con B$(6) ... B$(10) 
TT + 3 con B5(11) ... B$(15) 
TT + 4 con B5(16) ... B$(20) 


Transfiere las descripciones 


Transfiere el sprite 


Ultimo grupo transferido 





Para la cinta, 

el segundo fichero 
es el que hace de 
directorio para el 
fichero DATOS 


Escribe UG 
en el registro 1 


PRESENTACION PREGUNTAS Y GESTION RESPUESTAS 


Pregunta el campo clave en base 
al cual seleccionar los datos 

Por ejemplo, introduciendo 
“Albacete”, se presentarán 

las preguntas correspondientes 

a esta región (esta función 

se presenta con detalle 

en el siguiente diagrama) 


En el fichero busca el grupo de datos 
que tiene el campo clave pedido 


Carga los registros del grupo 
datos correspondiente a la clave 
seleccionada, cada uno en 

su propia matriz 


Construye la pantalla vídeo 
en la que se introducirán 
las respuestas 


Lectura de las respuestas 
y comprobación de si son 
correctas o están completas 
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SELECCION TEMA 


En la variable KS se ha puesto 
el valor (numérico) de 

los bytes 1 y 2. 

KS se utilizará en la subrutina 
de búsqueda (8000) 


El fichero tiene el nombre 
DATOS, y el tema que contiene 
está descrito en el registro 1 (**) 


El tema Geografía puede 

realizarse en diferentes ficheros 
DATOS. La máscara anterior 
muestra el título (p. e. NACIONES 
EUROPEAS) para poder comprobar 
si se ha utilizado el deseado. 


(*) El valor a introducir en el campo clave (que se utilizará después en la búsqueda) podría ser más 
corto que los 10 bytes previstos, por lo que la subrutina lo completa con espacios (a la derecha) 
Por ejemplo, introduciendo LEON, la cadena CV$ deberá completarse con 6 espacios 


(**) Para la versión cinta, estos datos están en un fichero separado, mientras que el primer registro 


del fichero DATOS está en blanco 





Introducción de datos. En las páginas 2236 y 2237 se 
ha representado el diagrama de principio de genera- 
ción. En esta versión no se ha previsto la corrección de 
los datos introducidos, por lo que antes de empezar 
esta fase es conveniente analizarlos atentamente para 
evitar errores, los cuales obligarían a rehacer comple- 
tamente todo el trabajo. 

Efectivamente, en caso de error de introducción, será 
necesario rehacer completamente los datos porque en 
el programa no se ha previsto su actualización. 

Esta solución se ha adoptado teniendo en cuenta la 
complejidad de los datos a introducir, de modo que se 
necesite una particular atención y aplicación en su 
preparación, con lo que se evita una gran parte de las 
causas de error. 

Partiendo de esta base, es conveniente eliminar la fun- 
ción de actualización que, debido a la presencia de 
los sprites, resultaría particularmente compleja desde 
el punto de vista de la programación. 

La primera máscara permite introducir el título del 
campo clave (como descripción) y transfiere los datos 
al registro 1 del fichero (directorio). 

Recuérdese que el título se utiliza sólo al principio para 
comprobar que el soporte (disco o cinta) sea el ade- 
cuado, mientras que el campo clave se presenta en 
cada pregunta. 

Sigue la generación del sprite que ilustra el tema (ob- 
tenida con las rutinas ya descritas), excepto en la ver- 
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sión Apple, que prevé la construcción del dibujo al fi- 
nal de todas las demás funciones. 

A continuación se introducen las descripciones y los 
datos: las primeras constituirán el texto de las pregun- 
tas, mientras que los datos son las respuestas que se 
compararán en la fase de utilización con las dadas por 
el usuario. Los valores (alfanuméricos) así introducidos 
se transfieren al fichero según varios formatos, que de- 
penden de la versión. El programa es simplemente un 
empleo diferente de la data entry y no presenta dificul- 
tades particulares. 


Presentación preguntas y gestión respuestas. El 
diagrama muestra el programa de selección del tema 
(campo clave), presentación y comprobación de las 
respuestas. 

Como se ha indicado antes, los datos se identifican 
con dos parámetros: el rótulo y el campo clave. El título 
es común a todos los registros lógicos del fichero, y 
puede utilizarse únicamente como elemento de con- 
trol, mientras que el campo clave está ligado a un gru- 
po de datos (que representa un registro lógico) y 
constituye su identificación. 

La primera es la petición de introducción del campo 
Clave, O sea del tema sobre el que se desean las pre- 
guntas (los detalles de esta función se ilustran en el 
gráfico de la pág. 2238. En base a este valor (cadena), 
la subrutina 8000 selecciona el grupo de registros (físi- 


cos) correspondiente. En caso de error, o sea si en el 
fichero no hay el valor pedido, se activa un flag que 
produce la emisión de un mensaje y pide que se for- 
mule de nuevo la pregunta. 

En caso de resultado positivo (campo clave hallado), 
el registro (lógico) se carga en memoria con la subruti- 
na 14000, se presenta la máscara (subrutina 16000) y 
se leen y comprueban las respuestas dadas por el 
usuario (subrutina 15000). 

Al final, el programa pregunta si se desea continuar y, 
en caso de respuesta afirmativa, empieza un nuevo 
«run» idéntico al anterior. En el gráfico de las páginas 
anteriores se ha mostrado con detalle el desarrollo del 
diálogo inicial para la selección del tema deseado (en 
el diagrama anterior, el conjunto se ha resumido en un 
solo bloque funcional). La gestión del fichero datos es 
análoga, aunque algo más compleja, a la utilizada en 
los otros programas. Efectivamente, entre otros, el re- 
gistro 1 contiene el número progresivo del último dato 
introducido o la longitud lógica del fichero. Este valor 
se transfiere a una variable (indicada con KS en el dia- 
grama) y se utiliza como final del bucle de búsqueda 
del campo clave seleccionado. Sigue la presentación 
del título y de la descripción del campo clave. 

Esto es necesario porque bajo un mismo título pueden 
memorizarse varios conjuntos de datos, cada uno con 
una clave diferente. 

Hay que recordar siempre la estructura completamen- 
te configurable del programa, lo que si por una parte 
aumenta sus posibilidades de aplicación, por otro lo 
obliga a una mayor estructuración durante la introduc- 
ción de las preguntas. Sin embargo, esta característi- 
ca hace que el programa pueda utilizarse para cual- 
quier aplicación basada en una serie de preguntas in- 
herentes a cualquier tema (campo clave) y, por tanto, 
no está confinado a la Geografía. 

La función de selección del tema termina con la intro- 
ducción de la cadena que constituye el valor a buscar 
(en el primer campo de cada registro lógico). Para €s- 
ta introducción no basta un sencillo INPUT, sino que 
es necesaria una lógica que conserve inalterada la 
longitud prevista, incluso si el número de caracteres es 
menor. 

Esto es necesario porque el valor se utilizará como ele- 
mento de comparación durante la selección, por lo 
que debe tener una longitud igual a la prevista en el 
fichero. Esta condición puede ser respetada de dos 
maneras: utilizando la data entry, que sin otra indica- 
ción que la longitud (en número de caracteres) proce- 
de a formar el campo, o bien completando la cadena 
introducida con tantos espacios como sean necesa- 
rios para obtener la longitud prevista (10 bytes). 

El control descrito no asegura la validez del dato intro- 
ducido, y en particular no prevé ningún control sobre 
la existencia de sinónimos. Por ejemplo, los datos po- 
drían haberse generado con la palabra clave «Mon- 
tes», mientras que el usuario podría buscar «Monta- 
ñas» sin encontrar el tema. Este defecto no puede ob- 


viarse de manera sencilla, y constituye uno de los pro- 
blemas de solución más compleja en la gestión de los 
Bancos de Datos. 

La mejor solución consiste en crear una tabla de sinó- 
nimos en la que se agrupan todos los vocablos que, al 
final de la búsqueda, indiquen el mismo tema. En este 
programa, por motivos de sencillez y de ocupación de 
memoria, no se ha previsto esta implantación. El usua- 
rio puede activarla generando un fichero separado 
que contenga, en cada registro, una palabra clave y 
sus sinónimos. 

En la fase de búsqueda debe modificarse la lógica in- 
troduciendo un bucle que compare el valor introduci- 
do con todos los sinónimos presentes. Al producirse 
una igualdad debe activarse un flag que, a la salida de 
la rutina, indique que se ha producido un resultado 
positivo. 

Si bien esta lógica no presenta diicultades particulares 
de programación, no es sencilla de funcionamiento, 
puesto que se requiere una notable cantidad de me- 
moria para poder contener todo el fichero de sinóni- 
mos, o bien hace más lenta la ejecución del programa 
debido a los continuos accesos al disco. 

Otra solución, que no requiere ninguna implantación, 
consiste en duplicar todos los datos para cada posible 
sinónimo. Por ejemplo, para los vocablos «Montes» y 
«Montañas» basta generar dos registros lógicos ideñ- 
ticos de contenido, excepto la palabra clave. Sin em- 
bargo, esta solución implica un derroche de espacio 
en el soporte magnético y, por tanto, sólo es aplicable 
en los casos en que los sinónimos son pocos, como en 
Geografía. 

Sin embargo, en las versiones disco, esta solución sólo 
implica una mayor ocupación de memoria de masa, 
que no suele ser significativa, mientras que en la ver- 
sión cinta puede ser inaplicable, ya que necesita un 
correspondiente aumento de la memoria de máquina, 
reduciendo sensiblemente el número máximo de datos 
para cada tema. 


Búsqueda del campo clave. La subrutina 8000 reali- 
za la búsqueda del grupo de datos que tiene como 
clave el valor introducido por el usuario. 

Su desarrollo se reduce a un bucle de lectura de dis- 
co, a la extracción del contenido de los bytes corres- 
pondientes al campo clave y a su comparación con el 
valor introducido. En la entrada hay que proporcionar 
a la variable KE el número máximo de registros (o sea 
el número del último registro escrito, cuyo valor se ob- 
tiene a través del contenido del directorio del fichero) y 
el parámetro K. 

Como se muestra en el gráfico de la página 2235, la 
estructura de los ficheros no es igual para todas las 
versiones. Un registro lógico está constituido por diver- 
sos registros físicos, cuyo número depende del tipo de 
gráfico implantado en la máquina particular. Efectiva- 
mente, las tres máquinas difieren sustancialmente en 
este aspecto. En los sistemas C-64 y MSX existe una 
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BUSQUEDA CAMPO CLAVE 


Los campos clave 
de los distintos 
grupos datos están 
a una distancia 

de K registros 
entre sí (*) 


El campo clave 
pedido no está. 
Se activa el flag 
de error que se 
utilizará en 

el main 


(*) En el Apple se tiene K = 15 


Predispone los extremos 

de bucle de lectura datos 
KE y el último registro útil: 
(KE = 2 + Kx* (KS- 1) (*) 


Principio bucle 


El contenido del registro 
se pone en AA$ 


Extrae el campo 
clave 


Comprueba si es el 
seleccionado (p.e. LEON) 


En el C-64 se tiene K = 7 (mientras que es 8 en escritura) 
En el Philips se tiene K = 1, porque la búsqueda se hace en TT$(x, 1) 


(**) En el Philips, este bloque está sustituido por AA$ = 


TTS(1,1), porque los datos leídos de la cinta 


se transfieren directamente a TT$(M3,5), donde M3 es el número máximo de lecciones memorizables 





buena gestión de los sprites, por lo que el dibujo se 
obtiene con este método, mientras que en el sistema 
DOS es necesario utilizar la alta resolución, incluso si- 
mulando los sprites, con el consiguiente aumento de la 
ocupación del disco. 

Esta situación hace que el número de registros físicos, 
que constituyen un registro lógico, varíe en función de 
la versión. El parámetro K representa este valor y pro- 
porciona el «paso» con el que deben leerse los regis- 
tros del fichero para extraer de cada grupo de datos la 
correspondiente clave. Los valores utilizados en las 
tres versiones se indican en el gráfico de arriba. 
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Aparte de esta parametrización, la subrutina no pre- 
senta otras particularidades porque, dado el limitado 
número de registros (lógicos) que debe controlar, está 
estructurada sin tener en cuenta los tiempos de proce- 
so necesarios. 

El contenido del fichero se examina secuencialmente 
hasta el primer registro en el que el campo clave tiene 
valor deseado, o hasta el último registro escrito. 

En ciertas condiciones, este método puede emplear 
un tiempo excesivo, por lo que al aumentar notable- 
mente la longitud del fichero datos es útil prever una 
búsqueda de tipo binario, que sin embargo implica la 


necesidad de ordenar el fichero datos según el conte- 
nido del campo clave. 

Estas funciones se ilustrarán con detalle en el progra- 
ma de la Base de Datos. 

El diagrama ilustra los puntos más significativos de es- 
ta rutina. Dada la particular estructura de los datos (ver 
formato registro), su lectura del disco o de la cinta pre- 
senta una lógica muy diferente a la utilizada en los 
otros programas. 

Observando el gráfico de la página 2235 puede verse 
que se necesitan varios punteros para identificar y ex- 
traer cada grupo de datos. El primero, utilizado en las 
subrutinas anteriores, identifica el grupo de datos inhe- 
rentes al tema seleccionado, y permite la lectura y la 
carga en la cadena AAS$ del contenido de los registros 
correspondientes (de 2 a 7, 8 a 13, etc.), mientras que 
los punteros utilizados en la 14000 sirven para «de- 
sempaquetar» la cadena y para atribuir a cada uno de 
los elementos de B$(«) y D$(+) el valor correcto. 
Siempre haciendo referencia a la figura de la página 
2235 (formato del fichero), es evidente que cada uno 
de los registros físicos que componen un registro lógi- 
co debe asignarse a un grupo particular de variables. 
La estructura de los datos puede dividirse en dos par- 
tes: la primera contiene las respuestas que el usuario 
deberá dar y las descripciones que la máquina deberá 
presentar en la máscara vídeo; la segunda (los regis- 
tros de 6 a K) contiene los datos correspondientes al 
dibujo. La parte descriptiva, constituida por los 5 pri- 
meros registros, tiene un formato idéntico para todas 
las versiones, mientras que los registros que contienen 
los sprites o los datos para el dibujo en alta resolución 
tienen un formato que depende de la versión. 

En el gráfico de la página siguiente se ilustra el flujo de 
la lectura de la parte alfanumérica, y para el dibujo hay 
que consultar los listados (subrutina 30100). 

La parte alfanumérica de los datos, a su vez, está divi- 
dida en dos zonas. La primera, de 4 registros, contie- 
ne las respuestas y debe memorizarse en la matriz 
BS(+); la otra, de un solo registro, contiene las descrip- 
ciones y debe transferirse a D$(+). 

La primera parte, lectura de B$(«), se desarrolla en el 
bucle con índice |, y la segunda, correspondiente a 
D$(«), está constituida por el último bucle indicado en 
la misma figura (índice J). 

En el primer bucle se incluye el cálculo del puntero J1 
que identifica el primer elemento de la matriz B$(w). 
De hecho, como el paso de un registro a otro es 5, en 
lectura, el elemento de B$(«) en que se inicia la trans- 
ferencia depende del valor de |. Por ejemplo, al primer 
registro (l= 1) debe transferirse empezando por 
B$(1), mientras que en el registro 4(1 = 4), los elemen- 
tos a utilizar empiezan en B$(16). 

El «apuntado» correcto se realiza calculando J1, valor 
inicial, y desarrollando un bucle entre J1 y J1 + 4 (en 
cada registro hay 5 elementos). Al final de este bucle 
puede incrementarse el puntero | y seleccionarse otro 
grupo de respuestas. 


Obsérvese que la lectura de los datos sigue al desem- 
paquetado porque el primer registro del grupo se lee 
antes que la llamada a la subrutina 14000. 

Por tanto, en la entrada, la variable AA$ contiene los 
datos correspondientes al primer registro. Sin embar- 
go, el bucle se ejecuta hasta | = 4, porque la última 
lectura es necesaria para cargar el registro 5 de las 
descripciones. 

Obsérvese que el bucle más exterior, índice |, también 
debe incrementar el puntero K1. En la llamada, este 
puntero se implanta igual al número del registro que 
contiene la palabra clave seleccionada, y la lectura 
debe empezar desde éste. Por tanto, los valores nu- 
méricos de los punteros a los registros siempre se re- 
fieren a K1. 

La necesidad de la utilización de este puntero también 
es causa de la forma poco usual de la subrutina. Por 
necesidades de búsqueda de los datos, antes de lla- 
marla es necesario un bucle sobre el fichero que se- 
leccione el registro lógico a utilizar. Esta selección sólo 
puede realizarse leyendo el primer registro físico de 
cada grupo, y por este motivo, cuando la 14000 llama 
la variable AA$, ya contiene los primeros datos del pri- 
mer grupo (campo clave y primeras 4 respuestas) y la 
subrutina debe empezar con el desempaquetado, 
mientras que la lectura del registro insertada al final del 
bucle sirve para adquirir los datos a utilizar en el «ci- 
clo» siguiente. 

De esta lógica resulta que en la salida del bucle se ha 
realizado una lectura de más, o sea se han cargado 
los datos correspondientes al último registro físico (los 
que deben transferirse a D$()), por lo que puede acti- 
varse el bucle de transferencia sin ninguna lectura. 
Una última particularidad está en el modo utilizado pa- 
ra extraer los distintos campos. Como todos tienen una 
longitud de 10, no es necesario definir asignaciones, 
sino que basta con un bucle sobre los caracteres de la 
cadena AA$ que extraiga (con la instrucción MID$) 
grupos de 10, a partir de 1, 11, etc. 


Presentación de la máscara. La subrutina empieza 
con la presentación de la figura (30200) a partir de las 
coordenadas 1,1. El diagrama correspondiente a esta 
parte no se ha representado, puesto que depende 
mucho de la versión y, por tanto, debe consultarse el 
listado específico. 

Terminada la presentación de la figura, empieza la 
preparación de la pantalla. Esta función está dividida 
en dos partes: en la primera se presentan las líneas de 
tipo «mixto», o sea las que contienen también algunas 
descripciones, y en la segunda sólo se presentan los 
trazos sobre los que el usuario deberá introducir sus 
respuestas. Esta segunda parte, correspondiente a la 
zona inferior de la máscara, no se ha representado 
porque es completamente análoga a la anterior. 

La subrutina se reduce a una serie de bucles de posi- 
cionado y de escritura, el primero con D$(x), corres- 
pondiente a los campos con descripción, y el otro sólo 
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LECTURA DATOS 


Puntero al primer B$(x) al que 
deben transferirse los datos 


Principio del bucle de transferencia 
en B$(x) 


Con K=J-5x (1-1) 
N=1+10*(K- 1) 


El bucle de desempaquetado 
termina con los índices 
5; 10; 15;.20 


Bucle de lectura registros respuestas (B$(+)) 


La posición desacostumbrada de 
la lectura se debe a la subrutina 
8000, en la que debe leerse 

el primer registro del grupo 


Sale con | = 5, o sea después 
de haber leído y desempaquetado 
el 4 (último de las respuestas) 


o 
5 
ya 
o 
D 
a 
o 
o 
Ú 
3 
D 
==) 
g 
y 
o 
E 
D 
N 
L 
D 
v 
o 
o 
o 
>) 
co 


En este punto, AA$ contiene 
el registro correspondiente 


Atención, el bucle al número 5, o sea D$(x) 


sobre los registros (Il) no 
conviene ejecutarlo con 


la instrucción: FOR... Principio bucle extracción 


descripciones (D$(+:)) 


N=1+ 10% (J- 1) 


Extracción 
descripciones: 
5 campos de 


El diagrama de esta rutina 

se ha omitido porque depende 
del tipo de máquina. Sin embargo, 
la lógica es análoga a las 
anteriores y puede verse 

en los listados 


En la versión cinta (MSX), 

esta subrutina se ejecuta de 
manera diferente (ver listado), 
porque los datos están 
memorizados en la matriz TT$(+*,5) 
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PRESENTACION MASCARA 


Para If= 1 también 


caso, no es 
respuesta, 
sino el tema 


En el punto de coordenadas 
YS,XC. El diagrama de esta 
subrutina se ha omitido porque 
depende del tipo de máquina 


Principio posicionado 
primeras tres líneas 


Calcula la línea (con paso 2). 
La columna siempre es XC + 16 


Si la descripción (D$(1))'o la 
respuesta (B$(1)) no contienen 
caracteres, el campo 

se salta 


Principio bucle 4 líneas 
siguientes, que sólo 
contienen B$(+) 
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de principio de campo. Estos valores se utilizarán 
en la subrutina de introducción 


con los trazos (recuérdese que B$(x) no debe ser pre- 
sentado, porque contiene las respuestas a dar y sólo 
se empleará para la comprobación de su exactitud). 

Durante este bucle también se memorizan en las ma- 
trices YR(*) y XR(x*) las coordenadas de principio de 
los campos de datos. De esta manera se tiene la pre- 
paración automática de los parámetros necesarios 
para la data entry de introducción y la comprobación 
de respuestas. Los valores numéricos utilizados en el 
cálculo de las coordenadas (X,Y) corresponden a la 
estructura de la máscara y no tienen otro significado. 
Por tanto, el usuario puede variarlos para cambiar la 
forma de la presentación. La rutina es muy sencilla, y 
sólo hay que recordar que, en el primer bucle, el cam- 
po B$(1) no representa un dato, sino el valor del campo 
clave, o sea, expresa el tema sobre el cual se plantea- 
rán las preguntas y, por tanto, debe presentarse (a di- 
ferencia de los otros). Además, hay que tener en cuen- 
ta que la presentación de las descripciones (D$(+)) o 
de los trazos para la introducción de las respuestas 
debe estar subordinada a una comprobación: la des- 
cripción y el dato (B$(+*)) no deben ser nulos. 
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MEN X tiene el valor fijo XC + 29 


3 


"QUET> 


E 


(*) Memoriza en YR(*) y XR(x) las coordenadas FE 






Aunque esta comprobación hace más largo el tiempo 
de proceso, es necesaria porque no se ha dicho a 
priori que sean necesarias todas las preguntas posi- 
bles, y las no utilizadas no deben generar un campo 
de introducción. 


Introducción de las respuestas. La función de esta 
subrutina es esencialmente la de una data entry modi- 
ficada, porque además de prever las operaciones nor- 
males de datos, también debe incluir su comproba- 
ción (comparación con las respuestas correctas con- 
tenidas en la matriz B$(x)). Esta comprobación debe 
realizarse de dos maneras diferentes en función del 
tipo de pregunta. Cuando algunas sólo prevén una 
respuesta, el control se reduce a un test de igualdad 
entre el contenido del buffer correspondiente y el valor 
introducido por el usuario (en C$). 

Para las otras, la lógica se complica por la presencia 
de varias respuestas, todas válidas. En este caso, el 
programa debe poder comparar la respuesta introdu- 
cida con todas las posibles y discriminar tres situacio- 
nes distintas: 


INTRODUCCION 
RESPUESTAS 
(PRIMERA PARTE) 


El índice | empieza por 2, porque Selecciona la primera pregunta 
el primer valor (B$(1)) es el B$(2) 

tema de las preguntas Obsérvese que no es un bucle 
(o sea la clave seleccionada 


anteriormente) O ) $ 


El valor O en una de las 
coordenadas XR(:), YR(-) indica 
que la correspondiente 

yy NO pregunta no se ha previsto. 
Los valores de las dos matrices 


se han implantado en la 
subrutina 16000 


O —> y Principio bucle 10 caracteres que constituirán la respuesta | 


Los caracteres leidos 

se acumulan en C$ hasta el 
RETURN. La cadena se 
completa con espacios 


y 


El niño ha introducido la 
(0 palabra AYUDA para obtener 
la respuesta de la máquina 


xy NO Implanta los límites de búsqueda en base a la linea 


Si 
NO 


La respuesta debe yy NO 
buscarse 

El control sobre las en el grupo 

respuestas para las que empieza 

lineas 1,2 y 8 con 3 

es una sencilla o con 9 

comparación de 


igualdad con las 
preguntas. Para 
las otras se 
necesita un bucle 


Principio bucle 


Una vez hallado 
hay que comprobar 
que no sea una 
respuesta ya dada 


KK indica el número de 
respuestas correctas 


KE indica el número de 
errores cometidos 
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= la respuesta no existe, o sea se trata de un error 

= la respuesta, aunque está entre las previstas, ya se 
ha dado: se trata de una duplicación y debe des- 
cartarse 

"la respuesta todavía no se ha introducido y está en- 
tre las correctas: es una respuesta correcta, y como 
tal debe memorizarse. 


Observando la máscara vídeo es evidente que las pre- 
guntas con una sola respuesta están en las líneas 1, 2 
y 8, por lo que en el diagrama se ha incluido un control 
sobre el número de línea en curso que determina el 
tipo de lógica a activar (respuesta única o múltiple). 
La subrutina utiliza el índice «|» para identificar la pre- 
gunta en proceso, o sea la que corresponde a la posi- 
ción actual del cursor. 

El índice empieza por el valor 2, porque en la primera 
línea debe haber escrito el valor de la palabra clave 


INTRODUCCION RESPUESTAS 
(SEGUNDA PARTE) 


(B$(1)), que representa el tema de las preguntas. In- 
mediatamente después de la implantación del valor 
inicial del índice se inserta un control sobre XR(I). La 
matriz XR(*) contiene el número de línea sobre la que 
debe escribirse cada respuesta (recuérdese que en la 
presentación de la máscara, en esta zona hay escritos 
trazos en número igual a la longitud máxima de la res- 
puesta a dar, por lo que se tiene una presentación 
análoga a la de la data entry normal). 

Comprobando el valor de cada elemento de la matriz 
puede determinarse si se ha activado la correspon- 
diente pregunta (en la fase de generación) o no. Efecti- 
vamente, si el contenido de XR(1) es cero, la pregunta 
(número «l») no está prevista, y el programa pasa a 
una nueva línea después de haber comprobado que 
el valor del índice | no supere el máximo previsto (pri- 
mera parte del diagrama de la página anterior). 

En cambio, si el contenido es distinto de cero, se entra 


La matriz NE(20) contiene los 

punteros de las respuestas correctas 

ya dadas. El control de duplicación 

se obtiene comprobando que la respuesta 
“L” no esté ya presente 


Memoriza el 
puntero en la 
primera posición 
vacía 


2 
O 
O 


Fin de las 
preguntas 


Nueva pregunta 


Esta situación nunca puede producirse 
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Presenta la pantalla con 

Número de respuestas correctas (KK) 
Número de respuestas erróneas (KE) 
Número de veces que se 

ha pedido ayuda (KA) 





INTRODUCCION RESPUESTAS (TERCERA PARTE) 


Para las preguntas 
que contienen una 
sola respuesta no 
es necesario bucle 
de selección 


Con el mismo 
método empleado 
anteriormente 
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en la fase del proceso. El cursor se posiciona en el 
punto de coordenadas XR(l), YR(I), y el programa se 
pone en espera de la respuesta. 

En cualquier momento es posible introducir la palabra 
AYUDA en lugar de la respuesta. En este caso, el pro- 
grama debe presentar la primera respuesta todavía no 
dada. Para realizar esta función debe comprobarse si 
la introducción efectuada (en C$) contiene la palabra 
«AYUDA». En caso afirmativo se activa la parte del 
programa que presenta la respuesta (gráfico de la Iz- 
quierda). 

También en este caso debe distinguirse entre las pre- 
guntas que prevén una sola respuesta y las que les 
corresponden varias. 

El primer tipo se identifica con los valores 1, 2 y 8, por 
lo que basta un test sobre el índice «l» para seleccio- 
nar uno u otro caso. 

Si la respuesta es única sólo hay que posicionar el cur- 
sor y escribir el contenido de B$(I). Si no es así, es 
necesario un bucle para determinar, entre las respues- 
tas posibles, cuáles se han dado, seleccionando y 
presentando la primera aún no introducida. 

En ambos casos, después de la presentación, el pro- 
grama vuelve al principio de la subrutina para el análi- 
sis de un nuevo campo (después de la petición de 
ayuda y la consiguiente presentación de la respuesta, 
el índice «|» se incrementa en 1, por lo que apunta a la 
siguiente pregunta). 

En el caso de que no se haya pedido ayuda, sino que 
se haya introducido una respuesta, la subrutina entra 
en la fase de análisis para determinar si la respuesta 
es correcta o no. Como se ha indicado anteriormente, 
antes de realizar el análisis es necesario determinar si 
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la pregunta prevé una sola respuesta o varias realizan- 
do un test sobre el valor de «l». Si el índice tiene un 
valor 1, 2U8 (recuérdese que el valor 1 no correspon- 
de a una pregunta) sólo hay que comparar C$, que 
contiene la respuesta. 

En caso de error se borra la introducción, se incremen- 
ta el contador de error (KE) y el programa se pone en 
espera de una nueva introducción en el mismo cam- 
po. En cambio, si las dos cadenas coinciden, se incre- 
mentan tanto el índice | para pasar a una nueva pre- 
gunta como el contador (KK) de respuestas correctas. 
Obsérvese que el incremento del índice | en este pun- 
to del programa no debe ir seguido de ningún control, 
porque el valor no puede ser superior a 9. De hecho, el 
desarrollo de esta derivación del programa está subor- 
dinado a un valor de | que como máximo puede ser 8. 
La otra rama del programa, con índice | diferente de 
los valores anteriores, tiene un desarrollo más com- 
plejo porque debe comprobar la respuesta dada, te- 
niendo en cuenta las posibles duplicaciones. 

La lógica es la siguiente: en primer lugar se comprue- 
ba la existencia de la respuesta dada entre las correc- 
tas, sin tener en cuenta eventuales duplicaciones. De 
este modo, si la respuesta es errónea, no se activa la 
parte que sigue. 

Si esta comprobación se supera (respuesta correcta), 
el programa pasa al control de eventuales repeticio- 
nes. Esta función se realiza memorizando los punteros 
de las respuestas correctas en la matriz NE(x), por lo 
que basta con comprobar que el número correspon- 
diente a la respuesta introducida no esté ya contenido 
en NE(*) para asegurarse de que no se trata de una 
duplicación. 


Generación. La foto muestra la fase inicial de las 
preguntas en la versión Apple. Se definen el título 
(España), que se empleará sólo como comprobación 
en la elección del soporte, y el campo clave (Islas) que 
define el tema de las preguntas. 





La siguiente fase de generación prevé la introducción 
de los datos. La pantalla contiene, como recordatorio, AR a 
la clave. En la parte inferior se encuentra la máscara ! GEOGRAFIA - GENERACION ! 
de introducción de preguntas y respuestas. US 
EMS MM da 
UA 


MARES MEDITE- 
RRANEO 


INCA 
ao 


Al final de la primera introducción, el sistema pregunta 
si se desea continuar con otra lección. 


Respondiendo «S» a la pregunta anterior, es necesario 
volver a cargar una parte del programa que se había 
borrado. El sistema pide el disco programas y espera el 
acuerdo para proseguir. Esta solución, farragosa desde 
el punto de vista operativo, se ha adoptado en previsión 
del uso de sistemas con una sola unidad de disco 

En el caso de que las unidades fuesen dos, basta con 
direccionar por separado los programas de los datos 
y eliminar esta máscara vídeo. 
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Después de la fase anterior, el sistema se pone en 
introducción del dibujo. En esta versión, como falta la 
gestión de sprites, la figura se forma en alta resolución 
con un programa que simula los sprites asociando un 
símbolo gráfico a cada tecla 


Desarrollo. Terminada la fase de generación, puede 
pasarse al uso de los datos, o sea al desarrollo de las 
«lecciones». El programa informa al usuario que el título 
es España y espera la selección del tema. El usuario 
elige uno de los temas presentes (en la foto se ha 
elegido el río Ebro) y entra en la fase de desarrollo 


Empleando los datos introducidos en la fase de 
Generación, el programa extrae la máscara vídeo 
correspondientes al río Ebro y espera la introducción 
de las respuestas 


Al final de la introducción se presenta la máscara de 
los resultados, que contiene el número de respuestas 
correctas, de las erróneas y de las veces que se ha 
pedido ayuda 


2250 


E 








Generación. También para la versión MSX, que adopta 
como soporte magnético la cinta, en el procedimiento 
Geografía se han previsto dos programas. El primero, al 
que se refiere la foto, se dedica a la creación del archivo 
de los datos que constituirán las lecciones. Apenas 
activado este programa, el usuario debe introducir el 
título y la clave de identificación del grupo de lecciones 
que entrará, hasta un máximo de trece. 


Introducción lecciones. El primer paso de la 
generación de una lección es la construcción de la 
figura ilustrativa. Los comandos de que se dispone en 


esta fase son: 
ld > = mueven el cursor en las 4 direcciones 


A = enciende el punto en que está el cursor 
S = apaga el punto en que está el cursor 
ES = convalida la figura 

Cada lección de geografía se ilustra con una figura 
formada así. 


Una vez definida la forma de la figura puede pasarse a 
la elección del color. Siempre mediante la tecla F5, se 
introduce la elección: el color quedará así memorizado 
junto con los datos correspondientes a la lección. 


La segunda fase de la introducción de lecciones prevé 
la inserción de las cinco preguntas previstas. La 
primera será escrita por el programa y no podrá 
modificarse, porque corresponde a la clave de 
interpretación del grupo, común a todas las lecciones 
introducidas. 





Ee:3- Ediciones Forum, 


GEOGRAFIA (seneracion> 


Titulo AMERICA 


Clave NACION T--- 


Jl 


[Se 


Ediciones Forum, S.A. 


1111111 
123456 7390123456 


“E? enciende 
“7 apa9= 
Usa las flechas 


para desplazar 
el cursor. 


FS confirma. 


IMANYNADOVOJAN ANNA 


1 
a 
1 
1 
1 
1 
1 


3 


CONF IFEMA. 


DIARREA 


Jo o Jr oa Jia Ja Ju 


Leccion ri. 


ooo Ediciones Forum, S.A. 
GEOGRAFIA (aeneracion> s 


NACION 
CAPITAL 
RECURSOS 
SUPERF 1CIE 
CIUDADES = 


A A A AA AA 
CTRL Y CAYUDA> 
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Geografía/Versión Commodore 64 
Main 


GF 


10 REM Aaa daaIaciaicik 

20 REMO MAIN GENERAL * 

20 REM aaa aolaldloldialdacidioc 

35 POKES3280,6:P0+E53231,6:POKEG50, 0: PRINTCHP+(1427CHR$C2) 
37 PRINT"0";:PRINT"IBRDODOIADDIDAS GEOGRAFIA 

40 PRINT"AEBBINTRODUCIR EL HUMERO CORRESPONDIENTE" 

42 PRINT"MIBBABNBDDDAL PROGRAMA DESEADO" 

44 FRINT"EMMIDEBDDES 218081 GENERACION DE LOS ARCHI'OS" 

46 PRINT"MBRBBDEX CON DESARROLLO LECCIONES" 

47 PRINT"MBBDDEC DN FIN DE TAREA" 

50 INPUT"MEMIMIBBBICUAL : "A 

52 IFR=OTHENPRINT"01":END 
95 IF R<1 OR R73 THEN 49 

37 PRINT" TARDAN" SPC(4) "ESPERAR LA CARGA, POR FAYOR" 

60 ON R COTO 100,200,309 

100 PRINT"*EPOKE43, 1:POKE44, 16: POKE45, 3:POKE46, 16: POKE47, 10: POKE42, 16" 
7] PRINT"POKE49, 10:POKESO, 16:POKE4096,0:LOAD"CHR$(34)"GF"CHRF(347",2" 
120 GO0TO300 

200 PRINT"*EPOKE43,1:POKE44,16:POKE45,3:POKE46, 16:POKE47,10:POKE43, 16" 
210 PRINT"POKE49, 10:POKESO, 16: POKE4096,09:LOAD"CHR$(34)"LUF"CHRF(34)",8" 
500 POKE193, 10:FORL=631T0640 : READN : POKEL, N:NEXT 

510 DATR19,13,145,145,13,82.25,78,58,13 

1009 REMARKS 

1901 REM 

1002 REM NOMBRES DE LOS PROGRAMAS : 

1003 REM 

1004 REM GF = GENERACION 

1005 REM UF = DESARROLLO LECCIONES 






e UTE MEN MAIN dalla 
15 4=7:Y=11:G0SUB11000:PRINT"2INTRODUCIR EL DISCO DATOS" :YW=Y+3: X=X%+3 
16 GOSUB11000:PRIHT"Y PULSAR UNA TECLA" 

17 GET A$: IF A$<>"" THEN PRINTHOS:GOTO28 

13 FOR T=1 TO 400:NEXTT:GOTO13 

20 DIM B$(20),TPc20),LC(20>,NDC20),0X(20),C0Y(20),DX(20),DV(20) 

21 DIM TF(15),D$(20),40$(10),F1I$(5),LF(5),H$(12),5P$(62),51$(20) 

24 BL$=" ":PD$=".":AS$="-":NS$="4":SUS="pI":GIUS="9":JO$=""07" :SL$="/" 
25 POKE 650,128 


26 PRINTHOS 
27 REM ak LECTURAS DE SERVICIO dee 
39 RESTORE 


35 FOR I=1 TO 15:READ TF<I>:NEXTI 
49 FOR I=1 TO 12:READ H$<1>:NEXTI 


43 REM 

100 REM 

105 0Z=1:GOSUB 7009 
110 GOSUB 2009 


112 GOSUB 3000 

113 CC$=B$(2> 

114 IF FS=6 OR FS=7? THEN 110 

116 IF FS=9 THEN 112 

118 NF$="DATOSGE" :GOSUE 6909 

120 IF A=74 THEN PRINTHOS:GOSUB 9009 :RUN20 
125 IF AC62 THEN PRINTHOS:GOSUB 9006 : RUN20 
127 A=8:GOSUB 6009 

130 OPEN2,8,3,"8: DATOSGE,L., "+CHR$(65) 

135 FI$="":FORJ=1T041:FI$=F1$+"4" : NEXTJ 

149 ="91"+B$C23+B$C1)+FI$ 

145 PA=1:GOSUB 6890 

150 PRINT42,AAS 

155 CLOSE2:GOSUB 6409 

160 GOSUB 6909 

163 NF$="DATOSGE" : GOSUB6800 : 

165 PA=1 : GOSUBE390 : INPUT*2,AA$ 

167 UG=WAL(LEFTS$<AAS$, 2)) 

170 GOSUB 15000:REM ak FIGURA a 

175 PRINT HO$:POKES53248,72:P0KES53249, 165 : POKE53287,6 


0Z=2:COSUB 7008 

B$(1>=CC$ 
FORJ=2T0S:TP(J>=3:LC(J)=LCC1):NDCJ)=NDC1):CXCJ)FCXC1) 
CY) =C YC J-1)+2:NEXTJ 

NUC=5:GOSUB 2009 

GOSUB 3000 

IF FS=6 OR FS=7 THEN 190 

IF FS=9 THEN 195 

FORK=2T05 :K$=LEFT$(B$(K>,1) 
IFK$=CHR$(32)0RK$=CHR$(35)THENX=10:Y=21'GOSUB9158:G0T0198 
NEXT K 


FOR J=1T05:S1$(J>=B$(J) :NEXTJ 

0Z=3:PRINTHOS:GOSUB 7009 

%X=4 :=5:GOSUB1 1000: PRINT"M___" 

FOR J=1T07:Y=Y+1:G0SUB11000:PRINT*"I WM: NEXTJ 
Y=+1: PA PRINTS" 

POKE53237, 

FORJ=1T05: Ds =S180: NEXTJ 

GOSUB 2008 

GOSUB 3000 

IF FS=6 OR FS=? THEN 255 

IF FS=9 THEN 260 

FOR K=1T08:K$=LEFT$(B$(K>, 1) 

IF K$=CHR$(32>0RK$=CHR$(35)THENX=2 : Y=23: G0SUB9158: G0T0255 


NEXT K 
TT=2+8%(UG-1) 
B=-4:Fl$="" 
FORJ=1T013:FI$=F1$+"4":NEXTJ 
FOR RE=TT TO TT+3 
B=B+3:RA$="" 
FOR K=B TO B+4:AA$=RA$+B$(K):NEXT K 
RAS=AAS$+F1$ 
PA=RE:GOSUB 6898 
PRINT+*2, ARAS 
TT=TT+1 
NEXT RE 
ARS="" 
FOR K=1 TO 5:RA$=RAA$+D$(K):NEXT K 
PA=TT:GOSUB 6809 
PRINTH2, ARS 
REM Ak ESCRITURA VALORES SPRITE * 
ARS="" 
TT=TT+1 
FOR I=0 TO 20 
AAS=AAS+SP$CI> 
NEXT 1 
PA=TT:GOSUB 6899 
PRINT+2, AAS 
o 


TT=TT+1 

FOR I=21 TO 41 
AR$=ARS$+SP$C 1) 

NEXT_1 

PA=TT:GOSUB 68909 

PRINTE2, ARS 

ARAS="" 

TT=TT+1 

FOR I=42 TO 62 
RAS=AAS+SP$CI> 

NEXT 1 

PA=TT:GOSUB 6899 

PRINTR2, ARS 

UG=UG+1 

POKE53269, PEEK(53269>AND254 
PRINT HO$ 
X=4:=19:G0SUB11000:PRINT"M 07% 1/1 TT " 
A ES TZACSENISES 
=, 

GET R$:IF R$<>"" THEN 550 
FOR T=1 TO 100:NEXTT 

GOSUB11000:PRINT" Mr" 


FOR T=1 TO 1090:NEXTT 
GOSUB11600:PRINT" " 

GOTO 520 

IF R$="S" THEN 170 

IF R3<>"N" THEN 520 

REM ACTUALIZACION REGISTROR*1 Y FIN 
PA=1 : GOSUB6888: INPUTR2, ARAS 

IF UG<10 THEN A$="8"+RIGHTS<STR$C(UG), 1): G0TOSSO 
A$=RIGHTSCSTR$CUG) +2) 
RAS$=A9+RIGHTS$CARS, 61) 

PA=1:GOSUB 6200:PRINTHZ2, ARAS 

COUSUB 66009 

GOSUB 6409 

E 


“EM 
PRINTHOS :PRINT"S" :CLR:LOAD"GEOGRAFIA",S 


2000 REM 

2005 REM 4kk PRESENTA MASCARA Akk 

2015 FORI=1TODS:X=D(1):Y=DY<1) :COSUB11050:PRINT"A"DSC1):NEXTI 
2020 FOR J=1 TO NUC 

2032 As="" 

2059 IF TP(J)<5 AND TPCJ)<D4 THEN 2060 

2054 K=CXCJ) :Y=CYCJ) :GOSUB11000:PRINT"A";BSCJ) 

2056 GOTO 2130 

2060 Ni=LCCJ):N2=NDCJ):1F TPCJ)=1 OR TPCJ)=2 THEN C$=N3$:GOTO2070 
2064 C$=AS$ 

2070 FOR I=1 TO Ni-N2-1:A$=A3+C$:NEXTI 

2075 IF N2=0 THEN AS=A$+C$:G0TO 2095 

2020 Af=A$+PD$ 

2098 FOR I=1 TO N2:A$=A$+"8":MNEXTI 


2093 XR=CXCJ) 
2096 PRINT "2 





CYCJ>:GOSUB 11000 
AS;"n" 





2097 BS(J)="" 

2098 FOR K=1 TO N1-N2-1 

2100 ESCIJ)=BSCJ)+NS$ 
NEXT K 


IF N2=0 THEN ES(J)=B$CJ>+NS$:G0TO 2130 


2110 BS$C(J)=BS$(J)+PDS 
2120 FORK=1T0N2:BS$(J)=B$CJ)+N3$ : NEXTK 
J 


REM 4% DATA ENTRY 4% 
=1 
NC=J : X=CX (NC) :W=CY (NC) 


3059 CC=1 


GOSUB 3240 


3065 IF FS=9 THEN RETURN 


IF FS=0 THEN 3100 
IF FS>4 THEN 3210 
GOTO 3120 


3109 REM CARACTER 


J=J+1:1F JÓNUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3199 

IF J>1 THEN J=J-1:G0TO 3040 

FS=0: J=NUC:GOTO 3040 

IF J<NUC THEN J=J+1:GOTO 3049 

FS=B:GOTO 3030 

IF CCXLCCJ) THEN S=1:CC=CC+1:%X=X+1:GOSUB 11000:GOTO 3060 
FS=0:G0TO 3100 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:GOSUB11000:GOTO 3068 
FS=0:GOTO 3040 


g REM 


IF FS>8 THEN FS=0:GOTO 3060 
IF FS=8 THEN FS=8:GOTO 3100 
RETURN 

REM 

a dok LECTURA DE 1 CAMPO ak 


IF TPCNC>=4 THEN RETURN 

IF TPCNC>=2 THEN GOSUB 9008 : RETURN 

IF MIDSCB$(NC>,CC, 1)=PDS THENX=x%+S:CC=CC+S 
GOSUB 11009 

GET AS: IF A$<>"" THEN 3338 

GOSUB11000: aX. :GOSUB11000:PRINT"k";MIDS(BS$(NCI,CC+1)5 
FOR T=1 TO 80:NEXT T 

GOTO 3330 

IFASCCAS)=190RASCCAF)=200RASC(AS)=1470RASCCAS3=148 THEN 3330 
PRINT"MA";AS; 


CA=ASCCAS)> 

FOR I=1 TO 15 

IF TFCI>=CA THEN FS=1: I=15:G0SUB3638 : RETURN 
IF FS=9 THEN RETURN 

NEXTI 


IF TPCNCI<O1 THEN 3450 

IF CA=45 OR CA=46 OR(CA>=48ANDCA<=57 >THEN3420 
GOTO 3338 

IF CA<X>46 THEN3450 

GOSUB 4278 

IF SHP=1 THEN 3410 

S=1:GO0SUB 3520 

IF CC=LC(NC) THEN RETURN 

CC=CC+1:X=x%+1:COTO 3310 


REM 
REM dk TRASFERENCIA AL BUFFER xk 
REM 


IF CC=1 THEN SN$="":GOTO 3590 
SN$=LEFTS$(BS$(NC>,CC-1) 

IF CC=LC(NC) THEN DE$="":GOTO3610 
N=LC(NCI—CC: DES=RIGHTS$C(BF(NC) ¿NN 
BS(NC>=SN$+A$+DE$ 

RETURN 

REM 

een ok COMANDOS ak 


1E ES sos THEN 3718 

IF FS=5 THEN GOSUB 13009: RETURN 
IF FS=8 THEN GOSUB 4030:RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 

REM 

REM kk INSERCION ak 

REM 


IF CC=LC<NC>THEN RETURN 

IF CC=1 THEN SN$="":GOTO3800 
SN$=LEFTS(ES(NC),CC-1) 
H=LCCNCI=CC+1 :DES=RIGHTSCESCNC), N) 
C$=BL$ 

AS=5N$+C$+DES 
BS(NC)=LEFTSCAS,LOCNC)) 

XX=X : YY =Y 

X=CX(NC) :Y=CY (NC) :GOSUB 11000 
Z=RK =p y 

REM 

PRINT_BS(NC):S=-1 

IF RIGHTS(BS(NC>,1)=PDS THEN 3720 
RETURN 


REM 
REM ae BORRADO od 
REM 


IF TP(NCI<>1 THEN 3950 

IF MIDS$CBSCNC>,2,1)=PDFS AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF CC=LC(NC) THEN DE$="":GOTO 3980 
H=LCNCI—CC : DESF=RIGHTS$CBFCNCI¿N) 
SHS=LEFTSCBSCNCA, CO=1) 

IF TPONCI=1 OR TPONC>=2 THEN CS$=NS+:COTO 4010 
C$=A5$ 

ES NCI=SHI+DEF+CF 

A 

2=CXUNCO :Y=CWYLNCO :COSUE 11000 

ASA 


Y PRINT ESCHC>:S=1:RETUEN 


REM ARA ALTNERDOS Add 

IF LECNC>=1_ THEN RETURH 
H1=LC(HC>-CC+1 

IF CC=1 THEN EScHC>="":C0TO04100 
BS(NCI=LEFTECESCHCO, CC1) 

IF TPCNC>=1 OR TPHC=2 THEN 4150 
FOR I= N1 





B ESCNCI=ESFCHCI+ELF 


HEXT 1 

COTO. 41590 

FOR I=1 TO Ni 

ES HCI=CHR$C32I+BFUNC) 
NEXT 1 


IF RICHTS$CEFCNC,1)=PDS THEN ESCNC)=ELS+LEFTSUBGF (NC, LOCNCI1) 
ASCACNCI ce=CYENCI GOSUE 11000 
PRINT BSCNCI RETURN 


y REM 44% CTRL PUNTO 4484 


SHP=0 

IF CC=1 OR CC=LCONCA THEN SWP= 1: RETURN 

FOR I=1 TO LCCNC> 

IF MIDFCESONCI, 1, 19=BL$ THEN I=LC(NC):SHP=1 RETURN 
NEXT 1:RETURN 

REM 

REM 

ic Ak GESTIÓN DISCO 44 


RENUBN 


PIPA. R2=0 
IF R1>256 THEN R2=INT<PA/256) :R1=R1-256HR2 : 
RIO A RS 


REM 

REM CONTROLES SOBRE LOS FICHEROS 
GOSUEG000 : GOSUBE200 
INPUTR*1,A.B$,C,D 
COSUBE400 : GOUSUBECOO 

RETURN 

(33) 

REM ak CARGA LOS DATA xk 

vo$="  |"TI-A-sf (GENERACION)" 
IST L$=RIGHT$(VOS,L> 
U$=" 
P=(30-L>/2:P$="":FORK=1TOP:P$=P$+" ":NEXT K 
PRINT"5"; :PRINTCHR$(14) 


PRINT"MIA ETr.|.0. “DICIOES -ORUM, 0.%." 
PRINT"MRI "¡US;" $5 E 
PRINT "MA q PS; 


IF OPZ=0 THEN PRINT"35 ma"; 

PRINT"MA MLS; "PS 

FRINT"IBDDDDDI E 

IF 02=3 THEN 7033 

%=1:Y=22: GOSUB1 1090 : PRINT —————— ———" 
TENORIO L+ 1: ale" 

En 


ON 02 GOTO 7042,7044,7046 

LY=27 : GOSUB20000 : NUC=2 : DS=2: GOTO7090 

LW=43: GOSUB20000 : NUC=1 : DS=5:G0T07090 

LY=63: GOSUB20090 : NUC=20: DS=S:60T07090 

FOR I=1 TO DS:READ D$C1>,DXC1),DWC1>:NEXTI 

FOR I=1 TO NUC*READ TPC<I),LOCI),NDC 17, CXC IA CCT 

REM. 

NEXT_1 

RETURN 

REM CONTROL FIN FICHEROS 

IF MXCNRM THEN RETURN 

PRINTHOS 

X=9.Y=10:G60SUB11000:PRINT"EL FICHERO DATOS ESTA AGOTADO" 
X=1:1=20:GOSUE11000:PRINT"PULSE UNA TECLA PARA YOLYER AL MENU" 
POKE193.,0:WAIT193,1:RUN 





10016 
10018 
10020 
190022 
10024 
10026 
10023 
10030 
10100 
10102 
16104 
10106 
16107 
10110 
16112 
10114 
1012 
10122 
10124 


10125 


10126 
10127 
10123 
10129 
10139 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10138 
10139 
19140 
10141 
10142 
10143 
10200 


AE 
2 DATA" AA 4 Ll 


O REM dde OZ 


3 Jok ERRORES FICHEROS ak 


X=4:Y=12:G0SUB11000:PRINT"BT- , TISCO FUERA DE LINEA":GOTO 9010 
2=6:Y=12:GOSUB11000:PRINT"B”-—4— + EL FICHERO DATOS YH" 
Y=Y+2:G0SUB11000:PRINT"SE HA CREADO EN ESTE DISCO" 
x=7:Y=21:C0SUB11000:PRINT"SPULSE UNA TECLA PARA “OLVER" 
POKE195,0:WAIT198, 1 

POKE193,0:RETURN 

REM dk ERROR DE INTRODUCCION 4% 

GOSUB11000:PRINT"AT ML A ALTA 

FOR T=1 TO 1090:NEXTT 

COSUB11000:PRINT" "RETURN 


O REM ata DATA Hd 


ld 145,17,29,157, 140,133, 136.,13,25,134,135,.0,0,0,0 
SMA 3 /15/4-" 

A E ro 

HALO FA 

TO LAO ts 1 y 









DATAMA 
DATA" o 


DATA" =-0- TO TO LAA ta" 
DATA" A A AA a 
DATA" A 3 A AAA 
DATA" o a dl 
DATA" A o: Xx DOOALN 
DATA" a LARES ASA REA 
DATA" 5 HL! A LAA 
DATA" / ALA | SARA" 
REM ARRRERARER OZ=1 AREA 

DATA" all 4T",7,10 

DATA" AH 7 12 

DATA3,10,0,15,10 


DATA3,10,0,15,12 


REM Add OZ=2 OO 
DATA"1.",12,10,"2.",12,12,"3.",12,14,"4.",12,16."5.",12,18 
DATA4,10,0,16,10 





A iiicicccccós 
DATA" ",17,6," ",17,8." ",17,10," ",4,15," ",15,17 
DATA3,10,0,28,6 

DATA3, 10,0,23,8 

DATA3, 10,0,28,10 

DATA3,10,0,23,11 

DATA3,10,0,23,12 

DATA3,10,0,28,13 

DATA3,10,0,23,14 
DATA3,10,0,17,15 

DATA3,10,0,2,19 

DATA3,10,0,2,20 

DATA3, 10,0,2,21 

DATA3,10.,0,2,22 

DATA3, 10,0,15,19 

DATA3.10,0,15,20 

DATAS,10,0,15,21 

DATA3,10,0,15,22 

DATA3,10,0,23,19 

DATA3,10,0,28,20 

DATA3,10,0,23,21 

DATA3,10,0,23,22 

REM Atl 


11009 REM 


11001 
11005 
11010 
11015 
11020 
13008 
13003 
13019 
13015 
13017 
13020 
139822 
13039 
13035 
13040 
13045 
13059 
15009 
15001 
15006 


REM ak POSICIONADO EN 2%, dd 

POKE 211.,X 

POKE 214,Y 

Sys58732 

RETURN 

REM do AYUDA dk 

CO=X:CV=Y 

X=1:=23 

GOSUB11000:PRINTHS(1);," 7) 

FOR HE=2 TO 12 

GETR$: IFR$=""THEN13020 

GOSUB1 1000: PRINTH$CHE> 

NEXT HE 

GETR$: IFR$=""THEN13035 

GOSUB11050:PRINT" A+: e 
X=C0:Y=CY 

RETURN 

REM alada laa RRBRIEB CREACION FIGURA AENA OOIOIORIOidiojoK 
PRINTHOS; CHR$(14) :POKES3230.,6 

L2=13:P1=LZk64 


15987 
15009 
13010 
15012 
15016 
13018 
15020 
15022 
15024 
15026 
15028 
15030 
15032 
15034 Xx 
15036 
15039 


15046 


TAC1>=145:TAC2)=17:TAC3=157:TA(94)=29: TAC5)=65: TAC6)=83:TAC7)=82 

FOR I=P1 TO 1+62:POKEI,0:NEXTI 

SP=53243: POKESP+21, 1: POKE2040,L2:POKESP+39. 1:POKESP+23, 1: Pr 

POKESP, A POKESP+1,60 

4=1:4=0 

FOR J=1 TO 24 

X=X4+1:GOSUB1 1000 

J$=STR$C(J): IF stos 3 THEN J$=RIGHT$CJ4, 2) 

PRINT"A"¡LEFTSCJS,1 

Vevel : GOSUBILOGO PRINT" 2 "¿RIGHTS CIS: 1) 

y=Y-1 

NEXT J 

nz Y=9:GOSUB11000:PRINT"¡A ":Y=Y+1:GOSUB11000:PRINT"%hk " 
26:v=0:GOSUB11O00:PRINT"%h ":v=Y+1:G0SUB11000:PRINT"%A " 

X=1: y=1 

FOR J=65 TO J+20 

A A" ¡CHR$CJ)5SPCOC247" A " 


a A a 


Ñ=z8: w=0: - RAN RIMA" 
FOR K1=1 
y=Y+1: COSUR1 1000: PRINT" 1 mM 
HEXT Ki 
COSUE11000:PRINT" ———" 
K=1066 
FOR J=1 TO 21 
K=k+40 
FOR I=k TO K+23:POKEI,160:POKE1+54272,14:NEXTI 
134) J 
En 


REM 
W=4+1:G05UB11000:PRINT"BAN :ENCIENDE"; 
W=4+1:GOSUB11000:PRINT"B0s; :APAGA "; 
w=+1:COSUB11000:PRINT"BLS : INTRODUCE "; 
X0=2:10=2:XF=25:YF=22:24=4D:1=0:S1=1:52=1:CC=14 
GETAS:1FA$<>""THEH1S5109 

GOSUB11000:PRINT"3a "; 

FOR T=1 TO 30:MEXTT 
GOSUB11000:FOKE646,CC:PRINT"A "; 

FOR T=1 TO 30:MNEXTT 





> GOTO 15056 


GOSUE 15500:1F FA=? THEN RETURN 
GOTO 15096 


RE 
A REM CONTROL TECLA 


FA=0:k9=0 
CASASCCAS) 
FOR I=1 TO 7 


2 IF CASTACIA THEN FA=1:1I=7 


HMEXT 1 
IF FA=0 THEN RETURN 
ON FA GOSUE 15530, 15540, 15550. 15560, 15600. 15650. 15700 


5 RETURN 


bid dl IF YO THEN Y=4+1:RETURN 





13334 
13555 
15350 
15562 
15363 
13364 
15363 
15609 
15602 
15604 
15606 
15608 


CUSUB1SG00: IF (PEEKC2832+BT>AND21B1)70 THEN CC=8:GOTO 15535 


vr: IF YO YF THEN '="-1:RETURN 


Z GOSUE1SEOO: 1F (PEEK(8324+ET5AND21E 1550 THEN CC=8:G0TO 15545 


CC=14 
FETUEHN 
A=4-1:1F 220 THEN %=+1:RETURN 


2 S1=51-1 


TC RMINEAA (PEEKCS32+BTIAND2TEI>>0 THEN CC=6:COTO 139535 
¡C= 

RETURN 

A=4+1:1F X>9%F THEN X=x-1: RETURN 

Si=S1+1 

ABNnizepa: 47 (PEEK(832+BT>AND21B1>>8 THEN CC=0:GOTO 15565 
Cc=1 

RETURN 

REM ENCIENDE EN EL SPRITE 

BT=(S2-1)43+1INT((51-1)/8) 

Bl=28-S1+INTCCS1-15/8)8 

IF FAC?S THEN RETURN 

POKE 232+BT,PEEK(3832+BT) OR 21BI 


15610 IF (PEEK<832+BT>AND21B1)78 THEN CC=B 
15612 IF 4=XF+1 THEN X=2:=Y+1:RETURN 

15614 RETURN 

15650 REM APAGA EN EL SPRITE 

15652 BT=(S2-1)K3+INTC<S1-1)/8) 

15654 Bl=2-S1+INT((S1-1)/3348 

15656 IF FA<>6 THEN RETURN 

15658 POKE 832+BT,PEEKC832+BT) AND (255-21E1) 
15668 IF (PEEK(832+ET>0R21B1)>8 THEN CC=14 
15662 1F X=XF+1 THEN %=2:Y=Y+1:RETURN 

15664 RETURN 

15700 REM * TRASFERENCIA A CADEMAS * 

15720 FOR I=6 TO 62 

15722 B1=PEEK(832+1):SP$c1)=STR$SCB1> 

15724 IF B1<10 THEN SP$C1>="00"+RIGHT$CSPGCI>,1):COTO 15730 
15726 IF B1<100 THEN SPS$C1>="9"+RIGHTS$CSPFC12, 2): GOTO015720 
15728 SP$(1)=RIGHTSCSPGCI2, 3) 

15730 NEXT 1 

15735 RETURN 

20090 REM RESTORE DATA 

20005 RESTORE 

20045 IF LW<0 THEN RETURN 

20050 FOR I=1 TO LW:READ LW+:NEXTI 

20100 RETURN 





A A 
PRINT"J" 


4=7:Y=11:G0S5UB11000:PRINT"MINTRODUCIR EL DISCO DATOS": Y=+3:%=%+3 
16 COSUE1L1000:PRINT"Y PULSAR UNA TECLA” 

17 CET AS:IF AS<>"" THEN PRINTHOS:GOTOZ0 

15 FOR T=1 TO 4900:NEX«TT:COTO13 

20 DIM BSC20), TL LOCO INDOOR), DVD) MARCZO), YROZO) 
21 DIM TFC155, 0520) ,H$(12),SF $062), 514 0200, PLE), MECZO0) 

24 El$=" ":PDi=". "ASES" NS g= "8 SUE GIUE=S"N":HOG="0J":SLg="/" 
25 Al$="AYUDA":POKE 650,123 

26 PRINTHOS 

27 REM 44 LECTURAS DE SERVICIO +44 

30 RESTORE 

35 FOR I=1 TO 15:READ TF¿1):HEXTI 

40 FOR I=1 TO 12:READ H$c1>:NEXTI 

45 PC1)=0:PC2)=20:P(3)=21:P(9)=91:P5)=942:P(6)=62 

50 NF$="DATOSGE":GOSUB 6900 

55 COSUB 6000: GOSUE E200 

50 PA=1:GOSUE 6200: INPUTRZ, ARAS 

65 COSUE 6600: GOSUE 6400 

70 KS="AL(LEFTSCARS, 2) 

72 ESC2=MIDS$CAR$,3, 10) :ES(17=MID3(AA$, 13,105 

74 02=1 :PRINTHOS :GOSUE 7000 

76 COSUB 2000 

72 GOSUB 3000 

30 IF FS5=6 OR FS=7 THEN 76 

82 IF Fs=9 THEN 78 

24 IF B$(3)="N0" THEN PRINTHOS: POKE646.5:LOAD"GEOGRAFIA", 8 
26 IF B$(3)<9"SI" THEN 76 

22 D2=2:G0SUE 7000: D$(1>=D$(1)+B4(2) 

20 GOSUB 2000 

92 GOSUE 3000 

94 IF FS=6 OR F3S=7 THEN 90 

96 IF FS=9 THEN 92 

100 CY$=B$(1> 

110 NF$="DATOSCE":GOSUE 6000: GOSUE 6200 

120 GOSUB s000 

125 IF ER=0 THEN 150 

130 GOSUB 6400:G0SUB 6600 

133 PRINTHOS :%=2:Y=10:G0SUB11990:PRINT"" TS, "¡CYg 

ña Y=Y+2:605UB11000:PRINT"NO ESTA EN EL FICHERO DATOS" 
140 





¿=5:=20:COSUE11000:PRINT"NPULSE UNA TECLA PARA CONTINUAR" 
POKE198,B:WAIT 198, 1:POKE198.0:RUN20 

145 REM EXISTENCIA DATOS PEDIDOS 

150 PRINTHOS:02=3:GOSUE 7000:GOSUE 14000 

160 FEM PRESENTA MASCARA 

164 FOR I=2 TO 20:%XRC1)=0:YRCI)=0:NECI)=0:NEXTI - 

165 GOSUE 16600 

170 REM dk PI RESPUESTAS ad 

172 POKE 193,8 

173 GOSUE 15008 


177 X=12:W=24:G0SUE11000:PRINT"T4L04— ¿/% 1778"; :POKE198,0:WAIT198, 1:POKE193,0 
150 PRINTHOS : POKES3269, PEEK(33269)AND234 








185 COSUE 7009 

198 '1=10:GOSUB11000:PRINT"M_ 471/0140 TF] %0 ¿AU KK 
195 2:GOSUB11000:PRINT"IL0 710! to TAKE 

200 Y=Y+2:GOSUE11000:PRINT"EA 10 "TT ca KA 


220 X=7:=20:605UB11000:PRINT"2T TRA LECCION <¿SI/NO) ";: INPUT" A" ¡R$ 
223 IF R$="N0" THEN PRINTHOS:POKE646,6:LOAD"GEOGRAF IA",8 

230 IF R$C>"SI" THEN 220 

¿50 GOTO 30 


REM 
2005 REM 44% PRESENTA MASCARA ak 
2015 FORI=1TODS:%=DXC1):Y=DwWC(1):GOSUB11000:PRINT"A"DF$C1):NEXTI 
2030 FOR J=1 TO NUC 
2032 A$="" 
2050 IF TP<J><9S AND TPCJ><74 THEN 2060 
2054 X=CXCJ) ¿EC 1CJ):GOSUB11000:PRINT"k"5BGCJ> 
2056 GOTO 2130 
200 Nanen ea ¿N2=ND(J2:1F TPCJ=1 OR TPCJ)=2 THEN C$=NS$:G0T02070 
2 = 
2070 FOR I=1 TO N1-N2-1:A$=A$+0$:NEXTI 
2075 IF N2=0 THEN A$=A$+C$:G0TO 2095 
2080 AS=A$+PD$ 
2090 FOR I=1 TO N2:A$=A$+"0":NEXTI 
2095 X=CX(J):Y=CY(J):GOSUB 11009 
2096 PRINT "M";A$;"a" 
2097 BécJ)="" 
2098 FOR K=1 TO Ni-N2-1 
2100 BSCJ)=BS(JI+NSS 
2105 NEXT K 
2106 IF N2=9 THEN BS$(J)=BS$(J>+N3$:GOTO 2130 
2110 ESCJ)=ESCJ>+PDS 
2120 Oe TONC IRA EIIRBELI) 089 NEXTE 


3010 REN XK DATA ENTRY ok 


3040 NC=J:X=CK(NC) : Y=CY CNC) 

3050 CC=1 

3060 GOSUB 3240 

3065 IF FS=9 THEN RETURN 

3070 IF FS=0 THEN 3100 

3030 IF F54 THEN 3210 

3099 GOTO 3120 

3100 REM CARACTER 

3105 J=J+1:1F J2NUC THEN 3030 

3110 GOTO 3040 

3120 ON FS GOTO 3130,3150,3170,3190 
3130 IF J>1 THEN J=J-1:GOTO 3040 
2140 FS=0:J=NUC:GOTO 3040 

2150 IF J<NUC THEN J=3+1:G0TO 3040 
3160 FS=0:GOTO 3030 

3170 IF CCXLCC(J>* THEN S=1:CC=CC+1:%=%+1:GOSUB 11000:G0TO 3068 
3180 FS=0:GO0TO 3100 

3190 IF CC>1 THEN S=-1:CC=CC-1:X=X-1:G05UB11006:G0TO 3060 
23200 FS=0:G0TO 3040 

3210 REN 

3220 IF FS>8 THEN FS=0:G0TO 3069 
3230 IF FS=3 THEN FS=9:GOTO 3100 
3235 RETURN 


REM 
3250 REM kk LECTURA DE 1 CAMPO dk 
: Fs=48 
IF TP¿NC>=4 THEN RETURN 
IF TP¿HC>=2 THEN GOSUE 9000: RETURN 
IF MIDFCESCNCI, CC, 19=FDS THENX=X%+S:CC=CC+S 
GOSUB 11000 
CET A$: IF A$<>"" THEN 3338 
É O 













AG =190RASCCUAS )=200RASC(AF)=1470RASCCAF)=148 THEN 3330 
10 AS; 

E AR; 

FOR I=1 TO 15 

A IF TFCIó=CA THEN FS=1:1=15:G05UB3630 : RETURN 

IF F3=9 THEN RETURH 

HEWTI 


RE PALPAR sd TULA "AE 


4160 
4170 
4130 
4190 
4210 
4270 
4230 
ADO 


IF CA=45 OR CA=46 ORCCA?>=4SANDCA<=57 > THEN3420 


yg GOTO 3338 


IF CA<546 THEN3450 

GOSUB 4270 

IF SWP=1 THEN 3410 
5=1:GOSUB 3520 

IF CC=LCINC) THEN RETUEN 
CC=CC+1:X=X+1:G0TO 3310 


RE 
REM dk TRASFERENCIA AL BUFFER xk 
REM 


IF CC=1 THEN SN$="":GOTO 3599 
SN$=LEFT$(B$(NC),CC-1) 

IF CC=LC(NC) THEN DE$="":COTO3610 
N=LC<INCI=CC : DES=RIGHTSCUBSCNCI NA 
BSINC>)=SN$+A$+DE$ 

RETURN 


REN 
3 Ak COMANDOS ak 


En 
GT qa THEN 3710 
IF ros 2 THEN GOSUB 13000 :RETURN 
IF FS=3 THEN GOSUB 4080:RETURN 
IF FS<8 THEN RETURN 
ON FS-9 GOSUB 3740,3910 
RETURN 


REM 
REM Ak INSERCION ¿xk 
REM 


IF CC=LC(NC>THEN RETURN 

IF CC=1 THEN SN$="":G0TO3800 
SN$=LEFTS$CBS$(NC),CC-1) 
N=LC(NCI=CC+1 : DE$=RIGHT$(BS(NC),N> 
C$=BL$ 

AS=SN$+C$+DES$ 


-BS(NCI=LEFTSCAS, LO(NCI) 


XXX: YY =Y 
X=CX(NC) :Y=CY (NC) :GOSUB 11000 
X=XX:Y=WY 


REM 

PRINT B$(NC):S=-1 

IF RIGHTSCBS(NC>,1)=PDF THEN 3780 
RETURN 


REM 
REM aa BORRADO aololok 
REM 


IF TP(NC><O1 THEN 3950 

IF MIDSCBSONC>,2,1)=PDS$ AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF CC=LC(NC> THEN DE$="":GOTO 3988 
N=LC(NCI—CC : DES=RIGHTS$CBSINC), Ho 
SN$=LEFT$(BS$(NC),CC-1) 

IF TPCNC>=1 OR TP(NC>=2 THEN C$=NS$:GOTO 4010 
C$=AS$ 

BS(NC>=SN$+DE$+C5$ 

E A 

X=CX(NC) :Y=CYINC):GOSUB 11000 

X=RR it 

PRINT BS<(NC):S=1 :RETURN 

REM ac ALINEADOS Ac 

IF LC(NC>=1 THEN RETURN 
N1=LC(NC>-CC+1 

IF CC=1 THEN ESC(NC>="":C0T04100 
PSCNCI=LEFTSCBGCNCI,CC-1) 

IF TPCNC>=1 OR TPCNC=2 THEN 4150 
FOR I=1 TO Ni 

BS(NC)=ESF(NCI+BLG 


FOR I=1 TO Ni 

ESCNC)=CHR$(32)+BF(NC) 

NEXT I 

IF RIGHT$C(BS$C(NC>,1)=PDS THEN ES(HCo= BLS+LEFTS(BSCNO), LCiNCI-1> 
X=CACNCI :Y=CY UNC) :GOSUB 11000 

PRINT BS$(NC>:RETURN 

REM desk CTRL PUNTO ae 

SHP=0 

TE Os MO PFrarrurs TUEH SLIDB=1 :DETIUEH 


4310 
4320 


4340 


eB11 
6912 


; RE 
OPENZ,8,3,NF$ 
REI 


>236 
, PRINTHL: "P"CHREC: 


2 IE A 
TF ñ=74 THEN ER 
20 PRINTHOS:X=2:%4=1 


FOR I=1 TO LCC<NC> 

IF MIDSCESC<NC>,1,12=EL$ THEN I=LCCNC> :SMP=1: RETURN 
NEXT I:RETURH 

REN - 

REM 

REM ek GESTION DISCO dx 
REM AE ES 
REM APERTURA CANAL COMANDOS 
RENA 
OPEN1,3,15 

a 








RE 
REM APUNTA AL REC 





REM 









THEN R2=INT<PA/256) :R1=F1-2364R2 
S6ICHRFCR1SCHRECR2SICHRGC10 
RETURN 

REN 

REM CONTROLES SOBRE LOS FICHEROS 


: COSUECOOS : GOSUESZOO 


INPUTRH1,A.BS,C,D 


, EOSUEEIOO: COSUECCÓNN 








FICHERO DHTOS NO HALLADO" 

DISCO FUERA DE LINEAR" 

COSUE11090:PRINT"RT-—— ":Y=Y+2:GOSUB11000:PRINTER$ 
%=6:Y=20:GOSUE11000:PRINT"PULSE UNA TECLA PARA CONTINUAR" 
POKE1392,0:AIT195, 1:POKE193, 0: RUNZO 

REM 

REM 4 CARCA LOS DATA +4s 

vO0s=" | ro Art CUSOo" 


003 L=LENC'04)-3:Lg=RICHTECYOS,L> 


US="Moz 1 o 
P=(30-L/2:P$="":FORK=1TOP:P$=P3+" "NEXT K 
PRINT"3"; ¿PRINTCHRA$C14) 





002 PRINT"MT Er.|.0. "DICIONES -ORUM, 4.4." 


PRINT'MRA ";US;" YE 


2 PRINT"M A E 7] 


3 5: 
REN 


IF OP2=0 THEM PRINT"AS ma"; 
PRINTS, a, PG 


20 PRINT"ABDIBDALES " 


30SUB 11899 : PR INT - —_—_— _—_—_——_——_———_—" 
GOSUE11000:PRINT"AñzI Ll? ALA 





ON 02 COTO 7042, 7044 

Lv=27 : COSUE200090 : NUC=3: D5=32: COTO7090 

LV=51 :GOSUB20006 : NUC=1 :DS=1 :COTO7O90 

FOR I=1 TO DS:READ D$C(1>,DXC1>,DYC1>:NEXTI 

FOR I=1 TO NUC:READ TP<I>,LECIO NDEI2 EXCITA CATA 








7 REM 
3 NEXT 1 


RETURN 


DO REM 4+4* BUSCA CAMPO CLAVE dk 


N1=2:ER=1 
KE=2+34(K5-1) 


7? H2=KE 





FOR I=H1 TO KE STEP S 
PA=I:GOSUB 62500: INPUTH2, RAS 
CS$=LEFTS+C ARS, 10) 

IF C$=CV% THEN K1=I:ER=0: I=KE 


S NEXT 1 

E RETURH 

9060 REM 44 ERRORES FICHEROS dk 

5002 REM 

3005 X=5:Y=12:GOSUE11000:PRINT"NTF- . TISCO FUERA DE LINER":COTO 9010 
3006 X=5:Y=12:GOSUE11900:FRINT"IT—— + EL FICHERO DATOS YA" 
9007 Y=Y+2:COSUB11000:PRINT"SE HA CREADO EN ESTE DISCO" 

9610 X=3:Y=21:COSUE11000:PRINT"2PULSE UNA TECLA PARA VOLVER" 
9015 POKE193.0:WAIT198, 1 

9020 POKE198,6:RETURN 

10000 REM FRA DATA HR 

10001 DATA 145,17,29,157,140,133,136,13,25,134,135,0.0,0,0 





REM 

10007 DATA"MA  <-1 > RBA TA" 
10010 DATA"A  —-S- —3l uo. TO Lts 4 a" 
10012 DATA"A  —-4- L—! “0 Ltot * 1005 2" 
10014 DATA"MA  --9- /1 TO Ltot 118 . 
10016 DATA"A  --0- TO/ : TO Lor ale y " 
10013 DATA" A : ALA ASES 
10020 DATA" A 0 lA RA 








10022 DATA" A PA AMA 

10024 DATA" zh - XD MS pe 
10026 DATA" A e AR A A e 
10022 DATA" _ “l-L+! ¿NAT LAA A" 
10030 DATA"3h-— 1 «—/ ALA lO ANAL TA" 


10040 REM FRRARARARE OZ=1 ARRRIIRAA 
16042 DATA"MLAS PREGUNTAS VERSARAN SOBRE :",7,9 
10042 DATA"MI A :",7,194 

10044 DATA"-ONTINUO ? (SIZNO) ",7,16 
10045 DATA4,10.0,15,11 a 

10046 DATA4,10,0.20,14 

10047 DATA3.2,0.26,16 

10050 REM AARIAO D2=2 RARA 
10051 DATA" WUAL ",7,19 

10052 DATA3,10,0,24,19 

LOZGO REM AR IA 


REM 
11091 REM +4*k POSICIONADO EN X,Y HR% 
11005 POKE 211,% 
11010 POKE 214. 
11015 SYS38732 
11020 RETURN 
13000 REM ak AYUDA Ak 
13005 CO=x:CY=Y 
13010 X=1:Y=23 
13015 onu LIe0S, RRE, na 
13017 FOR HE=2 TO 12 
13020 GETR$: TERS=""THENIS :020 
13022 GOSUB11000:PRINTHSCHE> 
13030 NEXT HE 
13035 GETR$: IFR$=""THEN13035 
13040 GOSUB110060:PRINT" All: AI 
13045 X=C0:Y=CY 
13050 RETURN 
140009 REM dk LECTURA DATOS kk 

=1 


I= 
14010 J1=1+5%(1-1> 
14015 FOR J=J1 TO J1+4 
14020 K=J-54(1-1):N=1+10%(K-1) 
14025 ES(J)>=MIDSCARAS.,N. 10) 
14030 NEXT J 
14035 PA=K1+1:GOSUB E300: INPUT42, ARS 
14048 IF I=4 THEN 14050 
14045 K1=K1+1:I=I+1:GOTO 14010 
14050 FOR J=1 TO S 
14035 N=1+10%(J-1) 
14060 D$C(J)=MIDSCARS$,N, 10) 
14065 NEXT J 
140998 GOSUB 306100 
14100 RETURN 
15000 REM * INTRODUCCION RESPUESTAS * 
15005 1=2:KK=0:KE=0:KA=0 
15010 IF XRCI=0 THEN 15500 
15015 X=XRC1):Y=YR CI): GOSUE1 1000 
15016 Cs$="" 
15017 FOR W=1 TO 10 
15018 El=0:E2=0:E3=0 
15020 CET A$:1F AS<>"" THEN 15025 
15621 GOSUB11060:PRINT"E?":FORT=1T020:NEXTT 


COSUB11000:PRINT"=":FORT=1T020:MEXTT:GOTO15028 
29 IF ASCCASI=13 THEN W=10:60T015045 
53E ASCCARICISO US ASC CASI 7218 THEN El= 1 

$): 


IF AS $)<65 OR ASCCASIIIO THEN E3=1 








IF El<2b AND E2<54 AND E3220 THEN 15018 
3 C$=CI+A$ 
y COSUE11000:PRINTURMAS X= +1 

NEXT H 


3 L9=10-LENCCG) 0 1F L9=0 THEN 15060 

FOR J=1 TO L9:C$=C4+CHR$(232) :NEXTJ 

IF LEFTSCC3,5=A1I$ THEN 15600 

IF 123 OP 1=5 THEN 15200 

970 IF 1<3 THEN Ni=3:HNE=7:GOTO 15074 
H1=9:HE=20 

FOR L=M1 TO NE 

IF RRCLI=0 THEN 15072 

> 1F ESCLI=CS$ THEN 15300 

/ HEXT L 

COTO 15210 

REM 44% GRUPO RESPUESTAS 1.2 Y 2 444% 

IF Cé=ES0 15 THEN I=I+1:KK=KK+1:G0T0 15010 
ASRRCIO == YRCIO COSUE11000:PRINT"UN TZTSTO ":FORT=1T01000:NEXTT 
COSUB1 1000: PRINT" AUF IG: KE=KE+1:G0TO15016 
REM AARRRA DAA 

153060 FEM 

15395 IF NECN1IS=L THEN 15210 

15310 IF NECH1)=0 THEN NECN1>=L:KK=kKK+1:GCOTO 15590 
15315 IF Ni=NE THEN STOP 

3320 Ni=N1+1:G0T0 15305 

15500 REM CONTROL FIN 

15510 IF I=>20 THEN RETURN 

15515 I=I+1:G0T0 15010 

15600 REM 4% AYUDA 44% 

15605 IF I<3 OR I=8 THEN 15610 

15607 GOTO 15620 

15610 X=XRCI) :Y=YRCTO ¿GUSUE1100D: PRINT"V"ESCI): I=1+1:KA=KA+1:GOTO15010 
15620 IF 1<3 THEN Ni=3:NE=?:G0T015630 

15625 N1=23:NE=20 

15630 N=M1 

15635 IF NE(N>=0 THEN 15650 

15637 IF N=NE THEN STOP 

15640 N=N+1:G0TO 15635 

15659 IF N=N1 THEN NECN)=N1:1IS=N1:GOTO 15700 
15652 IS=N1 

15634 J=N1 

15656 IF NECJ>=1IS THEN 1S=1S+1:G0TO0 15654 

15860 IF J>=NE THEN NE(N¿=IS:GOTO 15700 

15665 J=J+1:G0TO 15656 

y ARCO =P REI) COSUB11000:PRINT"AMEFCIS) 
KASKA+1:1=1+1:1F 1220 THEN RETURN 

15715 GOTO 15010 

16000 REM 4444 PRESENTA MASCARA Jo 

16005 COSUE 30200:REM PRESENTA SPRITE 

16007 Fls="":FOR J=1 TO 10:FI$=FI$+CHR$(45):NEXTJ 
16010 XC=2:159=? 

16012 FOR I=1 TO 3 

15014 X=xC+14 

16016 Y=WS+2%(1-1) 

16013 GOSUE11000 

16020 IF I=1 THEN PRINTDSCI>;" :29";B$CI):GOTO 16038 
16021 K2$=MID$(E$(1),2,1> 

16022 K4$=LEFTSCB$C1>,1> 

16023 IF K23$<>CHR$(32)> OR K25<>CHR$(35) THEN 16026 
16023 IF K4$=CHR$(32) OR K4$=CHR$(35) THEN 16031 
16026 COSUB 11000:PRINT"M"¡D$cI>,"3" 

16028 x=23:005UB11000:PRINTFIS 

16030 ARCI)=X:YRCI=Y 

16031 EAS I 

















For I 
Y=3+4+1 
El K18=MID$(B£C1+3),2,1):K23=LEFTSCE4C1+3),1> 

6032 IF(K1$=CHR$C(3Z70RK1$=CHF3(35) AND K23=CHR3C3270FRK23=CHR$(35))THEN 16044 
6 COSUE11000:PRINTFIS 

2 ARIAS =V 

NEXT 1 

O A=RC+2 ic r="3+9: GOSUB11000:PRINT"A"; 


DFC40 232 "FIS: AROBI= +13: WRC3)=Y 
WEIRD CUISINE AAA CPRINT UA TNA sa 






160609 Y=19 
16061 X=xXC 
16062 FOR J=1 TO 4:Y=+1'G0SUB11008 
16063 K1$=MID$(B4(J+2),2,1):K23=LEFTS$(ESCJ+25,1) 
16064 IFCK1S$=CHR$C(32)0FRK1$=CHR$(35)AND(K29=CHR$C32)0FK24=CHR$(35))THEN 16066 
16065 RECI = 4 EC I+3)=Y PRINT FIS 
16066 NEXT J 
16067 “=XC+13:Y=19 
16063 FOR J=1 TO 4:Y=+1:COSUB11000 
5069 K1$=MIDF(ESCJ+12),2,1):K28=LEFTS(BGCJ+12),1) 
K IESZIOAK1G=CHR$ 035) AND(K24=CHR$(320PK24=CHR$(35)) THEN 16076 
(J+12)=Y:PRINT FIS 















+1 :G05UE11000 
E 221211) :K23=LEFTECBFCJ+ 169,105 
(K13= CHR$C3210PK1= CHRFC359) )ANDUK23=CHR$(320éK2$=CHR$(35) THEN 160892 
XECJ+16)=% YRCJ+169=7:PRINT FIS 
NEXT J 
a RETUEN 
REM FESTORE DATA 
FESTORE 
IF L'<0 THEN RETURN 
20 FOR I=1 TO LY FEAD LS: :NEXTI 
FETURN 
D1060 FEM 4484 EXTRAE EL SPRITE 444% 
FOR F=1 TO 6 STEP2 
03 PA=FHA+1 
A COSUE €300 
INFUTR2, ARS 
HH=-2 > 
Y FOR [=PC(F) TO PCF+1> 
HhH=HH+3 
¿2 SP3C1=MIDI CARS, NH. 
HEXT 1 
NEXT_£ 
GOSUE £400:C0SUE 6690 
FOR 1=6 TO 
PUKE 332+1.,'"ALUSPGCIA) 
HET 1 
3 FETUEN 
FEM ++ PRESENTA EL SPRITE %k 
SP=53243 











5P+21, 1: FUKEZ040. 13 

OKESP+39, 1: FOKESP+23, 1: POKESP+29, 1 
POKE SP. 72:FUKE 5P+1,185 

> x=9:=5:GOSUE1 10010: PRINT“M_ 





FOR J=1 TO 7 :Y=Y+1 CUSUE1L1000 PRINT" WM: NEXTJ 
P=4+1 :COSUE11000:PRINT" 
20240 FETUEN 


RELACION DE VARIABLES - COMMODORE 64 


Generación 


BS(«) = matriz de los buffers (1 por campo 
de introducción) 
LC(«) =longitud del campo de introduc- 
ción 
= número de decimales en el campo 
de introducción 


ND(+) 


= coordenadas en el vídeo del cam- 


CX(+) 
po de introducción 


CY(x) 


amo | =coordenadas en el vídeo de la 
descripción 

TF(«) = matriz numérica con los códigos 
ASCII de las teclas de comando 

DS(+) = descripciones en la máscara ví- 
deo 

nd =voces del menú principal 

BL = blank 

PD$ = punto decimal 

AS$ = Carácter "—”; identifica los campos 
de introducción alfanuméricos 

NS$ =cCarácter “+”; identifica los cam- 
pos de introducción numéricos 


HOS$ = borrado de pantalla 

NUC =número de campos de introduc- 
ción en la máscara vídeo activada 

DS =número de descripciones en la 
máscara vídeo 

AAS$ = cadena de l/O con el disco 

NFS = nombre fichero datos 


A,B$,C,D =variables para lectura del estado 
del disco 

HS(+) = Cadenas de la ayuda 

SP$(+) =Cadenas con los datos sprite en 
forma alfanumérica 

UG = última lección introducida 

LZ = bloque de datos para el sprite 

P1 =posición de partida para datos 
sprite 

TA(«) = matriz de las teclas reconocidas 
en la generación sprite 

FA = índice de la tecla pulsada en la 
creación sprite 

cc = color carácter en la retícula sprite 

sP = primera dirección de control VIC-11 


Uso 


BS$(+) = matriz de los buffers (1 por campo 
de introducción) 
LC(«) = longitud del campo de introduc- 
ción 
= número de decimales en el campo 
de introducción 


ND(«) 


= coordenadas en el vídeo del cam- 


CX(«) ] 
po de introducción 


CY(x) 


e ) =coordenadas en el vídeo de la 
(+) E: 
descripción 

TF(«) = matriz numérica con los códigos 
ASCII de las teclas de comando 

DS(+) = descripciones en la máscara ví- 
deo 

VOS(+) =voces del menú principal 

BL$ = blank 

PD$ = punto decimal 

AS$ =cCarácter “—”; identifica los cam- 
poss de introducción alfanuméri- 
cos 

NS$ =cCarácter “+”; identifica los cam- 
pos de introducción numéricos 

HO$ = borrado de pantalla 

NUC =número de campos de introduc- 
ción en la máscara vídeo activada 

DS =número de descripciones en la 
máscara vídeo 

NFS = nombre fichero datos 

AAS$ = Cadena de l/O con el disco 

KS = última lección introducida 

cvs =cCampo clave perdido 

C$ =campo clave leído del disco 

ER = código de error 

XR(+) 

YR(«) 

KK = respuestas correctas 

KE = errores 

KA = ayudas 

AIS = Cadena para comparación en pe- 
tición de ayuda 


= coordenadas máscara vídeo 
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Geografía/Versión Apple Il 


Geografía-Generación 


10 
20 
30 
40 
50 
60 


70 


130 
140 
- 150 
1650 
170 


172 


174 
176 


178 


179 
180 
220 
230 


390 
400 
410 


460 
500 
510 
320 


330 


REM 
REMO GEOGRAFIA GENERACION 
REM VERSION DOS 

REMO 


REM INICIALIZACIONES 
DIM TF(15),TP (20) ,LC (20) ,ND(20),C 
X (20) ,CY (20),DX(20),DY(20),B$(20) 
,D$(20) 
BP$ = CHR$ (7): 
D$ = CHR$ (4) 
BS ==" A 
BA$ = B$ + B$ + ES + B$: 
BS ="" 
HE$ = "AYUDA. CTRL - Y" 
HE$(1) = "CTRL Y. AYUDA (ESPACIO 
PARA CONTINUAR ) " 
HE$(2) = "ESC. ANULA TODA LA INTR 
ODUCCION " 
HE$(3) = "RETURN. ALINEA Y CONVAL 
IDA INTRODUCCION " 
HE$(4) = "CTRL 1. PERMITE LA INSE 
RCION DE ESPACIOS" 
HE$(5) = "CTRL D. BORRA UN CARACT 
ER “ 
HE$(6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL a 
HES$(7) = "CTRL W,A,S,Z.MUEVEN EN 
LAS 4 DIRECCIONES" 
HE$(8) = "CTRL E. INTRODUCCION EN 
DISCO E 
TEXT : 
HOME : 
YT = 12: 
TI$ = "CUANTAS UNIDADES HAY (1/2 
PAPES 
GOSUB 11200 
GET A$: 
IF A$ < "1" OR AS > "2" THEN 172 
DR$ = A$: 
PRINT DR$ 
HOME : 
YT = 12: 
TI$ = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD " + DR$: 
GOSUB 11200: 
GOSUB 11100 
ONERR GOTO 40000 
MP$ = "GEOGRAFIA - GENERACION" 
GOSUB 500 
RESTORE : 
FOR 1 = 1 TO S: 

READ DA$: 
NEXT 1 
FOR I = 1 TO 15: 

READ TF(1): 
NEXT 1 
GOSUB 5000 
REM KXERR 
Y =S: 
Ads 
GOSUB 11000: 
INVERSE : 
PRINT— LEFTS (BA$,40);: 
NORMAL 
GOTO 230 
RE SAS a 
REM PRESENTA CABECERA 
REM: ============== == 
POKE 34,0: 
HOME : 
INVERSE : 


570 


2010 


2030 


2035 


2040 


2050 


2070 
2090 
2100 
2110 
2120 
2130 
2140 


2150 


2160 


PRINT " E. G. S. "+ LEFTS (BAS 
+7) + "EDICIONES FORUM, S.A." 


+“ o": 


NORMAL 

YT = 3: 

TIS = MP$: 
GOSUB 11200 
Y = 2: 

X= 1: 
INVERSE : 
GOSUB 11000: 
PRINT_" *: 
Xx = 40: 
GOSUB 11000: 
PRINT=""*52 
Y = 3: 

X= 1: 
GOSUB 11000: 
PRINT " ": 
X = 40: 
GOSUB 11000: 
PRINT * %:> 
Y = 4: 

X= 1: 
GOSUB 11000: 
PRINT " "; 

X = 40: 
GOSUB 11000: 
PRINT " "3: 
Y = 5: 

X= 1: 


GOSUB 11000 
PRINT— LEFTS (BA$,40)5: 


REM_ PRESENTA MASCARA 
PE 
HOME : 

IF OPZ < >0 THEN Y = 7: 
q de 

GOSUB 11000: 

PRINT " YDZ "¿0PZ 

YT =5: 

TIS = HES: 

INVERSE : 

GOSUB 11200: 

NORMAL 
YIL.=.Z3 
TIS = INS 
GOSUB 112 
IF CO < O THEN Y 
X= XT + LEN (IN$) 
GOSUB 11000: 

PRINT Co 

SP = 33 - LEN (VO$(0PZ)) 


> 


= LEN (PROG$) 
SI_= INT ((40 - LP) / 2): 
= 40 - LP - SI 





FOR J = 1 TO SI 
SIS = SIS +"" 

NEXT 

FOR J = 1 TO DE 


2170 
2180 
2240 
2250 
2260 


2270 


2280 
2290 


2300 


2310 


2320 
2330 


2340 
2345 


2350 


2360 


2370 


2380 


2390 


2400 
2410 
2420 
2430 


2450 





DES = DES + " " 
NEXT 
REM MASCARA 
FOR J = 1 TO NUC 
[soon 
= DX(J): 
= DY(J): 
¡OSUB 11000: 


"<p 


PRINT D$(J) 

NORMAL 

IF TP(J) < > 5 AND TP(J) 

< > 4 THEN 2330 

X = CX(J): 

Y = CY(J): 

GOSUB 11000 

PRINT B$(J) 

GOTO 2500 

N1 = LC(J): 

N2 = ND(J): 

IF TP(J) = 1 OR TP) = 2 

THEN C$ = "4": 

GOTO 2350 

C$ = CHR$ (95) 

IF Ni = 1 THEN A$ = C$: 

GOTO 2390 

FOR 1 = 1 TO Ni - N2 - 4: 
AS = AS + C$: 

NEXT 1 

IF N2 = O THEN AS = AS + C$: 

GOTO 2390 

AS = AS + "." 

FOR 1 = 1 TO N2: 
AS = AS + "0": 

NEXT 1 

X = CX(J): 

Y = CY(J): p 

GOSUB 11000 

PRINT AS 

BSD ="" 

FOR K = 1 TO Ni - N2 - 1 
BS(J) = B$(J) + " " 

NEXT K 

IF N2 = O THEN B$(J) = B$(J) 


GOTO 2500 
BS$(J) = BS(J) + "." 
FOR K = 1 TO N2 
B$(J) = BS(J) + " " 
NEXT K 
NEXT J 
RETURN 


REM - 
REM DATA ENTRY 





3110 
3120 
3130 


3140 


IF FS = O THEN 3100 

IF FS.> 4 THEN 3210 

GOTO 3120 

J=J+1: 

IF J > NUC THEN 3030 

GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 
IF J>1 THENJ=J-d: 

GOTO 3040 

PRINT BP$;: 


3150 


3160 


3170 


3180 


3190 


3200 


3220 


3230 
3240 


3260 
3270 
3280 
3290 


3310 
3320 


3330 


3340 
3350 


3360 
3370 
3380 
3390 


3400 


3410 
3420 
3430 
3440 


3450 
3460 


3520 
3530 
3540 
3350 


3560 
3570 


3580 


FS = 0: 
Y = NUC: 
GOTO 3040 
IF J < NUC THEN J =J +1: 
GOTO 3040 
PRINT BF$:: 
FS = 0: 
GOTO 3030 
IF CC < LC(J) THEN SO = 1: 
CC = CC + 1: 
X=X+*+ 1: 
GOSUB 11000: 
GOTO 3060 
PRINT BP$: 
FS = 0: 
GOTO 3100 
IF CC > 1 THEN SO = - 1: 
CC. = CC - 1: 
X= X -— 12 
GOSUB 11000: 
GOTO 3060 
PRINT BP$:: 
FS = 0: 
GOTO 3040 
IF FS > 8 THEN FS = 0: 
GOTO 3060 
IF FS = 8 THEN FS = 0: 
GOTO 3100 
RETURN 
> > == 
REM LECTURA DE UN CAMPO 
ASS 
FS=0 
IF TP(NC) = 4 THEN RETURN 
IF TP(NC) = 2 THEN GOSUB 9000: 
B$(NC) = LEFTS (B$(NC),LC(NC)): 
CC = LEN (B$(NC)) + 1: 
GOSUB 4080: 
RETURN 
IF MID$ (B$(NC),CC,1) = "." 
THEN X = X + SO: 
CC = CC + SO 
GOSUB 11000 
GET A$: 
IF A$ = "" THEN 3320 
CA = ASC (A$): 
IF CA > 31 THEN 3380 
FOR 1 = 1 TO 15 
IF TF(1) = (CA) THEN FS 
= 1: 
GOSUB 3£30: 
RETURN 
NEXT 1 
GOTO 3320 
IF TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 46 0R (CA 
> = AB ANDCA< = 57) THEN 341 
0 
PRINT BP$;: 
GOTO 3320 
IF CAX > 46 THEN 3440 
GOSUB 4270 
IF SWP = 1 THEN 3400 
SO = 1: 
GOSUB 3520 
IF CC = LC(NC) THEN RETURN 
CC = CC + 1: 
Xd E ES 
GOTO 3300 
REN -———_ 
REM TRANSFERENCIA AL BUFFER 
A ————————_— 
IF CC = 1 THEN SNS = “": 
GOTO 3570 
SN$ = LEFT$ (BS$(NC),CC - 1) 
IF CC = LC(NC) THEN DS$ = "": 
GOTO 3590 
N = LC(NC) - CCz 
DS$ = RIGHTS (BS$(NC).N) 


3590 
3620 


3630 
3640 
3650 
3670 


3680 
3690 


3700 


3710 
3720 


3740 


3760 
3770 


3800 
3820 


3830 
3840 


39870 


3880 


3900 
3910 
3920 
3930 
3940 


3960 


3970 


3980 


3990 


4000 


4010 


4020 
4030 


4060 


4070 


4080 
4090 
4100 
4110 
4120 
4130 


B$ (NC) = SN$ + A$ + DS$ 
PRINT A$: 


5 
A 
o. 
ó 
$ 


S AND TP(NC) = 1 THEN 
GOSUB 4080 

RETURN 

IF FS = 9 THEN GOSUB 13000: 
RETURN 

IF FS = 8 THEN GOSUB 4080: 
RETURN 

IF FS < 8 THEN RETURN 

ON FS - 9 GOSUB 3740,3910 
RETURN 

RE. === 

REM INSERCION 

REM ————-——— 

IF CC = LC(NC) THEN PRINT BP$: 
RETURN 

IF CC = 1 THEN SNS = "": 
Go0TO 3800 

SN$ = LEFTS (BS$(NC),CC - 1) 
N = LC(NC) - CC + 1: 

DS$ = RIGHTS (B$(NC).N) 
0s="u" 

AS = SN$ + C$ + DS$ 

B$(NC) = LEFTS (A$,LC(NC)) 
XX = X: 

YY Y 

X = CX(NC): 

Y = CY(NC): 

GOSUB 11000 

X= XX: 

Y = YY 

PRINT BS$(NC): 

so= -1 

IF RIGHTS (B$(NC),1) = *." 
THEN 3780 

RETURN 

REM A 

REM _ BORRADO 

REM o 

IF TP(NC) < > 1 THEN 3960 
IF. MIDS (B$(NC),2,1) = "." 
AND CC = 1 THEN RETURN 
IF CC < 1 THEN PRINT BP$: 
RETURN 

IF CC = LC(NC) THEN DS$ = "":z 
GOTO 4000 

N = LC(NC) - CCz 

DS$ = RIGHTS (B$(NC),N) 

IF CC = 1 THEN SNS = "":z 
GOTO 4010 

SN$ = LEFTS (B$(NC>,CC - 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN C$ = "4": 

GOTO 4030 

C$ = CHR$ (95) 

B$(NC) = SN$ + DS$ + C$ 

XX =X:z 

YY = Y 

X = CX (NC): 

Y = CY (NC): 

GOSUB 11000 

X = XX: 

Y = YY 

PRINT B$ (NC): 

SO = 1: 

RETURN 

REM > -————— 

REM _ ALINEADOS 

REM -5>E>->-__—_—_— 

IF LC(NC) = 1 THEN RETURN 
N1 = LC(NC) - CC + 1 

IF CC = 1 THEN BS(NC) = "": 
GOTO 4150 


4140 
4150 


4160 
4170 
4180 
4190 
4200 
4210 
4220 


4230 


230 


4240 


4250 
4260 


4270 
4280 
4290 
4300 
4310 


4320 
4330 


4340 
5000 
5010 
5020 
5030 


5040 
5050 


5055 
5060 
5070 


5080 


5090 


5100 
s110 


5112 


s113 
s115 
5120 
3125 


B$(NC) = LEFTS$ (B$(NC),CC 
id) 
IF TP(NC) = 1 OR TF(NC) = 2 
THEN 4200 
FOR I = 1 TO Ni 
B$(NC) = B$(NC) + " " 
NEXT 1 
GOTO 4240 
FOR I = 1 TO Ni 
BS (NC) = " " + B$(NC) 
NEXT 1 
IF RIGHTS (B$(NC),1) = "." 
THEN B$(NC) = " " + LEFTS (BS(N 
C>,LC(NC) - 1) 
X = CX(NC): 
Y = CY (NC) 
G0SUB 11000 
PRINT B$ (NC): 
RETURN 
RE —_—_—_—— 
REM CTRL.PUNTO 
REM == 
suP = 0 
IF CC = 1 OR CC = LC(NC) THEN SWP 
= 1: 
RETURN 
FOR 1 = 1 TO LC(NC) 
IF MID$ (B$(NC),1,1) = "." 
THEN 1 = LC(NC): 
SWP = 1: 
RETURN 
NEXT I: 
RETURN 
REM o 
REM INTRODUCCION DATOS 
REM o 
LM = 0: 
GOSUB 7000 
GOSUB 2000 
GOSUB 3000: 
IF FS = 7 THEN RETURN 
CH$ = B$(2): 
TTS = B$(1) 
IF FS = 6 THEN 5040 
NF$ = "DATOS": 
LR = 50: 
GOSUB 6000 
TT = 1: 
NR = 1: 
PAS = "01" + B$(2) + B$(1): 
GOSUB 6400 
LM = 1: 
GOSUB 7000: 
B$(1) = CH$ 
TP(1) = 4 
GOSUB 2000 
GOSUB 3000: 
IF FS = 7 THEN RETURN 
FOR I = 2 TO 5: 
IF B$(1) = LEFTS (BA$,10) 
THEN HOME : 
YT = 13: 
TI$ = "ERROR DE INTRODUCCION": 
INVERSE : 
GOSUB 11200: 
GOSUB 11100: 
G0TO 5095 
NEXT 1 
CH$ = B$(1) 
IF FS = 64 THEN S100 
FOR I = 1 TO S: 
S1$(1) = B$(1): 


NEXT 1 

J = 1: 

FOR I = 1 TO 3: 
DD) =8: 
CxX(1) = 20: 
DY(1) =6 + y: 
CY(1) = DY(1): 


5140 


- 5150 


s160 


5170 


5180 


5190 


5200 


5205 


5210 


5220 


5290 


1: 
1: 
1 +11: 


> 
e 
a 
+ 
a 
IS 





a." 
12) =1 


12) = 16: 
12) = 19 + [2 


TO 4: 
16) 
16) 
16) 
16) 
16) 


1: 
mo 


-. 


19 + Ir 


.n....u..ua 


FOR 1 = 2 TO 20: 
TP(D) = 3: 
LC(1) = 10: 
ND(1) = 0: 

NEXT 1 

D$(1) = CH$: 

TP (1) = 3 

D$(2) = B$(2) 


D$ (3) 


+ 
= 


B$(3) 


ES 


D$(8) = B$(4) + ": 


D$(9) = B$(5) 
NUC = 20 
GOSUB 2000: 
GOSUB 3000: 
IF FS = 7 THEN RETURN 
IF FS = 6 THEN 5230 
1: 
FRE (0) 
de Ti dE 
OR NR = TT TO TT + 3 
AAS = B$(1) + B$(I + 1) 
+ B$(1 + 2) + B$(1 + 3) 
+ B$(1 +4) 


+ 
z 


TMÁÍDA 


+ S1$(4) + S1$(5): 
GOSUB £400 
NR = 1: 
N$ = STR$ (GG + 1): 
6G = GG + 1: 
IF. LEN (N$) < 2 THEN N$ =" " 
+ N$ 


5318 


5320 


5350 


$000 
$010 
£020 
$030 
$040 


6050 
6060 
6200 
6210 
6220 
6230 
5240 
6250 
6260 
6270 
6400 
6410 
6420 
$430 
6440 
5450 
6460 
6470 


6610 
6630 
6640 
6650 
7000 
7010 
7020 
7030 
7040 
7050 


7060 
7070 


7075 


7080 
7085 


7090 


GOSUB 4200: 

AAS = N$ + MIDS /(AAM$,3, 48) 

GOSUB 4400 

FOR 1 TE +1 10 TE +10 
NR = 1: 
AAS = LEFTS (BA$.50): 
GOSUB £400 

NEXT 1: 

TT = TT +10 

HOME : 

YT = 13: 

TIS = "OTRA LECCION ? (S/N) ": 

GO0SUB -11200 

GET A$: 

IF AS< >"S" ANDAS > "N" 

THEN 5320 

IF A$ = "S" THEN 5090 

IF DR$ = "1" THEN HOME : 

YT = 13: 

TI$ = "INTRODUCIR DISCO PROGRAMAS 

Me 

INVERSE : 

GOSUB 11200: 

GOSUB 11100 

PRINT D$: 

PRINT D$; "RUN GEOGRAFIA, Di" 

AA 

REM APERTURA FICHERO 

PAP Po 

PRINT DS. 

PRINT D$;"OPEN"¿NF$ + ",D" 

+ DR$;",L"¡LR + 2 

PRINT DS 

RETURN 


RENÉ 


REM LECTURA REGISTRO 
REA AA 
PRINT Ds 

PRINT D$;"READ";NF$; ",R";NR 
INFUT AAS 

PRINT D$ 

RETURN 


REM 


REM ESCRITURA REGISTRO 
A 
PRINT D$ 

PRINT DS; "WRITE"5NF$3",R"¿NR 
PRINT — CHR$ (34) + AAS 
PRINT D$ 

RETURN 

REM A _ 

REM CIERRA FICHERO 

> RA 
PRINT Ds 

PRINT DS; "CLOSE";NF$ 
PRINT Ds 

RETURN 


REM 


REM LECTURA DE LOS DATOS 


"mon 








FOR 1 = 1 TO NY + 15: 


READ DA$: 
NEXT I 
IF LM = O THEN 7075 
ND = 0: 
FOR I =0 TO LM - 1: 
READ DA: 


ND = ND + DA + (DA 4 7): 
NEXT 1 
READ NUC: 
IF NUC = O THEN RETURN 
IF NV - LM - 1 = 0 THEN 7090 
FOR I = 1 TO NV — LM - d: 
READ DA$: 
NEXT 1 
IF LM = O THEN 7100 


7092 
7095 


7100 


7110 


7120 

10000 
10010 
10020 
10030 
10040 
10050 
10060 


10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
11000 
11010 
11020 
11030 


11040 
11100 
11110 
11120 
11130 


11140 


11150 
11200 
11210 
11220 
11230 
11235 
11240 
11250 


11260 


11500 
11510 
11520 
11530 


11540 


11550 
11560 
11500 
11610 
11620 
11630 


11640 


IF ND = 0 THEN 7100 
FOR 1 = 1 TO ND: 
READ DAS: 
NEXT 1 
FOR 1 = 1 TO NUC: 
READ DS (1): 
NEXT 1 
FOR 1 = 1 TO NUC: 
READ TP(1),LO(I),ND(I),DX(1).D 
VID,CXID, CY (Ds 
NEXT 1 
RETURN 
REM == 
REM DATOS 
REM ---- 
DATA "GEOGRAFIA - GENERACION" 
DATA 3 
DATA 91,00, 00 
DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 
DATA 2,5,0 
DATA “TITULO. ", "CLAVE." 
DATA 3,10,0,7,12,15,12 
DATA 3,10,0,7,14,15,14 
DATA U1.002, 093,90 0 05,0 
DATA 4,10,0,14,11,17,11 
DATA 3,10,0,14,13,17,13 
DATA 3,10,0,14,15,17,15 
DATA 3,10,0,14,17,17,17 
DATA 3,10,0,14,19,17,19 


0] 





REM POSICIONA CURSOR 
RE AA 
HTAB X: 

VTAB Y 

RETURN 

REM Sin 
REM ESFERA CARACTER 
RNA q 
GOSUB 11400: 

YT = 23: 

TI$ = "PULSAR UNA TECLA": 
FLASH : 

GOSUB 11200 

PRINT BPS;: 

X = 20: 

Y = 23: 

GOSUB 11000: 

GET AS: 

GOSUB 11600 

RETURN 

RO: —=—_— === 
REM CENTRA EN VIDEO 
REA: 

IF TIS = "" THEN RETURN 
TI$ = LEFTS (TI$,40) 
XT = (42 - LEN (TIS)) / 2 
HTAB XT: 

VTAB YT 

PRINT TI$;: 

RETURN 

REM 
REM PETICION DE ESPE: 





YT = 23 

TIS = "ESPERAR POR FAVOR": 
INVERSE : 

GOSUB 11200 





REM BORRA ULTIMA LINEA 
REN A A == 
Y = 23: 

X =1: 

GOSUuB 11000 

NORMAL : 

PRINT— LEFTS (BA$,40)52 


11650 
11900 
11910 
11920 
11930 


11940 
13000 
13010 
13020 
13030 


13040 
13050 
13060 


13070 
13090 
13100 
13110 
13120 


13130 
13140 


13150 
13160 
13170 
13180 
40010 
40020 
40030 


40040 
40050 


40060 


40070 


40090 
40090 


40100 
40110 


Y = 10: 

GOSUB 11000 

RETURN 

REM 

REM AVISO DE ERROR 

REM 

HOME : 

YT = 13: 

TI$ = "ERROR DE INTRODUCCION": 
INVERSE : 

GOSUB 11200: 

GOSUB 11100 

RETURN 

REM_——— 

REM AYUDA 

REM —-— 

XX = X: 

Ya 

INVERSE 

K=1 

X= 1: 

Y=s: 

GOSUB 11000 

PRINT HES$(K); 

B= PEEK ( - 16384) 

POKE - 16368,0 

IF B< 128 THEN 13080 

IFBX< > 160 THEN 13080 
K=K<+d: 

IF K > 8 THEN 13140 

GOTO 13060 

Y=5 

X= 1d: 

GOSUB 11000: 

PRINT— LEFT$ (BA$,40); 
YT=5: 

TIS = HES: 

GOSUB 11200 

NORMAL 

X = XX: 

Y = YY 

RETURN 

REA ——— 

REM GESTION ERROR 

REM a 

IF PEEK (222) = 5 THEN 40130 
IF PEEK (222) < > 8 THEN 40060 
HOME : 

YT = 13: 

TI$ = "COMPROBAR EL DISCO DATOS": 
INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 

IF PEEK (222) < > 13 AND 
PEEK (222) < > 11 THEN 40080 
HOME : 

YT = 13: 

TI$ = "NOMBRE FICHERO NO VALIDO": 
INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

NFS = "Xx"; 

GOTO 400 

IF PEEK (222) < > 9 THEN 40100 
HOME : 

YT = 13: 

TI$ = "DISCO LLENO": 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 

IF PEEK (222) < > 4 THEN 40115 
HOME : 

YT = 13: 

TI$ = "DISCO PROTEGIDO": 
INVERSE : 

GOSUB 11200: 

GOSUB 11100: 


GOTO 400 


40115 L = PEEK (218) + 256 £ PEEK (21 


9) 


40120 HOME : 


YT = 13: 

TIS = "ERROR " + STR$ ( PEEK (22 
21) + "EN "+ STRS (L): 

GOSUB 11200: 

END 


40130 HOME : 


TI$ = "NOMBRE FICHERO NO EXISTE": 
YL_= 13: 

INVERSE : 

GOSUB 11200: 

GOSUB 11100: 

GOTO 400 


Geografía-Uso 


10 
20 
30 
40 
50 
60 
70 


80 


90 


100 


110 


120 


130 


140 


150 


1650 


170 


175 
180 
190 


250 


REM mm 
REM GEOGRAFIA - USO 
REM VERSION DOS 
REMO 
ONERR GOTO 40000 

Bs$ 
BAS = BS + BS + BS + BS: 

Bs ="" 

D$ = CHR$ (4): 

BP$ = CHR$ (7) 

PRINT D$: 

PRINT D$; "BLOAD CAR.D1": 

PRINT D$ 

HGR2 : 

DIM B$(20),D$(20).XR (20) ,YR(20),C 
C(10,15),GG(10,15),NE (20) 

GI$ = "CUANTAS UNIDADES HAY ? (1/ 
elas 

Y = 13: 

GOSUB 20400 

YC = Y: 

XC = XF:2 

GOSUB 20100: 

GOSUB 20000 

IF AOX >49 ANDAOX >50 
THEN 110 

DR$ = "1": 

IF AO = 50 THEN DR$ = "2" 

GI$ = "INTRODUCIR EL DISCO DATOS 
EN LA UNIDAD " + DR$: 

GT = 1: 

GOSUB 20600 

GT = 0: 

GOSUB 20700 

NF$ = "DATOS": 

LR = 50: 

GOSUB 6000 

NR = 1: 

GOSUB 6200: 

TT$ = MIDS (AA$,13,10) 

KS = VAL ( MIDS (AA$,1,2)) 

HGR2 

A$ = "LAS PREGUNTAS VERSARAN SOBR 
E "+: TTS 

Cas 

Y=1 
GOSUB 20300 

A$ = "INTRODUCIR EL TEMA": 

X=S: 

y. 17 

GOSUB 20300 

LO = 10: 

xXS = 28: 

YS = 17: 

GOSUB 20400 

CV$ = C$: 

GOSUB 8000 

IF ER = 1 THEN HGR2 : 

GI$ = "EL TEMA " + CV$ + " NO EXI 


A 





310 


¿8 


6000 
6010 
6020 
6030 
6040 


6050 
6060 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
8000 
go10 
8020 
8025 
8030 


8040 
8050 


8060 


8070 
8080 


14000 
14010 
14020 
14025 
14030 
14040 


14050 


14060 
14070 


STE": 

GT = 1: 

Y = 13: 

GOSUB 20400: 

6T = 0: 

GOSUB 20700: 

HGR2 : 

GOTO 250 

GOSUB 14000: 

HGR2 : 

GOSUB 16000 

GOSUB 15000 

HGR2 : 

A$ = "OTRA LECCION ? (S/N)": 

GT = 0: 

X=1: 

Y = 13: 

G0SUB 20300 

XC = 24: 

YC = 13: 

GO0SUB 20000: 

GOSUB 20100 

IFAO< >83ANDAOX > 78 

THEN 320 

IF AO = 83 THEN N = O: 

Ni =0: 

FOR I = 1 TO 20: 
NE (1) = 0: 

NEXT : 

GOTO 250 

TEXT : 

HOME : 


PRINT D$ 


REM LECTURA REGISTRO 

REM A 
PRINT DS 

PRINT D$; "READ"¿NF$;",R"¿NR 
INPUT ARS 


A = FRE (0) 

Ni = 2: 

KE =2 +15 4% (KS - 1): 
N2 = KE 

I = Ni 

NR = 1: 

GOSUB 6200: 


C$ = LEFTS (AA$,10) 

IF C$ = CV$ THEN ER = 02 

Ki = 1: 

RETURN 

IF KE = I THEN ER = 1: 
RETURN 

1=1+ 13 

GOTO 8050 

A ———_=———_——_———— 
REM LECTURA DATOS LECCIONES 


dio de SPFALE> "TS 

1 

MESAS 

= + 10 t (K - 1) 

(J) = MID$ (AA$.N, 10) 

IF J<J1i+4 THEN J=J +1: 
G0TO 14050 


J=J 
K=3J 
N=1 
B$(J) 


14080 
14090 
14100 
14110 
14120 
14130 
15000 
15010 
15020 


15025 
15030 


15035 
15040 


15050 


15060 


15070 


15080 


15090 


15100 


15110 


15120 
15130 
15140 
15150 


15170 
15180 
15190 
15200 


15210 


15220 
15230 


15240 


15260 
15270 


NR = Ki + 1: 

GOSUB 6200 

IF 1 < 4 THEN Ki = Ki + 1: 
Lim Té 12 

GOTO 14040 

J=1 
N=1+104 (J - 1): 
D$(J) = MID$% (AA$,N, 10) 
IF J<S5S THEN J=J+1: 
GOTO 14110 

KO = K1 + 1: 

GOSUB 30100: 

RETURN 

REN 
REM INTRODUCCION RESPUESTAS 
REM —————_ 
A = FRE (0) 

IK = 2: 

KA = 0: 

KE = 0: 

KK = 0 

IF IK > = 20 THEN 15300 
IF XR(IK) = O THEN IK = IK 
+1: 

GOTO 15035 

XS = XR(IK): 

YS = YR(IK): 

LO = 10: 

GOSUB 20400 

IF LEFTS (C$,5) = "AYUDA" 
THEN 15240 

IF IK> =3ANDIK< >8 
THEN 15110 

IF C$ = B$(IK) THEN IK = IK 
id 

KK = KK +1: 

GOTO 15040 

X = XR(IK):2 

Y = YR(IK): 

Aba Mas "a 

PRINT BP$;: 

GOSUB 20300 

KE = KE + 1: 

GOTO 15050 

Ni = 9; 

NE = 20: 

IF IK < 8 THEN Ni = 3: 

NE = 7 

L = MN 

IF B$(L) = C$ THEN 15170 
IF L = NE THEN 15090 
L=L+d1: 

GOTO 15130 

IF NE(N1) = L THEN 15090 
IF NE(N1) = O THEN 15210 
IF Ni = NE THEN STOP 

Ni = Ni + 1: 

GOTO 15170 

NE(N1) = L 

IF IK = 20 THEN 15300 

IK = IK + 1: 

KK = KK + 1: 

GOTO 15040 

IF IK< 3 OR IK = 8 THEN X 
= XR(IK): 

Y = YR(IK): 

A$ = B$(IK): 

GOSUB 20300: 

KA = KA + 1: 

IK = IK + 1: 

GOTO 1504 

Ni = 9: 

NE = 20: 

IF IK < 8 THEN Ni = 3: 

NE = 7 

N = Ni 

IF NE(N) = O THEN X = XR(IK): 
Y = YR(IK): 

GOTO 15291 


15280 
15290 


15292 
15293 
15294 


15310 


15320 


15330 


15340 


16000 
16010 
15020 
16025 
16030 
16040 
165050 


165060 
16065 


16070 


16080 


16090 


160935 


16100 


16110 
16120 


15130 


16140 
15150 


IF N = NE THEN STOP 
N=N + 1: 

GOTO 15270 

IF N = Ni THEN NE(N) = Ni:z 
IS = Ni: 


GOTO 15297 
IS = Ni 
J=Ni 


IF NE(J) = IS THEN IS = IS 
+ 1: 

GOTO 15293 

IF J < NE THEN J=J+d: 
GOTO 15294 

NE(N) = IS 

AS = B$(1S): 

GOSUB 20300: 

KA = KA + 1: 

IK = IK + 1: 

G0TO 15040 

GOSUB 20700: 

HGR2 : 

GT =1: 

GI$ = "RESULTADOS: 

Y =8: 

GOSUB 20600 

GT = 0: 

61$ = "RESPUESTAS CORRECTAS " 
+ STR$ (KK): 

Y = 12: 

GOSUB 20400 

GI$ = "RESPUESTAS ERRONEAS " 
+ STRS (KE): 

Y = 14: 

GOSUB 20400 

GI$ = "AYUDAS: 

" + STRS$ (KA): 

Y = 16: 

GOSUB 20400 

GT = 1: 

GOSUB 20700: 

GT = 0: 


REM PRESENTA MASCARA 
REM 
A = FRE (0) 
GOSUB 30200 


IF 1C = 1 THEN A$ = B$(IC): 
X = 30: 

GOSUB 20300: 

GOTO 14100 

IF D$(IC) = LEFTS (BA$,10) 
OR B$(IC) = LEFTS$ (BA$,10) 
THEN XR(IC) = O: 

GOTO 16100 

Xx = 30: 

MM 

GOSUB 20300 

XR(IC) = 30: 

YR(IC) = Y 

IF IC < 3 THEN IC = IC + 1: 
GOTO 146050 

IC = 1 

Y = IC +5: 

*x = 30: 

XR(IC + 3) = X: 

YR(IC + 3) = Y 

IF B$(IC + 3) = LEFTS (BA$,10) 
THEN XR(IC + 3) = O: 

GOTO 16150 

GOSUB 20300 

IF IC < 4 THEN IC = IC + 1: 


161535 


16160 


16170 


16180 


16185 


16190 


15200 


16205 


16210 


16220 
16230 
16240 
16245 


16250 


16260 
16270 
15290 
162953 


16300 


16310 
16320 


20000 
20010 


20020 
20030 


20040 


20050 


20060 
20100 
20110 
20120 
20125 
20127 


20130 


GOTO 16120 

IF D$(4) = LEFTS (BA$,10) 
OR B$(4) = LEFTS (BA$, 10) 
THEN XR(8) = 0: 

GOTO 16185 

X= 18: 

Y = 11: 

AS = D$(4): 

G0SUB 20300 

Xx = 30: 


GOSUB 20300 
XR(8) = 30: 
YR(8) = 11 
IF D$(5) = LEFTS$ (BA$,10) 
THEN FOR I = 9 TO 20: 
XR(1) = 0: 
NEXT 1: 
RETURN 
Xx = 18: 
Y = 13: 
AS = DS$(S5): 
G0SUB 20300 
a == "3 
FOR IC = 1 7104 
IF B$(IC + 8) = LEFTS (BA$, 10 
) THEN XR(IC + 8) = 0: 
GOTO 16230 
x= 4: 
Y = IC + 14: 
XR(IC + 8) = X:z 
YR(IC + 8) = Y 
GOSUB 20300 
NEXT IC 
FOR IC = 1 T0 4 
IF B$(IC + 12) = LEFT$ (BAS, 1 
0) THEN XR(IC + 12) = 0: 
GOTO 16270 
X = 16: 
Y = IC + 14: 
XR(IC + 12) = X: 
YR(IC + 12) = Y 
GOSUB 20300 
NEXT IC 
FOR IC = 1 7104 
IF B$(IC + 16) = LEFTS (BA$,1 
0) THEN XR(IC + 16) =0: 
GOTO 16320 
X = 28: 
YN == 10 + 143 
XR(IC + 16) 
YR(IC + 16) 
GOSUB 20300 
NEXT IC: 
RETURN 
ds ra 
REM ESPERA Y PARPADEA CURSOR 
A  —— 
AO = PEEK ( - 16384): E 
IF AO > 128 THEN POKE - 163£8,0 


"nu 
< 


AO = AO - 128: 

RETURN 

AA 

IF T < 100 THEN 20030 

>= it 

IF PEEK (PL) < > PY THEN 
POKE PL,PV: 

GOTO 20030 

POKE PL,127 - PV: 

GOTO 20030 

RA: ==> E 
REM ENCIENDE CURSOR XC, YC 
REM — 
IF XC < 1 OR XC > 40 THEN XC 
=1 

IF YC < 1 OR YC > 24 THEN YC 
=1 

FPOKE PL, PV 





20140 


20150 


20160 
20200 
20210 
20220 
20230 


20240 


20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 
20325 
20330 
20340 
20350 
20360 
20400 
20410 


20420 
20430 


20440 
20450 
204355 
20460 


20470 
20480 


20500 
20510 


20520 


20530 


20540 


20550 


20560 


20600 
20610 
20620 
20630 
20640 


LOC = 23423 * (YC < 9) + 23463 
Xx (YC > 8) x (YC< 17) + 23503 
* (YC > 16) + (YC - 8 Y (YC 
A A E O | 
+-XE 

PV =  PEEK (LOC): 

PL = LOC: 

POKE LOC,127 - PV 





REM CARACTER EN HI-RE 
A 
IO = (24575 + (CO - 32) * 8) 
+ 0134312 
LOC = 16255 £ (Y < 9) + 16295 
EN ASE NE 17) 16335 
EAV- 16) + (Y 8 3=(Y->8B) 
AN AS AAA ES 
FOR I = 1708 
POKE LOC, PEEK (10 + 1) 
LOC = LOC + 1024 
NEXT I 


REM > 
REM CADENA EN HI-RES 


IF AS = "" THEN RETURN 

LL = LEN (A$): 

FOR IL = 1 TO LL 
CO = ASC ( MID$ (A$, 1L,1)): 
GOSUB 20230 
XX +.L3 








IF LO = O THEN LO = 41 - XS 
GOSUB 20100 

GOSUB 20000 

IF AO = 5 OR AO = 18 OR AO 

= 23 OR AO = 26 THEN RETURN 

IF AO = 13 THEN C$ = MIDS (C$,1, 
IC)» 

GOTO 20550 

IF AO < > 1 THEN 20500 

IF IC = O THEN 20450 


IC = IC - 1: 
XC = XC - t: 
GOTO 20440 


IF IC = LO THEN 20450 

IF A0 = 19 THEN IC = IC + 12 
XC = XC +1: 

GOTO 20440 

CO = AO: 

X = XC2 

GOSUB 20200: 

PV = PEEK (LOC - 1024) 

C$ = MIDS (C$,1,1C) + CHR$ (CO) 
+ MID$ (C$,IC + 2,39) 

16.=. 10.443 

XC = XC +1: 

GOTO 20440 

A$ = MID$ (BA$,1,LO - IC): 
X = XS + IC: 

C$ =C$ + AS 

GOSUB 20300: 

RETURN 


REM === 


REM CENTRA CADENA (HI-RES) 
> 
IF GI$ = "" THEN RETURN 
L= LEN (GI$): 

RENA ZE SOLES. Ze 


20700 
20710 
20720 
20730 


20740 


20750 
30100 
30110 
30120 
30130 
30140 


30150 
30160 


30170 
30180 
30190 
30200 
30210 
30220 
30230 


30240 
30250 


30260 


30270 


30280 


30290 
40000 


40070 


40080 
40090 


40100 
40110 


40115 


40120 


40130 


REM ESPERA CARACTER 
REN -_—  _—_——— 
Y 23: 
GI$ = "PULSAR UNA TECLA": 
GOSUB 20400 
GET AS: 
6I$ = LEFTS (BA$, 16): 
GOSUB 20400 
RETURN 
REM AAA AAA AAA AAA 
REM CARGA DIBUJO DEL DISCO 
REM $qocxee—e—eB—— 
FOR JR = 1 TO 10: 
NR = JR + KO 
GOSUB $200: 
I=1 
FOR Y = 1 T0 15 
CC(JR,J) = VAL ( MIDS (ARAS 
»1,2)) 
GG(JR,J) = VAL ( MIDS (ARS 
¿1421 
1=1 +3: 
NEXT J 
NEXT JR: 
RETURN 
REM A A A 
REM EJECUCION DIBUJO 
RE 
FOR IG = 1 TO 10: 
Y = IG 
FOR JG = 1 TO 15 
CO = CC(1G.JG): 
GT = 6G(16,J6) 
IF CO = 32 AND GT < 
> 1 AND GT < > 3 THEN 302 
80 
X = JG: 
GOSUB 20200 
NEXT JG: 
NEXT IG 
RETURN 
o 
REM GESTION ERROR 
a A 
TEXT : 
HOME 
IF  PEEK (222) = 5 THEN 40130 
IF PEEK (222) < > 8 THEN 40060 
PRINT "COMPROBAR EL DISCO DATOS": 
END 
IF PEEK (222) < > 13 AND 
PEEK (222) < > 11 THEN 40080 
PRINT "NOMBRE FICHERO NO VALIDO": 
END 
IF PEEK (222) < > 9 THEN 40100 
PRINT "DISCO LLENO": 
END 
IF PEEK (222) < > 4 THEN 40115 
PRINT "DISCO PROTEGIDO": 
END 
L = PEEK (2189) + 256 £ PEEK (21 
> 
PRINT "ERROR "; PEEK (222);" EN " 
sl: 
END 
PRINT "DATOS INEXISTENTES": 
END 


Geograf 
10 REM A 
20 REM GEOGRAFIA 
25 REM GENERACIONAL (GRAFICA) 


40 
45 
so 
70 


110 


120 
130 


140 


6000 
6010 
6020 
£030 
6040 


6050 


4200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6400 
5410 
6420 
6430 
6440 
6450 
6460 
6470 


6610 
6620 
56630 
6640 


6660 
go10 


8020 
8030 


8045 


REM VERSION DOS 
REM A 

ONERR GOTO 40000 

REM INICIALIZACIONES 

BP$ = CHR$ (7): 

D$ = CHR$ (4) 

PRINT D$: 

PRINT D$: "BLOAD CAR,D1": 

PRINT D$ 

Bs = " Er 
BAS = BS + BS + BS + B$: 

BS ="" 

HGR2 

GI$ = "CUANTAS UNIDADES HAY ? (1/ 
2)": 

Y = 13: 

GOSUB 20400 

YC = Y: 

XC = XF:z 

GO0SUB 20100: 

GOSUB 20000 

IFAOX< >49 ANDADOX >50 
THEN 110 

DRS$ = "1": 

IF AO = SO THEN DR$ = "2" 
GI$ = "INTRODUCIR EL DISCO DATOS 
EN LA UNIDAD " + DR$: 

GT = 1: 

GOSUB 20600 

GT =0: 

GOSUB 20700 

DIM CC(10.15),66 (10,15) 
GOSUB 8000: 

TEXT 


e 


GOSUB 6400: 


REM APERTURA FICHERO 
REN —— 
PRINT DS 
PRINT D$; "OPEN"¿NF$ + ",D" 
DROGA LAURA 2 

PRINT D$ 

RETURN 

REN ——————_—_—_— == 

REM — LECTURA REGISTRO 

REN >-—_————_== == 

PRINT DS 

PRINT D$;"READ";NF$;",R"¿NR 
INPUT AAS 

PRINT D$ 

RETURN 

REN 

REM ESCRITURA REGISTRO 
REN->-E-——— 
PRINT D$ 

PRINT DS; "WRITE"¿NF$;",R"¿NR 
PRINT — CHR$ (34) + AAS 
PRINT Ds 

RETURN 

RO 

REM CIERRA FICHERO 

REM -———————— == 

PRINT D$ 

PRINT D$;"CLOSE"¿NF$ 

PRINT D$ , 





REM NUEVO DIBUJO 

REM AAA 

NF$ = "DATOS": 

LR = 50: 

GOSUB 6000 

NR = 1: 

GOSUB £200: 

TT = VAL ( MID$ (AA$,1,2)) 
NL = TT 

FOR IX = 1 TO NL: 


8050 
8070 
8080 
8090 
8100 
g110 
8120 
20000 
20010 


20020 
20030 


20040 


20050 


20060 


20100 
20110 
20120 
20125 


20127 


20130 
20140 


20150 


20160 
20200 
20210 


20220 RE 


20230 


20240 


20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 


20323 


20330 


20340 


20350 


20360 
20400 
20410 
20420 
20430 


A= FRE (0) 
XL = (1X - 1) 1 15+2: 
KO = XL +4 
OS 


pe 
”M 
- 


G61$ = LECCION N." + STR$ (IX 


GOSUB 20400 
GOSUB 35100: 
IF AO = 18 THEN RETURN 
GOSUB 30000: 


Ea 
REM ESPERA Y PARPADEO CURSOR 
REA 
AO = PEEK ( - 16384): 
IF AO > 128 THEN FOKE - 14348,0 
A0 = AO - 128: 
RETURN 
Ta Pod le 
IF T < 100 THEN 20030 
T=1: 
IF PEEK (PL) < > PV THEN 
POKE FPL,PV: 
GOTO 20030 
POKE PL,127 - PV: 
GOTO 20030 
EM ni 
REM ENCIENDE CURSOR XC, YC 
RE A 
IF XC < 1 OR XC > 40 THEN XC 
=-1 
IF YC < 1 OR YC > 24 THEN YC 
=1 
POKE PL,PV 
LOC = 23423 k (YC < 9) + 23463 
* (YC >8) X (YC < 17) + 23503 
* (YC > 16) + (YC - 8 £ (YC 
>8) - 84 (YC-> 16)) £ 128 
+ XC 
PV = PEEK (LOC): 
PL = LOC: 
POKE LOC,127 - PV 
RETURN 
E 
REM CARACTER HI-RES 
in 
10 = (24575 + (CO - 32) k 8) 
+ GT 512 
LOC = 16255 * (Y < 9) + 16293 
* (Y >8) € (Y < 17) + 16335 
% (Y > 16) + (1-8 (Y >8) 
- 84 (Y > 16)) £ 128 + X 
FOR 1 = 1708 
POKE LOC, PEEK (IO + 1) 
LOC = LOC + 1024 
NEXT 1 
RETURN 
REM == ———————- 
REM CADENA EN HI-RES 


IF A$ = "" THEN RETURN 

LL = LEN (A$): 

FOR IL = 1 TO LL 
CO = ASC ( MID$ (A$,1L,1)): 
GOSUB 20230 
X= X +1: 

NEXT IL 

RETURN 

REN: === ==>>3 == 

REM ENTRADA a 





Y = YC: 
IF LO = O THEN LO = 41 - XS 


20440 
20450 
20455 


20470 
20480 
20490 


20500 
20510 


20520 CO = 


20530 


20540 


20550 


20650 
20700 
20710 


20720 
20730 


20740 


20750 
30000 
30010 
30020 
30030 


30040 
30050 
30060 
30070 
30200 
30210 
30220 
30230 


30240 


30250 


30260 


30270 
30280 


30290 


GOSUB 20100 
GOSUB 20000 
IF A0 = 5 OR AO = 18 THEN 
RETURN 
IF A0 = 13 THEN C$ = MID$ (C$,1, 
IC): 
G0TO 20550 
IF AO X > 1 THEN 20500 
e IC = O THEN 20450 
*= 1C = 1: 
= XC - 1: 
mn 20440 
IF IC = LO THEN 20450 
IF AO = 19 THEN IC = IC + 1: 
XC = XC + 1: 
GOTO 20440 
AO: 
= XC: 
GOSUB 20200: 
PV = PEEK (LOC - 1024) 
C$ = MID$ (C$,1,IC) + CHR$ (CO) 
+ MID$ (C$,IC + 2,39) 
IC = IC + 1: 
XC = XC + 1: 
GOTO 20440 
A$ = MID$ (BA$,1,LO - IC): 
X = XS + IC:z 
C$ = C$ + AS 
GOSUB 20300: 


REM CENTRA CADENA (HI-RES) 
REM ——— E 
IF GI$ = "" THEN RETURN 
L = LEN (GI$); 

X = (42 - L) / 23 

AS = GI$: 

XxX =X>+L 

GOSUB 20300: 

RETURN 

ASS 

REM ESPERA CARACTER 


Y = 23: 

GI$ = "PULSAR UNA TECLA": 
G0SUB 20400 

GET A$: 

GI$5$ = LEFTS (BA$, 16): 
GOSUB 20600 

RETURN 


FOR Y = 1 TO 15 
ARAS = AAS + STR$ (CC(1,J)) 
+ STR$ (GG(1,J)) 
NEXT J: 
GOSUB 6400 
NEXT 1: 
RETURN 
REA —=—_—___ === 
REM EJECUCION DIBUJO 
REN ———————— 
FOR IG = 1 TO 10: 
=16+3 
FOR na =1T0 10 
CC(1G,JG): 
EJ JG) 


Xx =JG + 14: 
GOSUB 20200 
NEXT JG: 
NEXT IG 
RETURN 


35000 
35010 
35020 
35030 


35040 


35050 


35060 


35070 


35080 


35090 


35100 
35110 
35120 
35130 


35140 
35150 
35160 
35170 
35180 
35190 


35195 
35200 


35210 
35220 
35230 
35240 


35250 


35260 
35270 
35280 


35290 


35300 
33310 
33320 
335330 


35340 


335360 





REM 
REM INIC. PANTALLA CONST. DIBUJO 





AS = "SIMBOLO=" 
GOSUB 20300 
HCOLOR= 3: 
HPLOT 97,23 TO 203,23 TO 203,104 
TO 97,104 TO 97,23 
HPLOT 95,22 TO 204,22 TO 204,105 
TO 96,105 TO 96,22 
HPLOT 265,7 TO 273,7 TO 273,16 
TO 265,16 TO 265,7 
FOR 1 = 1 TO 10: 
FOR J = 1 TO 
CC(1,3) = 3: 
66 (1,3) = 0 
NEXT 3: 
NEXT 1: 
RETURN 
REN A 
REM CONSTRUCCION DIBUJO 


.. 


Ss: 


GOSUB 20000 
IF AO = 23 THEN YC = YC - 1: 
GOTO 35200 
IF AO = 19 THEN XC = XC + 1: 
GOTO 35200 
IF AO = 1 THEN XC = XC - 1: 
GOTO 35200 
IF AO = 26 THEN YC = YC + 1: 
GOTO 35200 
GOTO 35230 
IF XC < 15 OR XC > 29 THEN XC 
=15 
IF YC < 4 OR YC > 13 THEN YC 
=4 
GOTO 35140 
IF AO < > 8 THEN 35270 
CC = CC - 1: 
IF CC < 32 THEN CC = 95 
CO = CC: 
X = 39: 
Y = 2: 
GOSUB 20200 
GOTO 35150 
IF AO < > 21 THEN 35310 
CC = CC + 1: 
IF CC > 95 THEN CC = 32 
E Cc: 
39: 
y 2: 
G0SUB 20200 
GOTO 35150 
IF A0< > 32 THEN 333980 
SO = SO + 1: 
IF SO > 3 THEN SO = O 
GT = SO: ; 
IF SO > 1 THEN GT = SO - 2 
AS = "N": 
IF SO > 1 THEN A$ = "G" 





33370 
35380 
33390 


33400 
35410 


35420 
35430 
33440 


35450 


33460 


35470 


35480 


35490 


35500 


33510 


35520 


X = 39: 

Y = 2: 

GOSuB 20200 

GOTO 33150 

IF A0 < > 13 THEN 35430 
CO = CC: 

X = XC: 

Y = YC: 

s0suB 20200 

PY = PEEK (LOC - 1024) 
CC(YC - 3,XC - 14) = CC: 
GG(YC - 3,XC - 14) GT 
GOTO 35140 

IF AO < > 24 THEN 353470 
CO = 32: 
GT =0: 
X = XC: 

Y = YC: 

EC (YC — 3,XC -— 14) = 32: 
GG(YC - 3,XC - 14) = GT 
GOSUB 20200: 

PV =0 

GT = SO: 

GOTO 35140 

IF A0 < > 5 THEN 35550 

A$ = "SEGURO? (S/N): 

X= 13: a 

Y = 20 

GT = 1: 

GOSUB 20300 

XC: 

YOS 

27: 

20 

GOSUB 20100: 

GOSUB 20000 

IFAO< >83 ANDAOX > 78 
THEN 35510 


- 
o 
.....u.n 


40025 
40030 
40040 
40050 
40060 
40070 


40080 
40090 


40100 
40110 


40115 


40120 


40130 


IF AO = 78 THEN 35140 
RETURN 

IF AO < > 18 THEN 35150 
G0SUB 6400: 

RETURN 

REM 
REM GESTION ERROR 
REM — 
TEXT : 

HOME 

IF PEEK (222) = S THEN 40130 

IF PEEK (222) < > 8 THEN 40060 
PRINT "CONTROLAR EL DISCO DATOS": 
END 

IF PEEK (222) < > 13 AND 

PEEK (222) < > 11 THEN 40080 
PRINT "NOMBRE FICHERO NO VALIDO": 
END , 

IF PEEK (222) < > 9 THEN 40100 
PRINT "DISCO LLENO":s 

END 

IF PEEK (222) < > 4 THEN 40115 
PRINT "DISCO PROTEGIDO": 

END 

L = PEEK (218) + 256 *% PEEK (21 
9) 

PRINT "ERROR "; PEEK (222)3" EN " 
¡lo 

END 

PRINT "DATOS INEXISTENTES": 

END 








RELACION DE LAS VARIABLES - APPLE 


Generación y uso 


AS =adquisición datos 
por teclado 

BS(*)  =buffer de la data en- 
try 

BAS =80 blanks 

BPS =emisión de un soni- 
do CHR$(7) 

cc =campo actual 

CX(x*)  =coordenadas X de lo 
campos 

CY(x)  =coordenadas Y de 
los campos 

DS(*)  =descripción campos 

DR$ =unidad selecciona- 
da 

DX(+*)  =coordenadas X de 
las descripciones 

DY(+*)  =coordenadas Y de 
las descripciones 

FS =tecla función pulsa- 
da 

HES(+) =ayuda 

LC(+*)  =longitud campos 


=número máscara se- 
leccionada 

= longitud registro 

=nombre programa 

=número campos 

=nombre fichero 

=número registro 

=códigos teclas fun- 
ción 

=tipos de los campos 

= buffer del disco 

=Códigos carácter del 
dibujo HI-RES 

=códigos juego del 
dibujo HI-RES 

=juego de caracteres 
seleccionado 

=carácter actual en 
entrada cadena 

=longitud cadena a 
leer 

=coordenada X entra- 
da cadena 

= coordenada Y-entra- 
da cadena 





Geografía/Versión Philips VG 8010 
Geografía, Generación 


10= REM AAA 
20 REM GEOGRAFIA 
25 REM generacion 
27 REM Version MSX 
30 REM _—_——__—- 


32 CLS:CLEAR13000 
35 KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16):KEY 3,CHR$(17):KEY 4,CHR$(19):KEY S,CHR$(20) ¿WIDTH 40 
40 DIM TF(15),TP(20),LC(20),ND(20),CX(20) ,CY(20),DX(20),DY(20),TS$(25) 
46  M3=18:REM M3=Max. lecciones 

50 DIM B$(20),D$(20),SS$(M3,4),TT$(M3, 5) 

60 REM CONSTANTES 

70 Al=1:A2=31:BP$="08BL3ODFB"¿NS$="=":AS$="-"¿PD$=", "¿BLg=" " 
75 FS=CHR$(1)+CHR$ (87) 

77 0%="":FDR 1=0 TO 39:0$=08+F$: NEXT 1 

100 US$=CHR$ (13): ZE$=CHR$ (48) : GIU$=CHR$ (32) 

110 HES="CTRL Y (AYUDA) " 

115 Hi$=" E.G.S. Ediciones Forum, S.A." 

120 REM CARGA VOCES 

130 RESTORE 

140 READ PROG$ 

190 FOR I=1 TO 15 

200 READ TF(I) 

210 NEXT 1 

220 REM 

230 GOTOSO00 

240 - REM 

2000 REM ———--——— 

2010 REM PRESENTA MASCARA 

2020 REM ———— 

2030 CLS: COLORC, 14 

2130 L=LEN(PROG$) 

2140 FM=(36-L) /2: FM$=SPACES (FM) 

2150 X=1:Y=0:G0SUB11000: PRINTH1$; 

2160 1F OPZ=3 THEN 2218 

2215 Y=3:X=0:G0SUB 11000:PRINT FMs;"|"; PROGS; "| "¿FMS: X=FM: Y=2 
2216 GOSUB11000: G8$=LEFT$ (0$,L12) : PRINTCHRS (1) ¿CHR$ (£H58) ; G8$; CHR$ (1) ; CHRS (LH59) : Y=4: GOSUB1 1000: 
PRINTCHR$ (1) ¿CHR$ (LHSA) ; ; 686; CHRS (1) ¿CHR$ (LHSB) ; 

2218 Y=21:X=0:GOSUB 11000:PRINT 0$ 

2219 Y=22:X=25: GOSUB 11000 

2220 PRINT HES 

2240 FOR J=1 TO NUC 

2245 A$= "" 

2270 X=DX(J):Y=DY(J):GOSUB 11000:PRINT D$(J) 

2275 IFTP(J)<>5 AND TP(J)<> 4 THEN2290 

2280 X=CX(J):Y=CY (3): GOSUB11000 

2285 PRINTBS (J) : GOTO2420 

2290 N1=LC(J):N2=ND(J):1F TP(J)=1 OR TP(J) = 2 THEN C$=NS$:GOTO 2310 
2300 C$=AS$ 

2310 A$=STRING$ (N1-N2-1,C$) 

2320 1F N2=0 THEN A$= A$+C$:GOTO 2350 

2330 AS=A$+PDS 

2340 FOR I=1 TO N2:A$=A$+C$:NEXT 1 

2350 X=CX(J):Y=CY(J):GOSUB 11000 

2350 PRINT AS 

2380 B$(J)= SPACES (N1-N2-1) 

2410 E$(J)= BS(J)+RIGHTS (A$,N2+1) 

2420 NEXT J 

2430 RETURN 

3000 REM -—--—-— 

3010 REM DATA ENTRY 

3020 REM -—---— 

3030 J=1 

3040 NC=J: X=CX (NC) 3 Y=C Y (NC) 

3050 CC=1 

3050 GOSUB 3240 

3070 1F FS=0 THEN 3100 

3080 IF FS>4 THEN 3210 

3090 GOTO 3120 

3100 J=J+1:1F JANUC THEN 3030 

3110 GOTO 3040 

3120 ON FS GOTO 3130,3150,3170,3190 


3130 IF J»1 THEN J=J-1:G0TO 3040 

3140 PLAY BP$ :FS=0:J=NUC:GOTO 3040 

3150 IF J< NUC THEN J=J+1:GOTO 3040 

3160 PLAY BP$:FS=0:GOTO 3030 

3170 IF CC<LC(J) THEN S=1:CC=CC+1:X=X+1:G0SUB 11000:GOTO 3060 
3180 PLAY BP$:FS=0:GOTO 3100 

3190 1F CC>1 THEN S=-1:CC=0C-1:X=X-1:GO0SUB 11000:GOTO 3060 
3200 PLAY BP$:FS=0:GOTO 3040 

3210 IF FS>8 THEN FS=0:GOTO 3060 

3220 1F FS=8 THEN FS=0:GOTO 3100 

3230 RETURN 

3240 REM —--— 

3250 REM LECTURA DE UN CAMPO 

3260 REM --—--- 

3270 FS=0 

3280 IF TP(NC)=4 THEN RETURN 

3290 IF TP(NC)=2 THEN TP(NC)=1 

3300 IF MIDS(BS(NC),CC,1)=PD$ THEN X=X+S:CC=CC+S 
3310 GOSUB 11000 

3320 AS=INKEYS: IFAS=","OR AS= "" THEN PRINT" 
:GOTO 3320 

3330 CA=ASC(AS): IF CA > A2 THEN 3380 
3340 FOR I=1 TO 15 

3350 1F TF(I)= CA THEN FS = 1: GOSUB 3630: RETURN 
3360 NEXT 1 

3370 GOTO 3320 

3380 IF TP(NC)<>1 THEN 3440 

3390 IF CA=45 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 
3400 PLAY BP$:GOTO 3320 

3410 IF CA <> 46 THEN 3440 

3420 GOSUB 4270 

3430 IF SWP=1 THEN 3400 

3440 S=1: GOSUB 3520 

3450 IF CC=LC(NC) THEN RETURN 

3460 CC=CC+1:X=X+1:GOTO 3300 

3520 REM ===> 

3530 REM TRANSFERENCIA AL BUFFER 

3540. REM > 

3550 IF CC=1 THEN SN$= "":GOTO 3570 

3560 SN$=LEFTS ($ (NC). CC-1) 

3570 1F CC=LC(NC) THEN DS$= "":GOTO 3590 
3580 N=LC(NC)-CC:DS$=RIGHTS (B$(NC).N) 
3590 BS (NC) +SN$+A$+DS$ 

3620 PRINT A$: RETURN 

3630 REM -—-——--- 

3640 REM COMANDOS 

3650 REM -—----- 

3660 IF FS>4 THEN 3690 

3680 RETURN 

3690 IF FS=9 THEN GOSUB 13000: RETURN 
3700 1F FS=8 THEN GOSUB 4080:RETURN 

3710 1F FS<8 THEN RETURN 

3720 ON FS-9 GOSUB 3740,3910 

3730 RETURN 

3740 REM -———-- 

3750 REM INSERCION 

3760 REM ———-- 

3770 1F CO=LC(NC) THEN PLAY BP$: RETURN 
3780 IF CC=1 THEN SN$= "":GOTO 3800 

3790 SN$=LEFTS (B$ (NC) ,CC-1) 

3800 N=LC(NC)-CC+1:DS$=RIGHTS (BS (NC) ,N) 
3810 IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 
3820 C$=BL$ 

3830 AS=SN$ +C$+DS$ 

3840 B$(NC)=LEFTS (AS,LC(NC)) 

3850 XX=X: YY=Y 

3860 X=CX (NC) : Y=CY (NC) : GOSUB 11000 

3870 X=XX: Y=YY 

3880 PRINT B$(NC):S=-1 

3890 IF RIGHTS(B$(NC),1)= PD$ THEN 3780 
3900 RETURN 





3:GOSUB 11000:PRINTMIDS (B$ (NC),CC,1);:GOSUB 11000 





REM -——-- 

REM BORRADO 

REM _-——--— 

IF TP(NC)<>1 THEN 3960 

IF MIDS (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 
IF CC<1 THEN PRINT BP$: RETURN 

IF CC=LC(NC) THEN DS$= "": GOTO 4000 


N=LC(NC) —CC:DS$ =RIGHT$ (B$(NC),N) 

IF CC=1 THEN SN$= "": GOTO 4010 

SN$=LEFT$ (B$ (NC) ,CC-1) 

IF TP(NC) = 1 OR TP(NC)=2 THEN C$=NS$:GOTO 4030 
C$=AS$ 


BS(NC)= SNS +DS$ +C$ 


XX=X: YY=Y 

X=CX (NC) : Y=CY (NC) : GOSUB. 11000 
X=XX: Y=YY 

PRINT B$(NC);:S=1: RETURN 

EN: == 

REM ALINEADOS 

REM. ======== 

IF LC(NC) =1 THEN RETURN 

Ni=LC (NC) -CC+1 

IF CC=1 THEN B$(NC) = ""z GOTO 4150 
B$(NC)= LEFT$ (B$(NC),CC-1) 

IF TP(NC) =1 OR TP(NC)=2 THEN 4200 
FOR I=1 TO Ni 

B$ (NC)=B$ (NC) +BL$ 

NEXT 1 

GOTO 4240 

FORI=1 TO Ni 

B$(NC)=BL$ +B$(NC) 

NEXT 1 

IF RIGHTS (B$(NC),1) =PD$ THEN B$(NC)= BL$ +LEFT$ (BS$(NC),LC(NC)=1) 
X=CX (NC) : Y=CY (NC) 

GOSUB 11000 

PRINT B$ (NC) : RETURN 

e E 

REM CTRL PUNTO 


SsWP = 0 
IF CC=1 OR CC=LC(NC) THEN SWP =1: RETURN 
FOR I=1 TO LC(NC) 


IF MID$(B$(NC),1,1)= PD$ THEN 1 = LC(NC): SWP=1: RETURN 
NEXT l: RETURN 

e 

REM MAIN 

REMO 

REM 

OPZ=1: RESTORE10100: NUC=2: GOSUB7000 


C=4:G0SUB2000: X=0: Y=18:GOSUB11000:PRINT"SE HA PREVISTO UN MAXIMO DE";M3; "LECCIONES" 
GOSUB 3000: 1F FS=6 THEN 5030 ELSE IF FS=7 THEN 5000 

FOR I=1 TO 2: IF LEFT$(B$(1),3)=" " THEN PLAY BP$:GOTO 5040 ELSE NEXT 
TIT$="00"+B$(2)+B$(1) 

FOR TT=1 TO M3:REM bucle principal 

GOSUB15000 

RESTORE 10200:NUC=5: GOSUB7000 

B$(1)=MID$(TIT$,3,10) 

C=6: GOSUB2000 

GOSUB3000 

IF FS=6 THEN 5090 ELSE IF FS=7 THEN 5000 

FOR I=1 TO 5:1F LEFT$(B$(1),3)=" — "THEN PLAYBP$:GOTO 5095 ELSE NEXTI 

FOR I=1 TO 5:S1$(1)=B$(1):NEXT 

FOR I=1 TO 3:D$(1)=B$(1)+":":DX(1)=8:CX(1)=20:DY(1)=1+2*1:CY(1)=DY(1):NEXT 
FOR 1=4 TO 7:D$(1)="":DX(1)=20:CX(1)=20:0Y(1)=4+1:DY(1)=4+1:NEXT 
¿DX(1)=4:CX(1)=16:DY(1)=13:CY(1)=13 















D$(1)=B$(4)+" 
Y=17:X=3:FORI=9T020: D$(1)="": IFX>26THENX=3: Y=Y+1 
DX(1)=X2CX(1)=X:DY(1)=Y:CY(1)=Y 


X=X+11: NEXTI 

DS (9)=BS(5)+":":DX(9)=4:DY(9)=15 

FORI=1T020: TP (1)=3:LC(1)=10:ND(1)=0:NEXTI 

C=13: 0PZ=3: NUC=20: GOSUB2000: GOSUB3000 
IFFS=6THENS200ELSE IFFS=7THENSOOO 

=0: FORI=1T04: FORJ=1T0S 

TTS(TT, 1) =TTS (TT, 1)+B$(J+A) :NEXTJ: A=A+5:NEXTI 
FORI=1T0S:TT$ (TT, 1)=TT$ (TT, 1)+51$(J) : NEXTJ 
CLS: :¿Y=10:GOSUB 11000:PRINT "OTRA LECCION ? (S a N)” 
A$=INKEY$: IF A$="S" OR A$="s" THEN NEXT TT:GOTO 5300 
IF A$<>"n" AND A$<>"N" THEN 5270 
GOTO 5320 











5300 CLS:X=3:Y=9:60SUB 11000:PRINT"se ha alcanzado el numero maximo ":X=8:Y=12:GOSUB 11000:PRINT 
“de lecciones previstas ("¿M3:")":PLAY BP$+BP$:FOR I=1 TO 3000:NEXT:TT=TT-1 

5320 A$=STR$(TT) 

5330 IFLEN(A$) =2THENA$="0"+RIGHTS (AS, 1) ELSEAS=RIGHTS (A$, 2) 

5340 TITS$=A$+HMID$ (TITS, 3,20) 






5700 REM 
5703 REM ESCRITURA FICHEROS 
5705 REM 
5710 CLS:X=7: 60SUB11000:PRINT"Posicionar la cinta datos":X=10:Y=10:GOSUB 11000:PRINT"y apret 


ar REC y PLAY 15:GOSUB 11000:PRINT"despues pulsar una tecla." 
5715 1F INKEY$="" THEN 5715 

5718 CLS:X=13: Y=12:G0SUB 11000:PRINT"E SPERAR" 
5720 A$="":OPEN"CAS: az "FOR OUTPUT AS 41 

5725 FORI=1T06:PRINT +1,A$:NEXTI:CLOSE41: REM espacio cinta 
5730 OPEN"CAS: NOMBRE"FOR OUTPUT AS +1 

5750 PRINT 41,TITS 

57560 CLOSE 41 

5770 OPEN"CAS: DATOS"FOR OUTPUT AS 41 

5780 FOR I=1 TO M3 

5790 FOR J=1 TO S 

5795 TT$(1,3)="-"+TT$11,J) 

5800 PRINT $1,TT$(1,J):NEXTJ 

5810 FOR J=1 TO 4 

5820 PRINT 41,SS$(1,J):NEXTJ, 1 

5825 CLOSER 

5830 CLS:X=12:Y=10:GOSUB 11000:PLAY BP$+BP$:PRINT "FIN PROGRAMA" 
5840 END 

7000: REN ———______ => 

7010 REM LECTURA DE LOS DATOS 

7020 REM === 

7030 FOR I=1 TO NUC 

7040 READ D$(1) 

7050 NEXT 1 

7050 FOR I = 1 TO NUC 

7070 READ TP(1),LC(1),ND(1),DX(1),CX(1),CY(1) 

7100 DY(I)=CY(1) 

7110 NEXT 1 

7120 RETURN 

10000 REM ---—-- 

10010 REM DATOS 

10020 REM ----—— 

10030 DATA "GEOGRAFIA (generacion) " 

10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 
10100 DATA "Titulo", "Clave" 

10110 DATA 3,10,0,6,15,9 

10120 DATA 3,10,0,6,15,12 

10200 DATA 1,2,3,4,5 

10210 DATA 4,10,0,13,15,8 

10220 DATA 3,10,0.13.15.10 

10230 DATA 3,10,0,13,15,12 

10240 DATA 3,10,0,13,15,14 

10250 DATA 3,10,0,13,15,16 

A 

11010 REM POSICIONA CURSOR 

LLORA 

11030 LOCATE X, Y 

11040 RETURN 

13000 REM ----- 

13010 REM AYUDA 

13020 REM ----- 

13050 LOCATE 0,22 

13055 PRINT "AYUDA (barra espaciadora para continuar)"; 
13060 GOSUB 13400 

13110 PRINT "FLECHAS: mueve en las 4 direcciones 7] 
13120 GOSUB 13400 

13130 PRINT "RETURN: alinea y convalida introduccion "; 
13140 GOSUB 13500 


13150 PRINT "Fi: anula y recomienza el programa =$ 
13160 GOSUB 13400 
13170 PRINT "F2: anula toda la introduccion Ss 
13180 GOSUB 13400 
13190 PRINT "F3: borra un caracter eS 
13200 GOSUB 13400 
13210 PRINT "F4: permite la insercion de espacios “ 
13220 GOSUB 13600 
13222 PRINT"FS: graba toda la introduccion eS 
13224 GOSUB13400 
13230 PRINT " - CTRL Y (AYUDA) "; 


13300 RETURN 


13600 AS=INKEYS: IF A$= "" THEN 13400 

13605 IF A$<> CHR$(32) THEN 13400 

13610 LOCATE 0,22 

13620 RETURN 

15000 RENA A AA 

15003 REM INTRODUCCION DIBUJO 

LORENA AAA AAA 2ÉÁ E 

15030 CLS:COLOR4,15 

15040 X=0:Y=0:GOSUB 11000:FPRINT H1$ 

15050 X=13:Y=2:GOSUB 11000:PRINT"1111111":X=4:Y=3:GOSUB 11000:PRINT"1234557890123454" 
15060 =4:GOSUB 11000: PRINTCHR$ (1) ;CHR$ (2458) ¿LEFT$(0$, 32) ¿CHR$ (1) ¿ CHR$ (2H59) 

15070 X=0:A=0:FOR Y=5 TO 20:A=0+1:A$=STR$(A) :GOSUB 11000:PRINT SPACES (3-LEN(A$));A$;" |"; SPACES (1 
6)3"|"3:NEXT Y: X=3: GOSUB 11000: PRINTCHR$ (1) ; CHR$ (LHSA) ¿LEFTS$(0$, 32) ; CHR$ (1) ¿CHR$(LHSB) ; 
15073 :X=24:Y=7:GOSUB11000:PRINT"*E* enciende":Y=8:GOSUB11000:PRINT"*A* apaga"; 

15080 PLAYBP$: X=24: Y=10:G0SUB11000:PRINT"Usa las flechas";:Y=11:G0SUB11000:PRINT"para desplazar" 
3: Y=12:GOSUB11000:PRINT"el cursor. ";:Y=15:GOSUB11000:PRINT"FS confirma." 

15085 X=6:Y=23:GOSUB 11000:PRINT"Leccion n."zTT; 

15090 O=6:4W=9 

15100 A$=INKEYS 

15110 IF A$<>"" THEN 15150 

15120 LOCATEO, W, 1: FORT=1T030:NEXT 

15130 LOCATEO, W, 0: FORT=1T030: NEXT 

15140 GOTO15100 

15150 IF A$=CHR$(28) THEN O=0+1:1F 0>19 THEN 0O=19 

15160 IF A$=CHR$(29) THEN O=0-1:1F 0<4 THEN Q=4 

15170 IF A$=CHR$(30) THEN W=W-1: IF W<S THEN W=5 

15180 IF A$=CHR$(31) THEN W=W+1: IF W>20 THEN W=20 

15190 IF A$="e" OR A$="E" THEN LOCATEO,W:PRINT"N" 

15200 IF A$="a" OR A$="A" THEN LOCATEO,W:PRINT" " 

15210 IF A$=CHR$(20) THEN 15225 

15220 GOTO 15100 

15225 X=24:FODR Y=7 TO 13:GOSUB 11000:PRINT SPACE$(17):NEXT Y 

15230 PLAYBP$: X=24: Y=10:GOSUB11000:PRINT"Pulsar una tecla";:Y=11:GOSUB 11000:PRINT"para elegir"; 
¿Y=12:G0SUB 11000:PRINT"el color ";:Y=13:GOSUB11000:FRINT"de la figura. ":Y=15:GOSUB 11000:PRINT 
"FS CONFIRMA. " 

15235 A=4 

15240 A$=INKEY$: IFA$=""THEN15240 

15250 IF A$=CHR$(20) THEN X=6:Y=23:GOSUB 11000:PRINT"E S PER A R";:PLAYBF$:GOTO 15300 
15260 A=A+1: IFA>14THENA=1 

15270 COLOR A 

15280 GOTO 15240 

15300 FP=203:R=1:G0SUB15500 

15310 PP=523:R=2: G0SUB15500 

15320 PP=211:R=3: GOSUB15500 

15340 PP=531:R=4: GOSUB15500 

15350 FOR I=1T0 4 

15360 SS$(TT, 1)=S$(1)+STR$(A) 

15370 NEXT 1 

15400 RETURN 

15500 REM 

15510 K=0:S$(R)="":1=0 

15520 FOR W=0 TO 1:P=PP+4kW 

15530 FOR 2=1 TO 8 

15540 FOR J=7 TO 1 STEP-2: I=1+1 

15550 IF VPEEK(P+1)=219 THEN K=K+2"J+2"(J-1) 

15560 NEXT J:S$="" 

15570 IF K<10 THEN S$=S$+"00"+RIGHTS (STR$(K),1) ELSE IF K<100 THEN S$=S$+"0"+RIGHTS(STR$(K),2) E 
LSE S$=S$+RIGHTS(STR$(K),3) 

15580 S$ (R)=S$ (R)+5$+S$ 

15590 P=P+40:K=0: 1=0 

15594 NEXT Z,W 

15600 RETURN 





Geografía, Uso 


AREA 
20 REMGEOGRAFIA 
30 REM MEaSTa 

35 REM Version MSX 
A pd A 


50 MAXFILES=2:CLEAR14000: COLOR4,15.7 

60 KEY OFF:KEY 5, CHR$(20) 

70 M3=18:DIM TT$(M3,5),SS$(M3,4),B$(20),XR (20), YR(20) ,NE (20) 
72 EM$="DAL60ER1GER1GERSACECCCCCO" 

73  BB$="06L20EE-EE-EOSBOS6DCOSAAAAA" 

80 BP$="0DS5L16CDEFGABOSC" 

85 A$="W":FOR I=1 TO 32:0$=0$+A$: NEXT 

87 UR$=" E.G.S. Ediciones Forum. S.A." 





90  CUR$=0$+UR$+0$ 

200 REM — pS 

203 REMM A I N 

205 REM_———-——-- 

210 SCREEN2, 3 

220 OPEN"grp: "FOROUTPUTAS+41 

230 GOSUB 1100:PLAYBB$ 

240 GOSUB 1500 

250 GOSUB 8000:1F ER=1 THEN PLAYBM$:GOTO 240 
255 GOSUB 14000 

260 GOSUB 14000 

265 GOSUB 15000:GOTO 240 

300 COLOR15,2,6:CLS:LINE (20,20)-í235,171),1,BF:LINE(40,40)-(215,151),11,BF:LINE(60,60)-(195, 131) 
,4,BF 

310 PEET(100,85):PRINTH1,"F 1 N" 

330 PSET(90,110):PRINTH1, "PROGRAMA":PLAY BB$+BP$ 
350 IF INKEY$="" THEN 350 

360 CLOSE: SCREEN1 : COLOR10, 6, 10: END 

400. REN. ———-= 

603 REM ESPERAR 

$05 REM === 

610 COLOR12, 15:CLS: PRESET (55, 90) 

620 PRINTH, "ESPERAR" 

630 RETURN 

SO RENA AAA e 

653 REM IMPRIME cabecera 

435 REM ——— amas 

660 COLOR2:PRESET (0, 0) :PRINTH1,CUR$; 

670 RETURN 

1100 REM _-——_—====== 

1103 REMINICIO 

1105 REM -==—-====== 

1120 GOSUB 650 

1130 COLOR 1 

1140 LINE (40,40)-(208,56),11,BF 

1150 LINE (39,39)-(209,57),1,B 

1160 PRESET(48,46),11:COLOR1:PRINTH1,"GEODGRAF IA"; 
1180 COLOR6: PRESET (30,90) :PRINTH1, "Rebobina la cinta datos"; 
1190 PRESET(70,110):PRINTH1,"y aprieta "¡:COLOR1:PRINTH1, "PLAY"; 
1200 COLOR4:PRESET (27,150) :PRINTH1, "Si estas preparado,pulsa una tecla";:PLAYBP$ 
1210 IFINKEY$=""THEN1210 

1220 GOSUB £600:FOR 1=1 TO 1000:NEXT 

1230 OPEN"CAS: NOMBRE"FOR INPUT ASH2 

1240 INPUTH2, TITS 

1250 CLOSE 42: KS=VAL (LEFTS (TITS, 2)) 

1260 OPEN"CAS: DATOS"FOR INPUT ASH2 

1270 FOR I=1 TO M3 

1280 FOR J=1 TO 5: INPUTH2,TT$(1,J) 

1285 TT$(1,J)=RIGHT$(TT$(1,J),50):NEXTJ 

1290 FOR J=1 TO 4: INPUTR2,SS$(1,J):NEXTJ, 1 

1300 CLOSER2: RETURN 









1500 REM -=========--- 
1503 REM PRIMERA MASCARA 
1505 REM -— — 
1508 COLOR, 1 GOSUB 450 


1510 COLOR6:PRESET (15,50) :PRINTH1,"El tema de las lecciones es: ":COLOR1:FPRESET (88,70) :PRINTH1,MI 
D$(TIT$, 13,10) 

1520 COLOR6: PRESET (23, 100) :PRINTH1, "Las preguntas versaran sobre: " 

1525 COLOR1:PRESET (88, 120) :PRINTH1,MID$(TIT$,3,10) 

1600 COLORé: PRESET(SO, 160) ¿PRINTH1, "CUAL ? ____ » 

16505 COLOR7:PRESET(30,180):PRINTH1, "escribe FIN para salir" 

1610 CV$="":FOR I=1 TO 10:A=98+(118) 

1620 A$=INKEY$: IFA$=""THEN1620 

1£522 IFAS<>CHR$ (29) THEN1625ELSEI=1-2: IFI<OTHENI=0 

1623 LL=LEN(CV$): IFLL=OTHEN1610ELSECV$=LEFTS (CV$,LL-1) : COLOR15: PRESET(A-8, 160) :PRINTH1, "MB": GOTO1 
635 

1625 IFA$=CHR$ (13) THEN1540 

1630 COLOR15:PRESET(A, 160): PRINTH 1, "8": COLOR2: PRESET (A, 150) : PRINTH1,A$: CV$=CV$+A$ 
16335 NEXTI 

1640 CV$=CV$+SPACES$ (10-LEN(CV$)) 

1645 1F LEFTS(CV$,3)="FIN" THEN RETURN 300 

1650 RETURN 

2000. REN: 

2003 REM GENERACION SPRITES 

DOSREN A 

2008 GOSUB£00 

2015 S$(1)=""2S$(2)=""25$(3)=""29$(4)="" 

2020 FOR I=1 TO 4:P1=1:P2=3 

2030 FOR J=1 TO 32 





2040 S$(1)=S$ (1) +CHR$ (VAL (MIDS (SS$(K1,1),P1,P2))):P1=P1+P2 
2050 NEXTJ,I 

2060 FOR I=1 TO 4 

2070 SPRITES (1)=S$(1) 

2080 NEXTI 

2090 C=VAL (RIGHTS (SS$(K1,1),2)) 

2100 RETURN 

4000 REM. ---—-=—-=-=== 

4003 REM DATA ENTRY 

4005. ¡REM: ==>======= 

4010 A=146: 00:V=0 

4020 I$=INKEY$: FORL=1T060: NEXT 

4030 IFI$=CHR$ (20) THEN4100 

"THENCOLOR15: PRESET (A, B):PRINTH1,"x 








¿FOR L=1 TO 60:NEXT:COLOR4:PRESET(A, B) :PRINTH 1," 
4050 COLOR15:PRESET(A, B) :PRINTH1, 15; :B=B+20: V=V+1:BS (V)=1$:PLAY"OSL£64C" 

4060 IFV=STHENPLAY"DSL54DE":G0TD4010ELSEGOTOA020 

4100 P1=35:P2=2: FORI=1T0S 

4110 V=VAL (MID$ (LES (NL),P1,P2)) 

4120 IF((B$(1)="S"ORB$ (1)="s")ANDV=1)0R ((B$(1)="N"ORB$(1)="n")AND V=0) THENP1=P1+18: NEXTI: SW=1:FO 
RI=1T0S:B$(1)="":NEXT1:GOTO4140 

4130 PLAYBM$: COLOR1:PRESET (95,45) :PRINTAH 1, "ERROR": LINE(90,55)-(144,55) :SW=0:GOTO 4150 
4140 COLORá: PRESET (83,20) :PRINTH1."B R A V 0"::LINE(83,30)-(151,30) : COLOR12: PRESET (100, 40) :PRINT 
$1, "has";:PSET (87,55), 15:PRINTH1, "superado"; :PRESET(83,70):PRINTH1, "la lec. "¡RIGHTS (STR$(NL),2); 
:PLAYBBS 

4150 B=47:A=85:D=117:E=15:F=85:6=117:CC=1 

4160 FOR I=1 TO 40 

4170 A=A-2:D=D+2:B=B+2:F=F-1:G=G+1 

4180 PUT SPRITE 1, (A,E),CC,1 

4190 PUT SPRITE 2, (F,B),CC,2 

4200 PUT SPRITE 3, (D,E),CC,3 

4210 PUT SPRITE 4, (G,B),CC,4 

4220 IFI>38THENE=209:B=207 

4225 IFCC>14THENCC=1ELSECC=CC+1 

4230 NEXTI 

4250 FOR I=1 TO 1000:NEXT 

4300 COLOR15, 4: RETURN 

000 REM: === === ======== 

8003 REM BUSCA CAMPO CLAVE 

BO0Í REM. === 

8010 FOR I=1 TO KS 

8020 AA$=TT$(1,1) 

8030 C$=LEFT$(AA$, 10) 

8040 IF CV$=C$ THEN ER=0:K1=1:GOTO 8080 

8050 NEXTI 

8060 ER=1 

8080 RETURN 

14000 REM oon=amcmmmme 

14003 REM LECTURA DATOS 

14005 REM ==-=======--- 

14010 A=0:FORI=1T04:N=1 

14020 FORJ=1T05:4=A+1 

14030 B$(A)=MID$(TT$(K1,1),N,10):N=N+10 

14040 NEXTJ, I:N=1 

14050 FORJ=1T0S:D$ (J)=MID$ (TT$(K1,1),N,10):N=N+10 

14060 NEXTJ 

14070 RETURN 

15000 REM > 

15003 REM INTRODUCCION RESPUESTAS 

159003 REM 

15007 FOR I=1 TO 20:NE(1)=0:NEXT 

15010 I=2:KK=0:KE=0:KA=0 

15020 IFXR(1)=0THEN15220 

15030 C$="":X=XR(1):Y=YR(1) 

15035 FOR JJ=1 TO 10 

15040 A$=INKEYS: IF A$="" THEN COLOR1:PRESET(X, Y) :PRINTH1,"*":FOR JO=1 TO 60:NEXT:COLOR7: PRESET (X 
Y): PRINTH1, "NH": FOR JO=1 TO 60:NEXT:GOTO 15040 

15045 IFA$=CHR$ (13) ANDC$=""THEN15030 

15050 IFA$=CHR$ (13) THEN15080 

15055 IFA$=CHR$ (29) THENX=X-8: JJ=JJ-2ELSE15070 

15060 IFJJ<OORLEN(C$)=0THEN1SO3OELSECOLOR7: PRESET(X, Y) :PRINTH1, "8" 

15065 C$=LEFTS (C$,LEN(C$)-1):NEXTJIJ 

15070 C$=C$+A$:COLOR7:PRESET(X. Y) :PRINTH1, "NM"; : COLOR1:PRESET(X, Y) :PRINTH1, AS; :X=X+8: NEXTIJ 
15080 COLOR7:PRESET(X, Y) :PRINTH1, STRINGS (10-LEN(C$), ) :C$=C$+SPACES (10-LEN(C$)) 

15090 IF LEFT$(C$,5)="AYUDA"THEN1S250 

15100 IFI<>20NDI<>8THEN15140 

15110 IFB$(1)=C$THENI=1+1:KK=KK+1: 60T015020 

15120 PRESET(XR (1), YR(D)):PRINTH1, STRINGS (10, "MB"? : COLOR4: PRESET(XR(1), YR(1)):PRINTH1,TR$: PLAYBM$ 
:¿KE=KE+1:G0T015030 











15140 
15150 
15160 
15170 
15180 
15185 
15190 
15200 
15210 
15220 
15230 
15240 
15250 
15260 
) 

15270 
15280 
15290 
15300 
15320 
15325 
15330 
15340 
15350 
15360 


IFI<8THENN1=3: NE=7ELSEN1=9: NE=20 

FOR L=N1 TO NE 

IF B$(L)=C$ THEN 15180 

NEXT L:GOTO 15120 

IF NE(N1)=L THEN 15120 

IF B$(L)=SPACE$(10) THEN 15120 

IF NE(N1)=0 THEN 15210 

IF Ni<ANE THEN Ni=N1+1:GOTO 15180 ELSE STOP 
NE (N1)=L : KK=KK+1 

IF I=20 THEN 15500 

I=1+1:G0T015020 

REM ayuda 

IF 1<>2 AND I<>8 THEN 15280 
COLOR7:PRESET(XR (1), YR(1)):PRINTH 1, STRINGS (10, "B]"") : COLOR1:PRESET(XR (1), YR(1)):PRINTH 1, BS (1 


KA=KA+1: IF I=20 THEN 15500 ELSE I=1+1:GOTO 15020 

IF 1<8 THEN Ni=3:NE=7 ELSE N1=9:NE=20 

FOR N=N1 TO NE 

IF NE(N)<>0 THEN NEXTN:STOP 

IS=N1 

J=N1 

IF NE(J)=IS OR LEFT$(B$(18),3)="— " THEN IS=IS+1:GOTO 15325 

IF J<NE THEN J=J+1:GOTO 15330 

NE (N)=IS 

COLOR7: PRESET(XR (1), YR(1)) :PRINTH1,STRINGS (10, "M]") : COLOR1:PRESET(XR (1), YR(1)):PRINTH1,BS$(1 


S):G0TO15270 


15500 
15505 
15507 
15508 
15510 
15520 
15530 
15540 
15550 
15560 
15570 
15580 
15590 
15600 
15610 
15620 
15630 
15700 
15710 
15720 
15730 
15740 
16000 
16003 
16005 
16007 
16010 
16020 
16030 
16040 
16050 
16055 
16060 
16070 
16075 
16080 
15090 
16100 
16110 
16115 
16117 
16120 
16125 
16127 
16130 
16140 
16150 
16150 
16170 
16180 
16200 
30200 
30203 


REM crm 

REM RESULTADOS 

REM A 

GOSUB 15700: PLAYBB$ 

B=52:A=10:D=42:E=20:F=10:6=42: CC=1 

FORI=1T040 

A=A+2:D=D+2: B=B+2: G=G+1 

PUT SPRITE 1,(A,E),CC,1 

PUT SPRITE 2, (F,B),CC,2 

PUT SPRITE 3, (D,E),CC,3 

PUT SPRITE 4, (G,B),CC,4 

IFI>38BTHENE=209: B=207 

IFCC>14THENCO=1ELSECC=CC+1 

NEXTI 

COLOR1S: PRESET(12,180):PRINTH1, "PULSA UNA TECLA PARA CONTINUAR" 
IFINKEY$=""THEN15420 

RETURN 

COLOR1:PRESET(10,24),15:FRINTH1, "RESPUEST. " 

COLOR12: PRESET(10, 40), 15:PRINTH1, "CORREC" 3 KK 

COLORé: PRESET(10,50),15:PRINTH1, "ERRON. " 
COLOR1:PRESET(10,75),15:PRINTH1, "AYUDAS" 
RETURN 

REM === —- 

REM PRESENTA MASCARA 

REM 

FOR I=1 TO 20:XR(1)=0: YR(1)=0:NEXT 
GOSUB 30200 

XC=85: YS=30: X=XC+88: TR$=STRING$ (10, "_"):WB=0 

FOR I=1 TO 3:Y=YS+16k (1-1) 

IF LEFTS(B$(1),3)="— " THEN W8=1 

PRESET(XC, Y) :PRINTH1,D$(1)+"z":PRESET(X, Y) 

IF W8=1 THEN W8=0:GOTO 16075 

IF I=1 THEN COLOR1:PRINTH1,B$(1):COLOR4 ELSE PRINTH,TR$ 
XR (1) =X: YR (1) =Y 

NEXT 

FOR 1=4 TO 7:Y=YS+B1 (1+1) 

IF LEFTS(B$(1),3)="— " THEN 16115 
PRESET(X, Y) : PRINTH1,TR$ 

XR(1)=X: YR (1) =Y 

NEXT 

FOR 1=4 TO 5 
PRESET(XC-75,110+(1-4) 816) :PRINTH1,DS(I)+"2" 

NEXT 

IF LEFTS(B$(8),3)=" — " THEN 16140 

XR(8)=98: YR (8)=110:PRESET(XR(8), YR(8)):PRINTH1,TRS 
Y=142:X=1:FOR 1=9 TO 20:1F X>200 THEN X=1:Y=Y+8 

IF LEFTS(B$(1),3)="— " THEN 16180 
PRESET(X, Y): PRINTH1,TR$ 

XR(1)=X3 YR (1) =Y 

X=X+88: NEXT 






SOLOS RENA 

30210 GOSUB 2000: COLOR1S, 7: CLS 

30215 PRESET(1,1):PRINTH1,UR$; : COLORA 
30220 LINE (5, 15)-(79,89),15,BF 

30250 PUT SPRITE 1, (10,20),C,1 

30260 FUT SPRITE2, (10,52),0,2 

30270 PUT SPRITE 3, (42,20),C,3 

30280 PUT SPRITE 4, (42,52),C0,4 

30300 RETURN z 





RELACION DE LAS VARIABLES - PHILIPS VG 8010 


Generación 


BS(«) = matriz de los buffers (1 por campo 
de introducción) 

LC(x) =longitud del campo de introduc- 
ción 

ND(+) = Número de decimales en el campo 
de introducción 


CX(+) = coordenadas en el vídeo del cam- 


cm) poo de introducción 

DX(«) =coordenadas en el vídeo de la 

DY («) descripción 

TF(+) = matriz numérica con los códigos 
ASCII de las teclas de comando 

DS(x) = descripciones en la máscara ví- 
deo 

BL$ = blank 

PD$ = punto decimal 

AS$ = Carácter "—”; identifica los campos 
de introducción alfanuméricos 

NS$ =carácter “sf”; identifica los cam- 
pos de introducción numéricos 

NUC =número de campos de introduc- 
ción en la máscara vídeo activada 

M3 = máximo número de lecciones 

SS$ 


(M3,4) = datos de los sprites 


TTS$ 
(M3,5) 
TITS 


BP$ 


Uso 


M3 
SS$ 
(M3,4) 
TTS 
(M3,5) 
TITS 


XR(x) 
YR(«) 


NE(s) 
BM$ 


BP$ 
BB$ 


| 


A e SS E A A A A A ES 
EEE ES AAA A A A A A E E TO AIDA 
E E IS O TN E A ON TS O A IA 
ESTE 7 PS E A TS LT E A E RA A A A 
ERES AA TDS IIA E LLE VE CM E AAA 
E E A O A A A A 
VEAS == IRE A a a A A a A ER E A E 
A A A A A A AAA AAA A A AA A A A] 


= datos de las lecciones 


= puntero al número lecciones, cla- 
ve, título 
= sonido 


= máximo número de lecciones 


= datos de los sprites 


= datos de las lecciones 


= puntero al número lecciones, cla- 
ve, título 

= número respuestas correctas 

= número ayudas 

= número respuestas erróneas 

= cadena de 10 guiones 

= posiciona principio impresión res- 
puestas 


= contiene el número de respuestas 
ya presentadas 


= contienen sonidos 





La versión MSX está orientada al empleo con la unidad 
de cinta. La foto, como las siguientes, si bien 
corresponde a este sistema, también puede utilizarse 
como guía para las versiones en disco de las otras 
máquinas. 

Además, muchas funciones son idénticas, desde el 
punto de vista del usuario, a las de la correspondiente 
versión en disco: por ejemplo, la introducción de los 
datos en la fase de generación es completamente 
análoga a la de las versiones en disco. 


Terminada la introducción, sigue la misma pregunta de 
la versión en disco. 


La foto muestra una de las principales diferencias con 
la versión en disco. Efectivamente, en este caso es 
necesario volver a posicionar la cinta al principio y 
preparar el grabador. En cambio, para las versiones 
en disco, los datos son transferidos sin ninguna 
intervención del usuario. 


También en la fase de utilización, la versión en cinta es 
análoga, para el usuario, a la de disco, pero como 
desarrollo del programa es completamente diferente. 
La foto muestra la fase inicial del desarrollo del test 
preparado como se ha indicado en las fotos anteriores. 


Ediciones Forum, 


Rebobina la cinta datos 
y aprieta PLAY 





S.A 
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La foto muestra la fase de selección del tema. En este 
caso, el título es AMERICA y se pide la pregunta sobre 
PERU en el ámbito de las naciones. 


El tema de las lecciones es: 
AMERICA 


Las preguntas versaran sobre: 
NACION 


CUAL. ? PERU 


exoríbe FIN Para £alír 


La presentación y el desarrollo del test son idénticos a 
los de las otras versiones. La pregunta está completada 
con un dibujo, obtenido con los sprites. 


Ediciones Forum, 


La foto muestra el efecto de la petición de ayuda 
(activada tecleando la palabra AYUDA) en el campo 
SUPERFICIE. El sistema intercepta el comando, sale de 
la lógica de introducción de respuestas, y presenta el 
contenido del buffer correspondiente a la posición 
actual del cursor, o sea la respuesta correcta. 


Al final del desarrollo se presenta la única tabla de 
resumen que muestra los resultados obtenidos. En esta 
versión, la tabla aparece en la misma máscara de 
desarrollo, en el lugar del gráfico. 


PULSA UNA TECLA PARA AS 
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Extensiones y modificaciones 


Este procedimiento, basado esencialmente en un diá- 
logo, puede resultar demasiado «estático» para las 
personas jóvenes. 

La presencia de un dibujo en la misma pantalla vídeo 
en la que aparecen las preguntas puede constituir un 
motivo de interés a inducir al niño a que utilice el pro- 
grama, aunque aún sería más estimulante la presencia 
de figuras en movimiento. 

La implantación que se propone permite generar un 
programa que simula un «viaje» a través de una zona 
geográfica y plantea preguntas de vez en cuando. 
Para finalizar la ilustración con un caso concreto, su- 
pondremos que se desean comprobar los conoci- 
mientos sobre las capitales europeas. 

Con el programa anterior puede construirse un dibujo 
que muestre el «esquema» de Europa y asociarlo a 
una serie de preguntas, como por ejemplo los habitan- 
tes, los recursos y las capitales de cada estado. 

Las preguntas y las respuestas se gestionan con una 
data entry, por lo que el niño se encuentra dialogando 
a través de un coloquio poco atractivo. 

Las mismas preguntas pueden plantearse de una ma- 
nera más dinámica construyendo un pequeño mapa 
geográfico de mayores dimensiones y planteando las 
preguntas mediante un símbolo que se desplace por 
el mapa y se detenga en la posición correspondiente a 
cada capital, invitando así a introducir el nombre. 
Utilizando esta nueva estructura, la pantalla vídeo ya 
no está ocupada por las leyendas de la data entry, por 
lo que puede construirse un dibujo mucho mayor que 
permita identificar claramente la posición del símbolo 
que se desplaza. 

En la página 2276 se ha representado el diagrama de 
principio. Por motivos de sencillez, el programa no es 
parametrizado, por lo que todos los valores (coordena- 
das del mapa, respuestas, etc.) deben asignarse, por 
ejemplo, con una serie de DATA. 

Las magnitudes necesarias son: 


m Coordenadas de los puntos del mapa 

= Coordenadas de los puntos correspondientes a las 
preguntas (en el ejemplo de las capitales, están en 
el mapa) 

m Matriz de respuestas (nombre de las capitales) 


El mapa puede generarse utilizando una de las subru- 
tinas gráficas ya presentadas, por lo que las funciones 
a realizar se reducirán a unir la serie de puntos que 
esquematizan el contorno, o a la utilización de un cier- 
to número de sprites unidos entre sí (subdividiendo el 
mapa en rectángulos, cada uno correspondiente a un 
sprite). 

Por tanto, en las DATA deberán escribirse las coorde- 
nadas de los puntos o los valores de los sprites. En el 


primer caso, la presentación del mapa consiste en unir 
los distintos puntos con segmentos y, en el segundo, 
sólo es necesario el posicionado de los sprites. Des- 
pués hay que definir las posiciones de los puntos (ca- 
pitales) objeto de las preguntas. En el caso de gráficos 
de alta resolución, basta con presentar estos puntos 
con un símbolo diferente, mientras que para los spri- 
tes, el punto debe incluirse en la definición y, por tanto, 
determinarse a priori. 

La primera solución es más difícil desde el punto de 
vista de la programación, pero permite volver a utilizar 
el dibujo de base, puesto que para modificar las pre- 
guntas sólo hay que variar las coordenadas. La segun- 
da, que no emplea alta resolución, es más sencilla, 
pero en caso de modificación de las preguntas requie- 
re la redefinición de los sprites. 

Finalmente, obsérvese que la elección entre una y otra 
solución depende del tipo de máquina empleado. 
Una vez presentado el mapa completado con los sím- 
bolos de identificación de las preguntas, debe activar- 
se el mecanismo de movimiento. Esta parte del pro- 
grama se reduce a un bucle que posiciona el símbolo 
y espera la respuesta. La comprobación de su exacti- 
tud es inmediata por comparación del elemento «l» de 
la matriz B$(N), que contiene las respuestas. 

En caso de error se tiene la indicación (por ejemplo 
utilizando el módulo musical) y, si no, se tiene otro po- 
sicionado para una nueva pregunta. 

La implantación ilustrada implica importantes modifi- 
caciones en todos los programas del procedimiento, 
hasta el punto de que es conveniente volverlos a escri- 
bir. Por tanto, debe entenderse como una propuesta 
para la preparación de nuevos programas. Los pre- 
sentados pueden utilizarse como guía y para sacar de 
ellos algunas subrutinas que, con las adecuadas mo- 
dificaciones, se adapten a la nueva estructura. 

Una segunda implantación, menos sustancial, puede 
consistir en la creación de un directorio para la memo- 
rización de las lecciones superadas. 

El procedimiento, en su versión actual, no conserva 
memoria de qué lecciones ha superado cada usuario 
y con qué resultados. Esta función es necesaria si se 
desea utilizar los programas con fines didácticos. 
Las modificaciones a realizar consisten en la creación 
de un fichero para cada usuario previsto, con un nú- 
mero de registros igual a las lecciones que constituyen 
el curso. Al final de cada lección, la máscara vídeo 
que resume el resultado deberá memorizarse en el re- 
gistro correspondiente, obteniendo así un archivo his- 
tórico del desarrollo del curso. Esta estructura requiere 
además la numeración progresiva de las lecciones, lo 
cual puede obtenerse fácilmente insertando el número 
progresivo de lección en el mismo campo de la pala- 
bra clave. 
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DIAGRAMA DE PRINCIPIO DE LA IMPLANTACION 
AL PROCEDIMIENTO 


En el programa deben asignarse 

los valores: 

N = Número de las preguntas 

B$(N) =Matriz que contiene las Con DATA se leen los 
respuestas valores de: 


= Coordenadas de los 
puntos correspondientes N, BS(N), X(N), Y(N) y las 
a cada pregunta coordenadas del mapa o de 
los sprites 


El mapa se presenta en 
pantalla poniendo de 
manifiesto los puntos X(N) e 
Y(N) 


Principio del bucle para el uso 
del programa 


En el punto de coordenadas 
X(N), Y(I) (el símbolo se 
emplea para la versión Apple) 


La respuesta se introduce 
en R$ 


Comprueba la respuesta 





2276 





Tests: lógica y leyes asociativas E . : 


HA 


Los tests se utilizan mucho para evaluar algunas ca- 
racterísticas nuestras. Existen varios tipos, cada uno 
orientado a un objetivo particular, aunque pueden re- 
ducirse a pocas lógicas fundamentales, fácilmente re- 
producibles con el ordenador. 

Los programas que se ilustran en esta parte permiten 
gestionar tres tipos distintos de tests, incluso con el 
uso de gráficos, y pueden emplearse bien como pasa- 
tiempo, bien para evaluar el aumento de la inteligencia 
de los niños. 

Como de costumbre, la estructura de los programas 
es completamente abierta, por lo que pueden aceptar 
eventuales modificaciones y, principalmente, una gran 
variedad de datos. Esto permite implantar muchos 
tests, cada uno con eventuales variantes, obteniendo 
así una gran «biblioteca» siempre disponible, gestio- 
nada por un «control» imparcial y rápido de las res- 
puestas. 

El uso de estos programas puede desarrollarse según 


Uso del programa 


Esta aplicación tiene una doble vertiente: el empleo 
requerido para la preparación de los tests, puesto que 
es el usuario el que debe idear y construir los tests, y la 
fase de solución, orientada a quien responde. 
Debido a esta doble funcionalidad, la aplicación está, 
como de costumbre, dividida en dos programas. El 
primero para la generación de los tests, y el segundo 
para la comprobación de las soluciones. 

Ambos pueden trabajar con 3 tipos de tests diferentes: 


am Tests con símbolos gráficos (sprites) 
"m Preguntas y respuestas con puntuación 
m Tests con atributos 


Tests con símbolos gráficos 


Uno de los tests propuestos con más frecuencia con- 
siste en presentar una serie de símbolos y pedir al 
usuario que la complete introduciendo el que falta. Es- 
tos programas, habitualmente uno de generación y 
otro de uso, permiten definir una serie de 5 figuras a 
presentar como preguntas y comprobar la respuesta 
comparándola con el elemento dado como solución. 
Naturalmente, no es necesario que la serie presentada 
contenga todos los 5 elementos posibles. 

Este procedimiento, desde el punto de vista de la pro- 
gramación, no tiene ninguna dificultad. Conviene utili- 
zar un fichero único que contenga una serie de pre- 
guntas: en los listados hay previstas 50, valor que no 


dos modalidades: introduciendo tests ya preparados o 
bien creándolos según las necesidades específicas. 
En particular, este segundo modo permite gestionar 
tests de carácter educativo: efectivamente, utilizando 
la versión «por atributos» (una de las tres previstas), el 
programa puede aplicarse a una disciplina cualquiera, 
comprendidas las materias didácticas. 

El procedimiento contiene tres programas, cada uno 
dedicado a un tipo de test particular. 

El primero presenta un cierto número de símbolos grá- 
ficos que, en su conjunto, constituyen una serie lógica. 
El desarrollo del test consiste en identificar entre varias 
figuras la que falta para completar la serie. 

El segundo está constituido por algunas preguntas 
con una puntuación asociada que depende de la res- 
puesta; durante su desarrollo, la máquina tiene en 
cuenta los puntos totalizados y emite un juicio. 

El tercero, más complejo, es del tipo «por atributos», y 
permite analizar la capacidad asociativa del usuario. 


constituye un límite porque pueden utilizarse más dis- 
kettes de datos, cada uno con un máximo de 50 tests. 
En el gráfico de abajo de la página 2286 se ha repre- 
sentado la estructura del fichero. Para identificar cada 
elemento de la serie de 5 (a completar) se ha utilizado 
el término «símbolo», pero en realidad también podría 
ser una palabra, una frase o un nombre. 

En la versión presentada, cada símbolo es un sprite y, 
por tanto, en el caso de letras o de números deben 
definirse de manera esquemática, o bien modificar el 
listado previendo más sprites para el mismo símbolo: 
de esta manera se dispone de espacio. 

Por ejemplo, cabe formar series con nombres de per- 
sonajes famosos, dejando el último como respuesta. 
La dificultad de este programa es la estructuración del 
test de manera correcta. Al formar la serie, el elemento 
que falta, o mejor dicho, que no se muestra, que cons- 
tituye la respuesta, debe ser único. Por tanto, la serie 
debe ser suficiente por sí misma, sin otras explicacio- 
nes, para ilustrar el tema de la pregunta. 

Este resultado es relativamente sencillo si se utilizan 
los símbolos sintéticos como números o dibujos, mien- 
tras que puede presentar dificultades o ambigúeda- 
des en los otros casos. 

Por ejemplo, presentando las series 8 10 y 14 16 18, es 
unívoca la elección del elemento que representa el va- 
lor 12, mientras que utilizando el programa en forma 
más general, por ejemplo con palabras como elemen- 
tos de la serie, la solución podría no ser unívoca. 
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Por tanto, en la construcción del test, en particular en 
su forma más generalizada, debe prestarse mucha 
atención a que la serie presentada no tenga más de 
un elemento común, porque en caso contrario, puede 
incurrirse en respuestas correctas incluso en el caso 
de que no estén previstas. 


Preguntas y respuestas con puntuación 


La estructura del test es la siguiente: la máquina pre- 
senta una pregunta y una serie de posibles respuestas 
(hasta 10): el usuario debe indicar su elección, en ba- 
se a la cual el sistema indicará una puntuación. Al final 
del test, la puntuación total obtenida (suma de las co- 
rrespondientes a cada pregunta) se compara con los 
valores obtenidos en una tabla de «diagnósticos» y se 
emite un juicio. Por tanto, en sustancia, se trata de ges- 
tionar los siguientes ficheros: 

m FP: fichero preguntas, que contiene el texto de las 
preguntas o, más en general, la ilustración del 
test. Cada pregunta está formada por un má- 
ximo de 20 líneas (registros) de 35 caracteres 
fichero de las respuestas, que debe tener tan- 
tos registros lógicos como los de FP. Cada re- 
gistro lógico contiene un máximo de 10 res- 
puestas, cada una con su propia puntuación, 
por lo que un registro físico está constituido 
por 10 registros físicos 

tabla de los totales, que contiene el «diagnós- 
tico» para un máximo de 10 gamas de pun- 
tuación total. 


m Fr: 


En la página 2290 se muestran la estructura de los fi- 
cheros y la lógica del programa. En el gráfico de la 
página 2291 se ha representado el diagrama, a nivel 
funcional, del programa de generación, y en el de la 
página 2292, el del programa de desarrollo. 

Este tipo de test difícilmente puede ser ideado por 
quien utiliza el programa, que en general está destina- 
do a identificar determinados aspectos del carácter, y 
las preguntas deben ser formuladas por especialistas 
del sector, así como las gamas de puntuación y los 
diagnósticos, que se obtienen de complejos procesos 
estadísticos. Por tanto, el uso más normal es como ar- 
chivo en el que se memorizan los tests extraídos de 
publicaciones especializadas. La utilidad del ordena- 
dor está principalmente en la facilidad de formar un 
archivo y en la imparcialidad de las respuestas. Mu- 
chas veces, el que realiza un test cae en la tentación 
de «echar una ojeada» a la solución y, por tanto, a 
quedar influido. Esta posibilidad es imposible en el or- 
denador. 


Tests con atributos 


Los programas anteriores están estructurados en fun- 
ción del tipo de test a presentar, no son generalizables 
y no permiten una gestión aleatoria de las preguntas. 
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Esto significa que, para un determinado test, las pre- 
guntas siempre serán las mismas y, así, las respues- 
tas siempre deberán corresponder a las respuestas 
predefinidas en la fase de generación. Esta estructura 
determina una rápida obsolescencia del test; después 
de haberlo utilizado algunas veces, el usuario conoce 
las soluciones o las puntuaciones, por lo que cesa to- 
do interés. En consecuencia, es necesario crear cons- 
tantemente tests nuevos. 

Este último tipo, por atributos, tiene en cambio una es- 
tructura «dinámica», en el sentido de que puede pre- 
sentar un elevado número de preguntas diferentes, no 
predefinidas. Por tanto, constituye un medio generali- 
zado, Útil tanto como distracción como para la ense- 
ñanza o la comprobación de la preparación en distin- 
tas disciplinas. 

La estructura de base del programa es una matriz divi- 
dida en líneas y columnas. 

En la tabla que sigue se ha representado un ejemplo 
en el que se examinan algunos animales a la luz de 3 
atributos: ser mamífero, carnívoro y salvaje. La estruc- 
tura de datos es la siguiente: 





Atributos 


A A 
1 


Elemento 





1 
Perro 1 
Canguro 0 

1 


Delfín 


1 








La pertenencia de un elemento a una clase que tiene 
un atributo se ha representado con el símbolo 1 en la 
casilla correspondiente. 

De esta manera puede utilizarse el test con entrada 
por línea, extrayendo uno o más elementos y pregun- 
tando cuáles son los elementos que poseen el atributo 
presentado. 

Con la tabla anterior, el primer modo consiste en ex- 
traer un nombre, por ejemplo Canguro, y preguntar 
cuáles de las aserciones, mamífero, carnívoro, salvaje, 
son ciertas. Para comprobar la exactitud de las res- 
puestas, éstas se comparan con las que hay conteni- 
das en la tabla. 

El otro modo consiste en presentar un cierto número 
de los elementos presentes, como por ejemplo Vaca, 
Canguro, Delfín, pidiendo cuáles satisfacen uno de los 
atributos, por ejemplo la columna c (salvaje). 

La extracción de los elementos puede ser aleatoria, 
así como la columna del atributo, por lo que, en este 
Caso, se tendrá una pregunta diferente cada vez que 
se utiliza el test. 

Naturalmente, la complejidad y la variedad de los 
cuestionarios dependen de la magnitud de la tabla de 
referencia: cuanto mayor sea el número de elementos 
y de atributos, tanto más complejo será el test. 

La estructura presentada acepta hasta 10 atributos di- 
ferentes, mientras que no hay límite en los elementos 


que pueden añadirse, incluso en tiempos sucesivos, al 
primer planteo del test. 

En la página 2294 se ha representado el diagrama 
que muestra la estructura de files utilizada. 

Sólo son necesarios dos ficheros: el primero contiene 
las explicaciones de los 10 atributos, por lo que sólo es 
una parte descriptiva utilizada para proporcionar las 
indicaciones necesarias para el desarrollo del test, 
"mientras que el segundo tiene tantos registros como 
elementos considerados, cada uno con el nombre del 
elemento y 10 bytes que pueden asumir el valor O o 1 
según esté o no presente el atributo. La tabla anterior 


Menú principal. En el C-64, el procedimiento Test 
utiliza seis programas diferentes para los tres tipos de 
tests previstos. Para comodidad del usuario se ha 
incluido un módulo de carga que permite seleccionar, 
cargar y enviar a ejecución el programa elegido. La 
selección se realiza introduciendo en la máscara 
presentada el número correspondiente a la función 
elegida. 


Test con puntuación: Generación. El usuario ha 
seleccionado la voz 1 del menú principal, la cual activa 
el programa para la generación del test con puntuación. 
En esta fase hay que proporcionar la sigla del test, 
constituida por dos caracteres (el usuario ha elegido el 
valor a1), y el número de preguntas previstas en el test 
(en este caso 2). 


Una vez completada la máscara anterior con los valores 
pedidos, el sistema pasa a la fase de introducción de 
datos. La primera parte prevé una máscara vídeo 
entera disponible para la pregunta. El espacio se ha 
dejado amplio para que pueda contener, además de la 
pregunta propiamente dicha, una breve presentación 
del test. 





daría lugar a un fichero con los siguientes 4 registros: 


Vaca 100: Registro 1 
Perro 110: Registro 2 
Canguro 00 1: Registro 3 
Delfín 11 1: Registro 4 


En las páginas 2295 y siguientes se han representado 
los diagramas de principio para la introducción de los 
datos y el uso del test. Estos diagramas son voluntaria- 
mente muy generales porque no difieren de los utiliza- 
dos en otras aplicaciones, excepto en la lógica utili- 
zada para la presentación de las preguntas. 


MA ATEOS 


S oo E 
id AS a Ai 04,14 3 
A ASA 
GENERACION TEST-PUMT 
ATM AAA LAS 
AL AO IAS CS 

RI AAA DANS 

ERACIOM TEST-SIMBOLOS 

MA A AA 

DE TAREA 


A A A 
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La siguiente fase consiste en la introducción de las 
respuestas asociadas a la pregunta, cada una con su PA 
propia puntuación. Durante el uso del programa, el OL 
sistema suma los puntos obtenidos con las distintas La 
respuestas y, en base al resultado, emite un juicio. n= 


Esiciones Forum, 3.A. 


Pespuestas a la pregunta n.pl 


lespuesta AUS 
a: 


La foto muestra la fase de introducción de las gamas de 
puntuación y de los juicios asociados. En este caso, el 
programa está a la espera del juicio a emitir para 
puntuaciones comprendidas entre 20 y 30. Es decir, la 
introducción del juicio escrito con esta máscara se 
realiza si la suma de los puntos obtenidos con las iS 
respuestas al test “a1” está comprendida entre los 
valores indicados. 


Tests con atributos: Introducción. También este 
segundo tipo de tests requiere dos fases de 
introducción en la generación. En la primera, 
presentada en la foto, se definen los atributos utilizados 
en el test, y la segunda se dedica a la especificación de 
los atributos asociados a cada elemento. 


"AYUDA 





La foto muestra la máscara vídeo para la definición de 
los atributos inherentes al elemento “iceberg”. Los 
atributos presentados (animal, desgajado, etc.) se han 
introducido en la fase anterior. Ahora, el usuario debe 
indicar cuáles pertenecen al elemento en la fase de 
definición. 
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Al final de las dos máscaras anteriores, el programa 
pregunta si se desea una nueva introducción; en caso 
de respuesta afirmativa, pasa a otro elemento y, de otro 
modo, termina. 


Tests con símbolos. Este tercer tipo de tests requiere 
la construcción de una serie de dibujos. La foto muestra 
la generación del símbolo n.* 6. La función se obtiene 
con la subrutina de generación de sprites que permite 
construir un dibujo a través de funciones de edición por 
teclado. Simultáneamente con la construcción del 
dibujo en una zona ampliada, el sprite se presenta 
arriba a la derecha y en sus dimensiones reales. 


Test por atributos: Desarrollo. La parte inicial de este 
test se dedica a la presentación de los atributos 
presentes (introducidos en la fase de generación). 


Selección del tipo de lógica. El test por atributos 
puede desarrollarse de dos maneras. En la primera se 
presenta un elemento (por ejemplo “iceberg”) y el 
usuario debe indicar qué atributos, entre los 
presentados, pertenecen al elemento. En la segunda 
manera, la lógica es opuesta, o sea hay que indicar qué 
elementos tienen un determinado atributo. La selección 
de una u otra forma de funcionamiento se realiza 
respondiendo “L” o “C” a la pregunta mostrada en la 
foto. 








ipuisar una teciá al terminar 13 lectura 





Otra introduccion (si/no)> 7 M 


5 

b 

id 

¡e 

f 

y AS 
y ¿apaga 

i r zintroduce 
y 

h 

1 

cm 

nm 


ALA 


ELE 


“Ediciones Forum, 


¡Desarrollo - atributos 


Desarrollo por linea 
CIAL LEA ITA DA | 





2281 


Se ha seleccionado la primera forma de lógica y, por 
tanto, el programa presenta un elemento (“iceberg”) y la 
lista de los atributos presentes. El usuario debe indicar, 
con las letras S(sí) y N (no) cuáles pertenecen al 
elemento. 


AS 


DAA 


MATTETTV AY UD? 


Test por símbolos: Desarrollo. El programa presenta 
los símbolos, definidos en la fase de creación, en dos Desarrollo test con simbolos n. < 
líneas. En la primera se presentan los dos que 
constituyen la pregunta y, en la segunda, los tres entre 
los que debe realizarse la elección. 


El símbolo elegido por el usuario es el 6. El sistema lo 
posiciona como complemento de la primera línea y DOTA 
emite el diagnóstico: en este caso, la solución es la 
correcta (los dos primeros símbolos representan 
triángulos, por lo que para completar la serie es 
necesario otro triángulo). 


superado) 


LEIA 


Test con puntuación: Desarrollo. La primera fase, al 
igual que en el test anterior, se dedica a las necesarias OTI 


explicaciones. 
to de est CCOO AS 
ITA Di EAT e ro 
PI 1 IMA 
AL , LU j OS 
Y 


'xXam 





LA la pac 3 TACTO 
TAS Je 


CAES 
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La foto muestra la máscara de introducción de las 
respuestas. En este caso, las previstas son tres, cada 
una con una puntuación propia. El usuario debe 
introducir la respuesta elegida indicando el número 


correspondiente. 


Las siguientes preguntas están estructuradas de la 
misma manera. Para cada una se presenta un esquema 
con las explicaciones. La foto muestra la inherente a la 


pregunta n.* 4, 


Al final de la lectura del texto, que indica el usuario 
pulsando una letra cualquiera del teclado, se presentan 
las respuestas previstas (introducidas en la fase de 
generación). El usuario realiza su propia elección y el 
sistema suma los puntos correspondientes. 


El total de los puntos realizados durante el desarrollo 


del test se utiliza para emitir el juicio. 


A AS O 


AR 
.a21guna: SA AS 
AL ES 


Respuesta (0-9) ? 


Pregunta + 


pe Pregunta para los profeso- 


oO leo 


pulse una tec 


ETA TIT ET OCT TIA 


LAS SA A 
ATEN rd 
TIP TUDELA ES 


Respuest 





MALO AUS Forun 


LOCO OL NUNCA 


RESULTADO 


NAT E JUAS 
TS IET 
pera EUITIO 
UTA 
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Ejemplo de test por símbolos. La dificultad del test 
puede llegar a ser importante, ideando símbolos 
complicados y con elementos comunes 
«enmascarados». 


La solución elegida es la correcta: efectivamente, se 
trata de completar una serie en la que el elemento, en DADO ORD 


FTE rl 
a ¡(us : ¡El 


forma de «T», se desplaza por el interior de una figura 
compuesta por otros dos elementos. Es decir, el 
símbolo n.* 5 es el único que contiene los mismos 
elementos que los números 1 y 2, por lo que constituye 
el complemento de la serie. 


Ejemplo de desarrollo del test por atributos. La foto 
muestra la máscara de presentación de los atributos 
previstos en el test y que deben utilizarse para la 
solución. 


La foto muestra las respuestas (S/N) correspondientes 
al tema «perro». Los atributos sobre los cuales se 
articula el test son los presentados en la máscara 
anterior. Como puede verse, éste también puede 
asumir un notable grado de dificultad, para lo 

cual basta con seleccionar adecuadamente los 
atributos. Por ejemplo, en este caso, al elemento 
«perro» le corresponden algunos elementos inusuales y 
de difícil identificación, como «urbano», o que pueden 
obtenerse a través de asociaciones de ideas como 
«caliente» (que se refiere al bocadillo) o «marino» 
(aludiendo a la foca). 
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La lógica del programa 
Tests con símbolos gráficos 


Generación. El diagrama de la página 2286 muestra el 
flujo de principio del programa de generación de tests 
con símbolos. En este programa, para proponer el test 
se utilizan gráficos, por lo que debe incluirse en una 
subrutina de generación de los dibujos, la cual es la 
primera función activada por el programa. En el dia- 
grama, la generación de los sprites se ha resumido en 
un solo bloque funcional porque no puede generalizar- 
se, puesto que está estrechamente ligada al tipo de 
máquina utilizada. 

En esta versión no se han previsto funciones de edi- 
ción, por lo que al final de la generación del sprite se 
pide confirmación antes de pasar a su memorización. 
Terminada la construcción de la figura (5 en total, las 2 
primeras como preguntas y las otras 3 como posibles 
respuestas, de las cuales sólo una es válida), el pro- 
grama espera la introducción del puntero al sprite que 
representa la respuesta correcta. 

El bucle descrito puede repetirse muchas veces para 
la construcción de una serie de preguntas, por lo que 
los ficheros de datos incluyen la gestión del primer re- 
gistro como directorio. 

En la parte baja de la figura se ha representado el for- 
mato típico del fichero: el primer registro contiene el 
puntero al último ocupado, siguen 5 registros con los 
datos relativos a los sprites y uno con el único puntero 
a la solución. Este último grupo de 6 registros (5 + el 
puntero) se repite tantas veces como preguntas hay 
previstas. 


Uso. En la página 2287 se muestra el diagrama del 
programa para la utilización de los datos memoriza- 
dos, o sea para el desarrollo del test con símbolos. 
La primera función activada es la carga de los sprites, 
que consiste en la lectura de los 6 registros que defi- 
nen el test (ver el diagrama anterior). 

A continuación se presentan los 5 símbolos (sprites) 
subdivididos en dos líneas: en la primera, los dos que 
constituyen la serie a completar y, en la segunda, los 
tres entre los que debe realizarse la elección. 

En este punto, el programa se pone en espera de la 
respuesta, que debe ser un valor numérico compren- 
dido entre 4 y 6, por lo que puede preverse un primer 
control que proporcione un diagnóstico sobre si se 
produce o no la condición. Sin embargo, este control 
no es indispensable, puesto que la comprobación que 
sigue también proporciona la eventual indicación de 
error. 

En cualquier caso, conviene separar los dos controles, 
porque en el primer caso se trata de un error de pulsa- 
do o de una equivocación, mientras que, en el segun- 
do, es una respuesta errónea. 


En el caso de respuesta correcta se indica la supera- 
ción del test y el programa pregunta si se desea conti- 
nuar. En caso afirmativo, se lee en el disco o en la cinta 
el siguiente test; si no, el programa termina. 


Preguntas y respuestas con puntuación 


Generación. En la página 2291 se muestra el diagra- 
ma de generación de tests con puntuación. La primera 
función consiste en la introducción de la sigla de iden- 
tificación del test y del número de preguntas que lo 
constituirán, seguida del control de que este número 
no sea superior a 20. 

Sigue un bucle para la introducción de las preguntas 
para un número de veces igual al número introducido 
anteriormente. Cada pregunta se memoriza en uno de 
los 20 registros. Con un bucle análogo se introducen 
las respuestas, aunque se memorizan en un fichero 
diferente que el de las preguntas. 

Por tanto, la estructura que se genera es de dos fiche- 
ros: el primero, identificado con las letras "FP” (fichero 
preguntas) seguidas de la sigla del test (por ejemplo 
”FPO1”, primer test), y el segundo por las letras "FR” 
(fichero respuestas) seguidas de la misma sigla 
("FRO1”). 

La última función es la introducción de las gamas de 
puntuación, o sea la descripción asociada a cada po- 
sible puntuación. Utilizando estos datos, en base a la 
respuesta dada y por tanto a la puntuación realizada, 
se emitirá el «juicio». 


Uso. El programa para la utilización de los tests con 
puntuación empieza con la petición de la sigla, código 
mediante el cual se constituyen los nombres de los 
ficheros ("FPxx" y "FRxx"). 

Sigue la lectura en el disco y la presentación en panta- 
lla de las 20 líneas correspondientes a la pregunta. 
Para dar tiempo al usuario a que las lea, se incluye la 
adquisición de un carácter, por lo que el sistema se 
pone en espera hasta que no se pulsa una tecla cual- 
quiera. A continuación, en el fichero “FRxx” se leen 
las diez posibles respuestas que se presentan en pan- 
talla a la espera de la elección por parte del usuario. 
En la introducción de este valor, el programa extrae la 
puntuación (contenida en el mismo registro de las res- 
puestas), la totaliza con las anteriores y empieza un 
nuevo bucle para la gestión de la siguiente pregunta 
(un test completo puede estar formado por varias pre- 
guntas). 

Obsérvese que el paso a utilizar es diferente para los 
dos ficheros: en el primero es 20 y en el segundo, 10. 
Terminado el ciclo de presentación de preguntas y de 
gestión de respuestas, el programa carga el fichero 
"FIxx” (gamas y diagnósticos correspondientes) y em- 
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PROGRAMA DE GENERACION DE TEST 
CON SIMBOLOS (SPRITES) 


O y Los sprites 1 y 2 constituirán 
la ilustración de la pregunta. 
El número 3 está en blanco. Tras 
los sprites 4, 5 y 6 se presenta 
la respuesta correcta 


Transfiere 
los datos del sprite 
al fichero 


El programa espera que se 
introduzca el número de la figura 
considerada como la respuesta 
correcta (4 = 6) 


El número de respuesta se 
bleirrdinb inserta en el registro a 

continuación de los que contienen 
los datos de los sprites. 


MX contiene el 
número de tests 
introducidos 


Actualiza 
el puntero 


(*) La generación de los sprites se realiza con métodos distintos según la máquina utilizada. A cada 
sprite generado se pide la confirmación 


FORMATO DEL FICHERO 


Registro 


Respuesta 
prevista 


N.B.: cada sprite está constituido por n registros 
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PROGRAMA PARA EL USO DE TESTS CON SIMBOLO 


La respuesta introducida 
debe corresponder 

a la prevista en 

la generación 


Se lee el siguiente grupo 
de registros a menos que se haya 
superado MX (último introducido) 


(*) Esta función se realiza con métodos distintos según la máquina utilizada. 
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TEST CON SIMBOLOS: FORMATO FICHERO PARA LA VERSION CINTA MSX 


| Indicador | | 
| de principio fichero | | 


—— —_——— ón —ÉKÉ—__——— 


1.* registro 1 test = 5 registros de 32 bytes 
+ 1 registro de 1 byte 


TESTS CON SPRITES (VERSION APPLE) 


FICHERO: “SIMBOLOS” CO = código carácter 
LR: 75 GT = juego de caracteres 
1 registro = 1 sprite (0 = ASCII norm. 1 = ASCII inv., 
2 = Semigr. norm., = sem. inv.) 


1 75 
WS 
| 
75 bytes | 
| 
| 
| 
| 


50 bytes para los códigos de 
5 los caracteres 
25 bytes para el set de cada 
Pregunta 


| 
/ 
| 
| 
| 
| 
| 
y 


| Sprite 5 x 5 caracteres semigráficos 
| 


código 


Elecciones posibles, 1." test = 6 registros 
(respuesta) 


N. sprite correcto 


1 fichero: máx. 50 test 
máx. 300 + 1 registro 
máx. 16 kbytes aprox. 
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FLUJO DEL PROGRAMA TEST 
CON PREGUNTAS Y PUNTUACION 


1 pregunta = 20 registros de 35 bytes 


Fichero respuestas 
Nombre = FR 


Fichero preguntas 
Nombre = FP 


En base al número de 
la pregunta se toman 
las respuestas 


Cada respuesta emplea 10 registros 
de 35 caracteres (33 para el texto y 
2 para el apuntado) 


2 
y 


ichero punto 
Nombre = FT 


1.2 registro = 20 campos 
(mínimo/máximo) de 
definición de gama; los otros 
de definición del resultado 


LE 
y 


Se lee una nueva pregunta NO 
y el ciclo vuelve a empezar E 
desde el principio 





pieza a buscar la puntuación obtenida entre las me- 
morizadas. Como se trata de una gama de puntua- 
ción, es necesario reconocer cuándo el valor obtenido 
es inferior o igual al extremo superior, o superior o 
igual al inferior. 

El caso en que la puntuación obtenida no pertenezca 
a ninguna gama no se ha previsto en el programa, por 
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E 


lo que si se produce, se obtiene un diagnóstico y el 
final del proceso. 

La última función utiliza el puntero de la gama así de- 
terminada para extraer el «juicio» y presentarlo en 
pantalla. Sigue la pregunta de continuación: si la res- 
puesta es afirmativa, se repite el mismo ciclo para un 
nuevo test y, si no es así, el programa termina. 


FORMATO REGISTROS 


1234567 8 910 11 12 13 14 15 16171819 


1.% registro = 
Contiene las gamas 
de puntuación 
(máx. 10) 


Registros de 2 a 11 = 
Descripciones 


Para cada gama un 
“diagnóstico” de 80 caracteres 


o 5 5 pr « <---qqAAAAK 
80 bytes 


DIAGRAMA FUNCIONAL 
DEL PROGRAMA CON 
PUNTUACION: GENERACION 


Cada test debe contener 
por lo menos 1 pregunta 
y no más de 20 


Bucle sobre las preguntas (cada una 
escribe 20 registros) 


Este bloque contiene 
un bucle análogo al 
anterior 


El fichero del texto de las preguntas 
(FP*nn”, con “nn” sigla del test) 
contiene O o 1 en el registro (según 
el tipo de máquina) y el número (N) 
de preguntas que constituyen el test 
(en el diagrama, la gestión de este 
registro no se presenta) 


Transfiere los 


registros l a | = 20 


al fichero 


yy 9 


La sigla del test está compuesta 
por dos caracteres alfanuméricos 
y se utiliza para formar los 
nombres de los ficheros. El 
número de preguntas sirve 

para determinar la longitud 


Principio bucle introducción 
preguntas 


La introducción se realiza con la 
data entry. Los 20 registros de 
35 bytes constituyen otros tantos 
buffers de la data entry 


Cada registro contiene una línea 
de la data entry, o sea un 
elemento de B$(«). La 
transferencia al fichero se obtiene 
con un bucle de 1 a 20 (sobre los 
20 elementos de B$(+)). El fichero 
puede ser secuencial 


Fin introducción preguntas 


Las 10 respuestas constituyen 
10 registros del fichero FR"nn" 
(con “nn” sigla del test) y se 
memorizan de manera análoga a 
las preguntas, con la puntuación 
además. 


Las gamas, con un máximo de 10, 
se introducen en el registro 1, y 
las descripciones del resultado, 

en los registros 2 a 11 


N.B.: como no hay un menú 
principal, para cada FS = 7, 
el programa presenta la máscara 
anterior a la presentada entonces 
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Tests con atributos 


El programa para los tests con atributos requiere una 
estructura más compleja que los otros, puesto que de- 
be gestionar dos ficheros correlacionados: 


" el primero, con las descripciones de los atributos 
que se van a utilizar (”ATxx”) 

" el segundo (”ELxx”), con los datos a los que deben 
aplicarse los atributos. 


DIAGRAMA FUNCIONAL 
DEL PROGRAMA CON 
PUNTUACION: USO 


Del fichero FP*“nn” 
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La simbología utilizada es análoga a la anterior y, por 
tanto, en el disco existirán tantos ficheros ”AT..” y 
”EL..” como los tests previstos, cada uno identificado 
con una sigla de dos caracteres. 

El primero de los dos ficheros se emplea para presen- 
tar en pantalla las descripciones de los atributos, y el 
segundo para formular la pregunta, o sea o la selec- 
ción de los elementos que tienen atributos, o la indica- 
ción de éstos correspondientes a cada elemento. 

Al final se comprueban las respuestas comparando 


El sistema comprueba que el 
test del que se ha pedido el 
desarrollo exista en el diskette 
montado, comprobando la 
existencia del fichero FP*nn” 
(nn = sigla) 


Principio bucle de presentación 
preguntas y espera de respuestas 


El test está constituido por 
diferentes preguntas, cada una 
dividida en 20 líneas 
memorizadas en otros tantos 
registros. La lectura del texto de 
las preguntas se hace con un 
bucle de la posición | ala | + 19 


Espera de un carácter 
cualquiera para proseguir 


Las respuestas, con un máximo 
de 10, se memorizan en 

10 registros del fichero FR“nn”. 
Este bloque es por tanto un bucle 
del registro K al registro K + 9 
(no puede emplearse el índice | 
porque los dos ficheros tienen un 
paso diferente) 


Los 10 registros de FR"nn” 
contienen, además del 

texto de la respuesta, la 
puntuación asociada (en los 
bytes 34 y 35). La puntuación 
realizada con la respuesta 
se extrae de estos bytes y se 
totaliza en PP 


Siguiente pregunta O 


Paso del 
fichero FP 


La longitud del fichero FP, 
Paso del y por tanto el valor de “1” 
fichero FR que termina el bucle, se 
memorizan en el registro 1 (o 0) 


El registro 1 del fichero 
FT"nn" contiene las gamas 


MAGO ara a pa 
PROGRAMA CON obtenidas en las distintas preguntas, 
PUNTUACION: EXTRACCION y las matrices MI(10) y MX(10), los 
DE LOS PUNTOS REALIZADOS límites de las diversas gamas 


Principio bucle de selección gama 


SI 2 asa 
—>0 Emisión del juicio 
Gama 


hallada 


Este error puede producirse sólo 
después de una generación 

errónea del test. Si se presenta, > 
hay que comprobar lo que se ha 
introducido en la fase de 
generación 


«4 


El índice | apunta a la gama 

a la que pertenece la 

puntuación realizada. El juicio Espera de un carácter 
está en el registro | + 1 del cualquiera 

fichero FT“nn” 


Si 
Nuevo test EA 
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TESTS CON ATRIBUTOS: DIAGRAMA DE PRINCIPIO 


Generación 
variación 
descripciones 


y Fichero AT“nn” 


Los nombres de los elementos y 

10 bytes de presencia/ausencia 

de atributo están memorizados en 
2 matrices diferentes, de dimensión 
100 (número máximo de elementos 
gestionados por el programa) 





las elecciones realizadas por el usuario con los flags 
contenidos en los ficheros. 


Generación. La generación de los tests con atributos 
empieza, como en los otros casos, con la introducción 
de las dos letras de identificación del test, con las que 
se construirán los nombres de los ficheros. 

Sigue una data entry para la introducción de las des- 
cripciones de cada atributo, o sea de las necesarias 
explicaciones para identificar, unívocamente, cada 
una de las diez características. 

Al final de la introducción realizada con una máscara 
única de 10 campos de 30 caracteres, un bucle de 1 a 
10 permite la memorización de cada atributo en un re- 
gistro del fichero "ATxx”. 

La parte siguiente del programa se dedica a la intro- 
ducción de los elementos que constituirán el test y de 
los flags de presentación/ausencia de atributo. 

En este caso, el bucle de transferencia al disco es ex- 
terior a la introducción, por lo que cada dato es memo- 
rizado en el fichero inmediatamente después de su in- 
troducción por teclado. 

Este método hace más difíciles las eventuales correc- 
ciones, pero es necesario porque como hay que pre- 
ver una data entry con 11 campos para cada registro 
(descripción más 10 flags), no es posible resolver la 
introducción con una máscara única. 


Uso. El programa para el uso de los tests con atribu- 
tos, sin duda es el más complejo porque prevé dos 
alternativas: 


E en el primer caso se extraen un atributo y 10 ele- 
mentos (nombres), y el usuario debe indicar cuáles 
poseen el atributo en cuestión 

" en el segundo, el funcionamiento es opuesto, o sea 
el programa presenta un elemento y pregunta cuá- 
les son los atributos que le pertenecen. 


Después, las respuestas se comprueban utilizando los 
flags introducidos en la fase de generación. 

Sin embargo, el programa empieza con una función 
accesoria, o sea la presentación de un texto de ilustra- 
ción (memorizado en la generación y con un programa 
adecuado en el fichero "AT..”). 

Esta fase sólo se activa si se pide, por lo que puede 
omitirse. 

Después de la presentación de las explicaciones se 
carga el fichero ”EL..” y, en función del tipo de desa- 
rrollo elegido, se selecciona el primero o el segundo 
caso. 

En el primer caso se genera un número aleatorio que 
sirve para extraer uno de los atributos (la generación 
aleatoria del atributo permite utilizar muchas veces el 
mismo test con escasas probabilidades de repetición) 
y siguen la presentación de los 10 nombres, la espera 
de la respuesta y su comprobación. 

En el segundo caso, el número aleatorio se utiliza para 
extraer un nombre al azar entre los previstos, presen- 
tando todos los atributos que pertenecen al nombre y, 
por tanto, el programa adquiere una cadena con di- 
chas indicaciones y la compara con los flags corres- 
pondientes al nombre seleccionado. 


PROGRAMA DE GENERACION TESTS CON ATRIBUTOS 





Si el fichero no existe, se crea; 
si existe, el programa pasa a 
actualización para la variación 
de los datos contenidos (en 
algunas versiones no existe 
automatismo, y el operador 
es el que debe realizar la 
elección) 


Las descripciones, en un 
máximo de 10, pueden ocupar 
cada una 30 caracteres, y 
están memorizadas en los 10 
registros del fichero AT"nn” 


2295 


Principio bucle de 
memorización. Un registro es 
una línea de la data entry 


Transfiere B$(1) 
al registro “I” Registro 1 Registro 2 


Principio bucle introducción de 
los elementos y de los indicadores 
(0, 1) de atributo activo 


B$(1) = Nombre elemento (20 by- 
t 


es) 
B$(2) a B$(11) = presencia/ 


Es claro que el primer registro ausencia 
del fichero EL + “nn” debe atributo 
contener el número de elementos 
del test (máx. 100) Los buffers de B$(3) a B$(21) 
contienen un solo byte (de 
valor 0 o 1) y se suman a 
AS$ para formar la cadena 
completa asociada al nombre 
contenido en B$(1) 


Longitud del registro = 30 
bytes (20 para el elemento y 
10 para los indicadores) 


Í 
Ea a 
| NO 





y 


La rutina de actualización es análoga, pero además tiene la lectura y la presentación del dato preexistente a variar. 
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